GAMBAS-BUCH 3.19.5

Wenn das Layout für eine Programmoberfläche statisch ist, kommen Sie bei zu geringer Fenstergröße in die Situation, dass einige Komponenten nicht mehr vollständig sichtbar und andere völlig unsichtbar sind. Ein Ausweg bietet sich mit dem Einsatz einer ScrollView an, die auf das Formular gelegt wird und bei dem die Eigenschaft Form.Arrangement auf Arrange.Fill gesetzt ist. Nun erreichen Sie alle Komponenten sicher mit Hilfe der Scrollbalken.

Die Klasse ScrollView implementiert einen Container, in dem man durch seinen Inhalt scrollen kann. Bildlaufleisten werden automatisch angezeigt, wenn Komponenten in der ScrollView nicht oder nur teilweise sichtbar sind.

Tabelle 18.10.1.1: Übersicht Eigenschaften ScrollView

Mit den folgenden 2 speziellen Methoden einer ScrollView steuern Sie die sichtbaren Bereiche in einer ScrollView:

Scroll (X As Integer, Y As Integer) : Scrollt den Inhalt an die vorgegebene Position in der ScrollView. EnsureVisible (X As Integer, Y As Integer, Width As Integer, Height As Integer) : Sorgt dafür, dass ein bestimmter Bereich der ScrollView sichtbar wird.

Die ScrollView besitzt nur ein spezifisches Ereignis:

Das Ereignis ScrollView_Scroll( ) wird ausgelöst, wenn durch den Inhalt der ScrollView gescrollt wird.

Ein Einsatzgebiet für eine ScrollView im vorgestellten Projekt ist ein Formular, dem dynamisch Komponenten hinzugefügt werden, wobei sich die Anzahl dieser Komponenten zur Programm-Laufzeit ständig verändern kann. Im Projekt wird der Inhalt einer Datenbank-Tabelle (MySQL, PostgreSQL oder SQLite3) ausgelesen und angezeigt.

Für jedes Feld des Tabellen-Schemas der in einem Dialog ausgewählten Datenbank-Tabelle wird ein Komponenten-Paar (Label,DB-Komponente) in einer ScrollView erzeugt. Intern ist jedes Komponenten-Paar an die Komponenten DataSource und DataBrowser gebunden werden, so dass die Feldinhalte auch editiert werden können! Das Label zeigt den Feldnamen an. Für die Feldtypen Boolean und Date werden als DataControl ComboBoxen respektive DateBoxen bereitgestellt. Die Daten werden somit kontrolliert eingegeben. Für die anderen Typen führt Gambas – in Abhängigkeit vom Datenbank-Datentyp – automatisch eine Prüfung durch.

Abbildung 18.10.4.1: Universeller DB-Manager

In der Abbildung 18.10.4.1 sehen Sie, wie Sie einerseits durch die Tabelle blättern können und andererseits auch durch den Inhalt der Scrollview. In den Mittelpunkt der Betrachtungen rückt jetzt die Prozedur, in der die o.a. Komponenten-Paare in der ScrollView (svwControl) generiert werden:

Private Sub GenerateControls()
  Dim hField As Field
  Dim hLabel As Label
  Dim hControl As DataControl
 
  For Each hField In $hConn.Tables[srcData.Table].Fields
  ' LABEL
    hLabel = New Label(svwControl)
    hLabel.Text = hField.Name
    hLabel.Move(0, 0, 100, 24)
 
  ' DB-KOMPONENTE
    hControl = New DataControl(svwControl)
    hControl.Move(100, 0, 100, 24)
    hControl.Expand = True
    hControl.Field = hField.Name
  Next ' hField
 
  svwControl.Visible = True
 
End ' GenerateControls()

Das vollständige Projekt des universellen Datenbankmanagers von Tobias Boege finden Sie im Download-Bereich. Es enthält im Ordner DBMuster eine SQLite3-Datenbank Kontakte.sqlite, deren Datenbanktabelle kontakt Sie bei der Erprobung des universellen DB-Managers verwenden können.