Hardware Upgrade Forum - View Single Post

tas · 10-09-2002, 20:32

Semplicemente così:

Codice:

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbRightButton Then
      PopupMenu asd
   End If
End Sub

(ho utilizzato l'evento MouseUp del Form, ma lo puoi fare in qualunque altro evento)

10-09-2002, 20:32	#2
tas Senior Member Iscritto dal: Feb 2001 Città: Nordest Messaggi: 217	Semplicemente così: Codice: Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu asd End If End Sub (ho utilizzato l'evento MouseUp del Form, ma lo puoi fare in qualunque altro evento)