title image


Smiley Geht mit API-Aufrufen, oder so:
Hi meialex,So ging es:1. Erstell im Entwurfsmodus ein Menü mit einem Eintrag. Nenn diesen Eintrag z.B. mnu_index und trag im Feld "index" eine "0" ein. Den Text (Caption) läßt Du frei.2. Das Menü könntest Du nun noch unsichtbar machen3. An der Stelle im Programm wo das Menü erstellt werden soll kannst Du dann dies schreiben: Load mnu_index(1) Load mnu_index(2) mnu_index(1).Caption = "Neues Menü 1" mnu_index(2).Caption = "Neues Menü 2"Anschließend das ganze dann mit PopupMenu mnu_xxxxanzeigen.In der Sub wird das dann abgefragt:Private Sub mnu_index_Click(Index As Integer) Select Case Index Case 1 If mnu_index(Index).Caption = "Neues Menü 1" Then MsgBox ("Hier ist Menü 1") ElseIf mnu_index(Index).Caption = "Was anderes" Then MsgBox ("Hat gerade eine andere Bedeutung") End If Case 2 MsgBox ("Das ist das neue Menü 2") End Select End SubUnd wenn Du ein Menü nicht mehr brauchst,kannst Du es mit "unload" wieder entladen.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: