Menu

PropertyDatentyp(Read/Write)Hinweise
HandleHWND (R) Handle des Menu
ParentHWND (R) Handle des ElternFenster i.d.R. HauptForm
SUB/Function ArgumenteHinweis
Sub Create (ByVal hParent As HWND) Handle der Form
Sub CreateSubMenu (sName As String ) Erstellt ein SubMenu. Die Reihenfolge des Aufruf bestimmt die Reihenfolge in der MenuBar
Sub AddItem(oItem As FMenuItem Ptr, sText As String) Zeiger auf das hinzugefügte MenuItem-Object, Item-Text des MenuItem
Sub Seperatorkein Setzt ein Seperator an die aktuelle Stelle

FMenuItem

PropertyDatentyp(Read/Write)Hinweise
EventSubAny Ptr (R/W) Zeiger auf Event-Sub
MItemIDInteger (R) Gibt das ID des Munu-Item zurück.
bmpUnCeckString (W) Setzt ein Bitmap in Menu-Item. Wird angezeigt wenn Check = FALSE ist.
bmpCeckString (W) Setzt ein Bitmap in Menu-Item. Wird angezeigt wenn Check = TRUE ist.
CheckInteger (R/W) True = Setzt eine Haken ; False = löscht den Haken wenn bmpCheck bzw. bmpUnCeck nicht gesetzt sind.
EnabledInteger (R/W) Deaktiviert oder aktiviert das Item
SUB/Function ArgumenteHinweis
Sub addAccel(ByVal virt As Integer,
ByVal vK As UShort ,
sK As String)
FCONTROL, FALT, FSHIFT oder NULL sein ( Anzeige ist Automatisch)
Wert des Key als Byte z.B. ASC("X") oder 112 für F1
String der angezeigt wird z.B. "X" oder "F1"
Beispiel :
        'Die Item dimensionieren
    Dim Shared As FMenuItem mnNeu, mnExit, mnAbout
        'Die Menu-EventSub
    
    sub menu_neu
        ' Irgend was'
    End Sub
    
    Sub menu_About
        ' About Dialog Rufen'
    End Sub

    Sub menu_Exit
    	form1.FormClose
    End Sub
    
    form1.menu.Create(form1.Handle)         ' Das Menu  			
    form1.menu.CreateSubMenu("Datei")       ' Das erste Popup
    
    mnNeu.EventSub =@menu_neu               ' Event-Sub
    mnNeu.addAccel(NULL ,113,"F2" )         ' nur F2	
    form1.menu.AddItem(@mnNeu,"Neu")        ' Zeiger auf das Item, Menu Text 
      
    mnExit.EventSub =@menu_Exit             ' Event-Sub
    mnExit.addAccel(FCONTROL,Asc("X"),"X")  ' Accel dazu,  STRG
    form1.menu.AddItem(@mnExit,"Exit")      ' Zeiger auf das Item, Menu Text 
    
        ' Das 2. SubMenu
    form1.menu.CreateSubMenu("About")

    mnAbout.EventSub =@menu_About
    form1.menu.AddItem(@mnAbout,"About")