ERFORDERLICHE
OBJEKTE
1 Textbox (Text1)
FORM-CODE
Private Sub mnuHallo_Click()
MsgBox "HALLO !"
End Sub
Private Sub Text1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
'rechte Maustaste ?
If Button = 2 Then
Text1.Enabled = False
PopupMenu Form1!mnuTest
Text1.Enabled = True
End If
End Sub
|