Programación General > Visual Basic 6.0 e inferiores

 Previnstance

<< < (3/3)

Especimen:
Hola

Ya se que ese código debería funcionar, el que yo uso también debería lo he usado muchas veces, practicamente es igual, si lo probais funcionara.

Y el que he metido en el sub main desde donde arranco ahora es el mismo y asi no me da fallos. Así:

Sub Main ()
If App.PrevInstance = True Then
....MsgBox "El programa ya se está ejecutando.", "El programa"
....End
End If
End Sub

Sin embargo poniendolo al principio del form load y arrancando desde el form si me da un fallo "error 13, no coinciden los tipos".

He probado a meter un msgbox antes del código del PrevInstance y sale el msgbox pero después da el fallo.

sería así:

Private Sub Form_Load()
MsgBox "Hola"
.........................."DESPUES DE ESTO DA EL FALLO"
If App.PrevInstance = True Then
....MsgBox "El programa ya se está ejecutando.", "El programa"
....End
End If
....

End Sub

Saludos

DiabloRojo:
Qué tal Especimen?
Copie y pegue el código que colocas y efectivamente da el error que comentas. Me parece muy extraño y no se ve forma aparente de solucionar, pero mas extraño me parece que reemplacé tu código por el mío (copiado y pegado desde otra aplicación) y sí funciona; pero es el mismo código!. Copia y pega desde aquí para ver qué tal:

   If App.PrevInstance = True Then
      MsgBox "Esta aplicacion ya está en uso"
      Unload Me
   End If

Espero que funcione...
Mucha suerte

P.D: Si alguien sabe el origen y solución de este error por favor coméntelo.

Especimen:
Hola DiabloRojo.

Parece que ya he dao con el error

así se produce el error:
MsgBox "El programa ya se está ejecutando.", "El programa"

y asi no se produce
MsgBox "El programa ya se está ejecutando."

También he probado con esto y el erro se produce
MsgBox "El programa ya se está ejecutando.", Me.Captión

Saludos

Especimen:
Bueno es que a veces somos CIEGOS y BURROS, al menos yo

El título del programa no estaba en su lugar, la forma corecta es

MsgBox "El programa ya se está ejecutando.", VbOkOnly, "El programa"
o
MsgBox "El programa ya se está ejecutando.",  , "El programa"

Mas saludos

DiabloRojo:
Por supuesto!!!
Benditas comas...
Me alegra saber que era un detalle menor.
Mucha suerte.

Navegación

[0] Índice de Mensajes

[*] Página Anterior