003
21.03.2004, 03:12 Uhr
Pablo
Supertux
(Operator)
|
Timer, wozu denn hier Timer????
Nagut, erstelle ein neues Formular.
Dann, guck mal oben, auf der Symbolleiste (das 3. Symbol, rechts neben "Datei Öffnen") anklicken. Das Symbol sieht wie ein schwarz-weißes Menü aus.
Dann kriegst du den Menü-Editor. Unter Caption gibst du den Text, der auf dem Menü stehen soll. Beispiel PopUp Menü. Unter Name den Namen des Objektes, bsp: mnuPopUp. Dann klickst du auf "Next" und um ein Submenü zu erstellen, musst du auf den Knopf mit einem Pfeil Symbol (rechts) klicken. Dann erscheinen ... diese 3 Punkte. Das heißt, dass das Menü an dieser Stelle ein Untermü von PopUp Menü.
Dann gibst du #unter Caption Schließen und dann unter Name mnuPopUipSchliessen. Dann auf Ok klicken. Eine Menüleiste erscheint. Wenn du auf PopUp menü und dann auf Schließen klcikst, kommt der Code
| Visual Basic: |
Private Sub mnuPopUipSchliessen_Click()
End Sub
|
Dann musst du den Code für Schleißen schrieben.
Dann öffnest du nochmal den Menü-Editor. Klickst du dann auf "PopUp Menü" und deselektierst die Option Visible, dann klickst du auf Ok und das Menü verschwindet. Es ist noch da, aber unsichbar. Dann
| Visual Basic: |
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then Me.PopupMenu Me.mnuPopUp
End Sub
|
F5 drücken, um das Programm zum Laufen zu bringen und fertig.
Das ist der ganze Code
| Visual Basic: |
Option Explicit
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then Me.PopupMenu Me.mnuPopUp
End Sub
Private Sub mnuPopUipSchliessen_Click()
Unload Me
End Sub
|
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth! |
