Eigenes Kontextmenü
[Windows 95/98/NT/2000]

07.10.1998


  Haben Sie sich auch schon einmal gefragt,
     ob man für Eingabefelder ein eigenes Kontextmenü erstellen kann ?

     Nun, es ist so einfach, glauben Sie mir !

      Legen Sie ein Menü an und nennen Sie es
mnuTest
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


Download - 2 KB