Salve ragazzi,ho un problema...Ho aggiunto la possibilità di far visualizzare l'icona del mio programma nella traycon e a sua volta al doppio click di visualizzare un menu tramite questo codice:
Questo è un MDIForm e non un form normale e mi sono accorto proprio che in un form normale funziona tranquillamente ma nel mio caso no,perchè?Grazie mille a tutticodice:Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim Msg DoEvents Msg = Button Msg = x / Screen.TwipsPerPixelX Select Case Msg Case WM_LBUTTONDBLCLK PopupMenu MostraMenu Case WM_RBUTTONUP Case WM_RBUTTONDBLCLK PopupMenu MostraMenu End Select End Sub

Rispondi quotando