Inhaltsverzeichnis

6.9.1 DirBox

Das unauffällige Steuerelement DirBox (gb.form) implementiert eine Verzeichnis-Auswahlbox:

B1

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"

6.9.1.1 Eigenschaften

Die Klasse DirBox verfügt u.a. über diese zwei Eigenschaften:

EigenschaftDatentypBeschreibung
BorderBooleanGibt an, ob ein Rand gesetzt ist (Standard) oder entfernt mit dem Wert 'False' einen existierenden Rand.
ValueStringGibt 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

6.9.1.2 Ereignisse

Die Klasse DirBox verfügt u.a. über diese Ereignisse:

EreignisBeschreibung
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

6.9.1.3 Zugriff auf den Verzeichnis-Pfad in der 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.

Download