Visual Basic 6 - Ridurre un Soft a IconTray e poterlo riaprire

Forum - Visual Basic 6 - Ridurre un Soft a IconTray e poterlo riaprire - Pagina 4

Pagine: [ 1 2 3 4 ]

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 19:45
Venerdì, 11/09/2009

prova a sostituire dal mio progr di esempio questa parte:

Codice sorgente - presumibilmente VB.NET

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Msg As Long
Msg = X / Screen.TwipsPerPixelX
If Msg = WM_RCLICK Then
form1.popupmenu form2.NomeMenu 'devi creare un form2 con il menu
End If
End Sub

con questa:

Codice sorgente - presumibilmente VB.NET

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Msg As Long
Msg = X / Screen.TwipsPerPixelX
If Msg = WM_LDBCLICK Then 'click tasto sinistro
Call RemoveFromTray
Form1.WindowState = vbNormal
Form1.Show
End If
End Sub