GAMBAS-BUCH 3.19.3

Das vollständige Projekt finden Sie im Downloadbereich. Der Quelltext von FMain.class wird hier komplett angegeben. Der Code setzt die o.a. Ausführungen und Hinweise konsequent um:

[1] ' Gambas class file
[2] 
[3] Public Sub Form_Open()
[4] 
[5]   FMain.Center
[6]   FMain.Resizable = False
[7]   PictureBox1.Border = Border.None
[8]   PictureBox1.Picture = Picture["fractal.jpg"]
[9]   Label1.Text = "Fraktale Geometrie - Informatikkurs 2012"
[10]   ToolBar1.H = 24
[11]   
[12]   mnubtnFile.Width = 48
[13]   mnubtnFile.H = 24
[14]   mnubtnFile.Picture = Picture["icon:/16/options"]
[15]   mnubtnFile.Menu = "mnuFile"
[16]   mnubtnFile.Tooltip = "Datei-Operationen"
[17]   mnubtnFile.MenuOnly = False
[18]   
[19]   mnubtnHelp.Width = 72
[20]   mnubtnHelp.H = 24
[21]   mnubtnHelp.Text = "Hilfen"
[22]   mnubtnHelp.Menu = "mnuHelp"
[23]   mnubtnHelp.MenuOnly = True
[24]   
[25]   toolbtnClose.Picture = Picture["icon:/16/quit"]
[26]   toolbtnClose.Tooltip = "Programm beenden"
[27]  
[28] End ' Form_Open()
[29] 
[30] Public Sub Form_Close()
[31]   FHelp.Close
[32]   FMain.Close
[33] End ' Form_Close()
[34] 
[35] ' Eigene Programm-Aktionen -----------------------------------------------------------
[36] 
[37] Public Sub OpenImage()
[38] 
[39]   Dialog.Title = "Importieren Sie eine Bild-Datei!"
[40]   Dialog.Filter = ["*.png", "Bild-Dateien"]
[41] 
[42]   If Dialog.OpenFile(False) = True Then ' Multiselect=False (Standard)
[43]      Message.Info("Das Öffnen der Bild-Datei wurde abgebrochen!")
[44]      Return ' Cancel-Button gedrückt
[45]   Else
[46]      Try PictureBox1.Picture = Picture.Load(Dialog.Path)
[47]      If Error Then
[48]         Message.Error("Fehler beim Öffnen der Bilddatei")
[49]      Else
[50]         Label1.Alignment = Align.Left
[51]         Label1.Text = " Datei: " & File.Name(Dialog.Path)
[52]      Endif ' ERROR?
[53]   Endif ' Dialog.OpenFile
[54] 
[55] End ' OpenImage()
[56] 
[57] Public Sub PrintImage()
[58]   Message.Info("Das Bild wird gedruckt (Druck-Routine)!")  
[59] End ' PrintImage()
[60] 
[61] ' Menü-Aktionen -----------------------------------------------------------
[62] 
[63] Public Sub mnu11Open_Click()
[64]   OpenImage()
[65]   mnu13Print.Enabled = True
[66] End ' mnu11Open_Click()
[67] 
[68] Public Sub mnu13Print_Click()
[69]   PrintImage()
[70]   mnu13Print.Enabled = False
[71] End ' mnu13Print_Click()
[72] 
[73] Public Sub mnu21Help_Click()
[74]   FHelp.Show  
[75] End ' mnuHelp_Click()
[76] 
[77] Public Sub mnu22Information_Click()
[78]   Desktop.Open("http://www.gambas-buch.de/dw/doku.php?id=k13:start")
[79] End ' mnu32Information_Click()
[80] 
[81] Public Sub toolbtnClose_Click()
[82]   FMain.Close
[83] End ' toolbtnClose_Click()
[84] 
[85] Public Sub mnubtnFile_Click()
[86]   Message.Info("Klick auf Symbol ---> Aufruf Unter-Programm oder Hilfetext ...\nKlick auf den kleinen schwarzen Pfeil ---> Ansicht Menüliste.")
[87] End ' mnubtnFile_Click()

Abbildung 13.7.2.1: MenuButton im Einsatz

Kommentare:

• Wenn Sie die Eigenschaft .MenuOnly eines MenuButton (Zeile 18) auf den Wert False setzen, dann können Sie einerseits mit einem Klick auf das Icon (1) ein Programm starten (Zeilen 85 bis 87), während andererseits ein Klick auf den kleinen schwarzen Pfeil (2) die Menüliste öffnet.
• Beim 2. MenuButton 'Hilfen' wird mit einem Klick auf den MenuButton – ohne Beachtung von Icon, Text oder dem Pfeil auf dem MenuButton – eine Menüliste aufgerufen, mit der Sie eine lokale Hilfe (Alternative F1) oder eine globale Hilfe (Internet) aufrufen können, wie Sie der Abbildung 13.7.2.1 entnehmen können.
• Mit einem eleganten Klick auf den ToolButton (3) in der Symbolleiste beenden Sie das Programm.