Como evitar multiples instancias de una misma aplicacion en una lan

touring · #1 (**permalink**) 27/10/2006, 07:13

Tengo una aplicación en una carpeta compartida en una lan , necesito hacer que si alguíen de la red la esta usando , y otro la quiere abrir que no le permita que salga un mensaje ej: "La aplicación esta siendo utilizada , Pruebe mas tarde"
Intenté con el App.PrevInstance , pero funciona solo en mi maquina local , no en la red.

Agradesco si me dan algun ejemplo de codigo , ya que no tengo mucho conocimiento de visualbasic. La aplicación no usa base de datos.

Saludos

black_devil · #2 (**permalink**) 27/10/2006, 07:37

Hola, me funciona el código pero solo si la aplicación esta abierta y la intentas de ejecutar por segunda vez en la misma máquina ..

Código:

 If App.PrevInstance = True Then
        MsgBox "El programa ya está siendo ejecutado", vbCritical + vbOKOnly, "Mensaje de alerta"
     End
        ' O también, puedes poner que el programa gane el foco cuando se abre por segunda vez
    End If

tazzito · #3 (**permalink**) 27/10/2006, 07:47

la solucion seria a traves de una marca, puede ser en la base de datos o tal vez en un archivo en el directorio desde donde se ejecuta, el inconveniente seria tener mucho ojo en el caso de que se caiga... ya que dejara la aplicacion tomada(al menos a nivel de marca).