Solo una instancia de un prog. Hecho en VB5
Hola, Necesito como se puede hacer que un programa que ya esté activo no se pueda abrir de nuevo, forzándolo a tener solamente una instancia, he visto un código para vb.net pero no me sirve. Es este:
If fBuscar Is Nothing OrElse fBuscar.IsDisposed Then
fBuscar = New FormBuscar
Else
fBuscar.BringToFront()
End If
fBuscar.Show()
Necesito algo como esto pero para vb5.
Gracias.
Carlos
If fBuscar Is Nothing OrElse fBuscar.IsDisposed Then
fBuscar = New FormBuscar
Else
fBuscar.BringToFront()
End If
fBuscar.Show()
Necesito algo como esto pero para vb5.
Gracias.
Carlos
1 Respuesta
Respuesta de ortiz3436
1
Car mira prueba con este código a ver que tal:
Private Sub Form_Load()
Dim sCaption As String
'si ya se está ejecutando
If App.PrevInstance Then
'Guardar el caption de esta aplicación
sCaption = Caption
'Cambiar el caption actual para que no se active esta
Caption = "cualquier cosa"
'Activar la otra instancia
AppActivate sCaption
'Terminar esta copia del programa
End
End If
'Continuar ya que no hay otra copia
End Sub
Private Sub Form_Load()
Dim sCaption As String
'si ya se está ejecutando
If App.PrevInstance Then
'Guardar el caption de esta aplicación
sCaption = Caption
'Cambiar el caption actual para que no se active esta
Caption = "cualquier cosa"
'Activar la otra instancia
AppActivate sCaption
'Terminar esta copia del programa
End
End If
'Continuar ya que no hay otra copia
End Sub
