Das unauffällige Steuerelement DirBox (gb.form) implementiert eine Verzeichnis-Auswahlbox:
Abbildung 6.9.1.1: Steuerelement DirBox mit weiteren Steuerelementen (FileView und FileProperties)
Der Auswahldialog für ein Verzeichnis wird über einen Klick auf das Verzeichnissymbol am rechten Ende des Textfeldes der DirBox – rot markiert – gestartet:
Abbildung 6.9.1.2: Auswahl-Dialog mit ausgewähltem Verzeichnis „DBAdressen“
Das ausgewählte Verzeichnis wird mit „Auswählen“ übernommen. Der Verzeichnis-Pfad steht danach im Textfeld der Verzeichnis-Auswahlbox. Das Textfeld hat die Eigenschaft „ReadOnly“. Das Steuerelement kann erzeugt werden:
Dim hDirBox As DirBox hDirBox = New DirBox ( Parent As Container ) As "EventName"
Die Klasse DirBox verfügt u.a. über diese zwei Eigenschaften:
Eigenschaft | Datentyp | Beschreibung |
---|---|---|
Border | Boolean | Gibt an, ob ein Rand gesetzt ist (Standard) oder entfernt mit dem Wert 'False' einen existierenden Rand. |
Value | String | Gibt den Pfad zum ausgewählten Verzeichnis zurück oder setzt das (Start-)Verzeichnis im Quelltext. Geben Sie kein Start-Verzeichnis vor, dann wird automatisch das Home-Verzeichnis voreingestellt. |
Tabelle 6.9.1.1.1 : Eigenschaften der Klasse DirBox
Die Klasse DirBox verfügt u.a. über diese Ereignisse:
Ereignis | Beschreibung |
---|---|
Click() | Dieses Ereignis wird ausgelöst, wenn ein Benutzer ein Verzeichnis ausgewählt hat. Der Pfad zum ausgewählten Verzeichnis steht im Textfeld (Eigenschaft „ReadOnly“) der DirBox. |
Change() | Dieses Ereignis ist das Synonym zum Click-Ereignis. |
Tabelle 6.9.1.2.1 : Ereignisse der Klasse DirBox
Sie können den Wert der Eigenschaft DirBox.Value auslesen und zum Beispiel in einer Variablen sDirPath speichern.
' Gambas class file Public sDirPath As String Public Sub Form_Open() FMain.Resizable = False DirBox1.Value = User.Home ' (Start-)Folder sDirPath = DirBox1.Value lblDirPath.Text = DirBox1.Value FileView1.Dir = DirBox1.Value FileView1.ShowPreview = True FileView1.ShowHidden = True FileView1.Background = &HC3DDFF FileView1.Foreground = Color.Red FileView1.Mode = Select.Single FileView1.Filter = ["*.txt", "*.png", "*.pd*", "*.jp*", "*.xml"] FileView1.IconSize = 48 ' Default-Value = 32 FileProperties1.Path = DirBox1.Value End Public Sub DirBox1_Change() sDirPath = DirBox1.Value FileView1.Dir = DirBox1.Value lblDirPath.Text = DirBox1.Value End Public Sub FileView1_Click() FileProperties1.Path = sDirPath &/ FileView1.Current End
Steuerelemente der Klasse Dialog (gb.qt4) zur Auswahl von Dateien oder Verzeichnissen wie OpenFile oder SelectDirectory oder SaveFile zum Speichern von Dateien werden im Kapitel 12 beschrieben.