[VB6] Impedire avvio di due programmi uguali

[goku370]

Mi sembra che qualche tempo fa se ne fosse parlato ma ora non riesco a trovare la discussione con la ricerca...

Come si fa per impedire l'apertura di un programma doppio, cioè per impedire che uno stesso programma venga eseguito due volte?

[Mabi]

Usando la PrevInstance:

Private Sub Form_Load()
Dim Titolo As String

If App.PrevInstance Then
  Titolo = Me.Caption
  Me.Caption = Hex$(Me.hWnd)
  AppActivate Titolo
  End
End If
End Sub

Mentre per applicazioni non realizzate con VB guarda la FAQ58.

Ciao

[goku370]

Purtroppo non funziona nel mio caso perchè il form è invisibile e non so perchè mi da errore. L'ho provato in un programma dove il form è visibile e mi funziona ma con il form INvisibile no... Sai come sistemare il problema?

[Mabi]

Non saprei, mi spiace...