GAMBAS-BUCH 3.19.3

Wenn Sie einen oder mehrere MenuButton in einem Projekt auf einem Formular einsetzen wollen, sind folgende Hinweise zu beachten:

Zuerst sollten Sie die MenuButton in einem Container platzieren. Gut geeignet ist eine ToolBar für eine (horizontale) Symbolleiste:

Abbildung 13.7.1.1: Zwei MenuButton in einer Symbolleiste

Dann sind die einzelnen Menüs zu entwerfen und am sichersten mit dem MenüEditor in der gewünschten Struktur zu deklarieren:

Abbildung 13.7.1.2: Menü-Editor mit den einzelnen Menüs

Achten Sie darauf, die Eigenschaft .Visible für die Menüs in der obersten Hierarchie-Ebene (Bild-Datei und Hilfe) auf False zu setzen, damit diese nicht auf dem Formular erscheinen. Für jedes Menü in der Menüliste – außer beim Menü mnuSpace – ist die Eigenschaft .Caption auf einen nicht leeren String zu setzen; auch wenn diese Zeichenkette nicht angezeigt wird, weil sonst ein Trennstrich erzeugt wird! Jedem Menü können Sie ein passendes Icon zuweisen.

Danach sind im Quelltext die Aktionen zu beschreiben, die ausgelöst werden, wenn ein bestimmtes Menü durch einen Klick aktiviert wird. Hier ein entsprechender Ausschnitt aus einem Quelltext:

Public Sub mnu11Open_Click()
  OpenImage()
  mnu13Print.Enabled = True
End '  mnu11Open_Click()
 
Public Sub mnu13Print_Click()
  PrintImage()
  mnu13Print.Enabled = False
End ' mnu13Print_Click()

Abschließend sind u.a. die erwähnten Aktionen OpenImage() und PrintImage() zu codieren, welche im Wesentlichen die Funktionalität des Programms bestimmen:

' Eigene Programm-Aktionen 
 
Public Sub OpenImage()
 
  Dialog.Title = "Importieren Sie eine Bild-Datei!"
  Dialog.Filter = ["*.png", "Bild-Dateien"]
 
  If Dialog.OpenFile(False) = True Then
     Message.Info("Das Öffnen der Bild-Datei wurde abgebrochen!")
     Return ' Cancel-Button gedrückt
  ...
  Endif ' Dialog.OpenFile
 
End ' OpenImage()
 
Public Sub PrintImage()
  Message.Info("Das Bild wird gedruckt (Druck-Routine wird aufgerufen)!")
End ' PrintImage()