Programación General > Visual Basic 6.0 e inferiores

 Previnstance

(1/3) > >>

Especimen:
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

DiabloRojo:
Hola especimen.
No sé si es lo correcto pero prueba colocando dentro de tu bloque if-end if y después del msgbox un Unload Me. Eso te descargaría la nueva instancia del formulario luego del mensaje.
Suerte.

Especimen:
Gracias DiabloRojo, tampoco funciona asi.

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

Saludos

DiabloRojo:
Hola.
A mi me funciona así como te indiqué. Prueba esto: en el menú seleciona Proyecto|Propiedades de proyecto|Generar y selecciona la opción Incremento automático en el Número de versión y vuelve a generar tu proyecto. Tal vez tenga algo que ver con esto.
Estuve revisando por ahí y encontré esto (a mí me parece un poco complicado pero ahí te va):

http://www.elguille.info/vb/VB_TIP3.HTM#vb3_09

Bueno espero que te sirva.
Mucha suerte.

Jose Arriagada:
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

Navegación

[0] Índice de Mensajes

[#] Página Siguiente