Sólo texto | Texto con Imágenes

Underc0de

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 10:19:50 AM

Título: Ejecutar un solo ejemplar de un programa
Publicado por: ANTRAX en Julio 26, 2010, 10:19:50 AM
Incluir este codigo en el programa:

Código (vb) [Seleccionar]
Private Sub Form_Load()
Dim Ya_Existe As Integer
Ya_Existe = App.PrevInstance
If Ya_Existe <> 0 Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"
End
End If
End Sub
Sólo texto | Texto con Imágenes