SoloCodigo

Hola

En el form de inicio de mi aplicación tengo el siguiente código:

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

Dim x As Integer
ReDim Cambio(7)
On Error GoTo ErrorLoad

....
....
....
exit sub

Cuando ejecuto el programa por 2ª vez, sin cerrar la primera instancia no funciona el código y se me abren dos ejemplares de la aplicación.

Alguna sugerencia??

Gracias

Gracias DiabloRojo, tampoco funciona asi.

La verdad es que realmente no se me llega a abrir la 2º instancia porque da un error.

Saludos

Private Sub Form_Load()
If App.PrevInstance = True Then
    MsgBox "Solo puede ejecutar una instancia"
    End
Else
  Dim x As Integer
  ReDim Cambio(7)
  On Error GoTo ErrorLoad
  ...
  ....
  ....
End If

Gracias por las respuestas.

Ya habia probado lo que decia Jose Arraigada y no funciona.

Y sobre lo que dice en la web de "el guille" (DiabloRojo) si no cambio el caption del form no deberia tener problemas y no lo cambio en ningun momento.

Por ahora lo he solucionado iniciando con un Sub Main desde donde cargo el formulario de inicio y me funciona asi, pero me jode.

Sub Main()
If App.PrevInstance = True Then
    MsgBox "Ya hay una instacia abierta.", vbInformation
    End
End If
Principal.Show
End Sub


Si alguien encuentra alguna explicación que me la diga.

Saludos

********   O J O *************

Me extraña que mi codigo no te halla funcionado. A mi me funciona OK.

RECUERDA:

Prueba mi codigo.
Generar el ejecutable.
Y Prueba la ejecucion dos veces.
Y Funciona.

NO FUNCIONA SI USAS DOS VECES VB, y lo EJECUTAS DESDE AHI.

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

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

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