EdgeBrowser - Ein Dual-List Control

Ein kostenfreies Steuerelement für Microsoft Access, das zwei Listen nebeneinander zeigt. Der Anwender verschiebt Einträge per Klick oder Drag & Drop, VBA lädt sie hinein und liest das Ergebnis wieder aus – gerendert im acEdgeBrowser, angesprochen über eine schlanke Klasse.

Zwei Listen nebeneinander, dazwischen wandern Einträge hin und her: das ist ein Muster, das man in Access immer wieder braucht – Felder auswählen, Spalten zusammenstellen, Empfänger zuordnen. Mit Bordmitteln bleibt es umständlich. Der DualList Selector löst das als fertiges Steuerelement, das im acEdgeBrowser rendert und sich aus VBA über eine einzige Klasse ansprechen lässt.

Was das Steuerelement macht

Das Steuerelement zeigt eine Liste Available (verfügbar) und eine Liste Selected (ausgewählt). Der Anwender ordnet die Einträge an, die Anwendung liest sie danach aus. Alles läuft nach dem Prinzip Laden → Bearbeiten → Speichern:

1. VBA schiebt die beiden Listen einmal hinein.
2. Der Anwender arbeitet vollständig in der Seite – ohne VBA-Zugriffe.
3. VBA liest das Ergebnis nur dann, wenn es danach fragt.

Zwischen Laden und Speichern gibt es keine laufende Synchronisation. Das hält die Bedienung flüssig und die Formularlast gering.

In fünf Minuten eingebaut

Voraussetzung ist ein acEdgeBrowser-Steuerelement namens webDualList auf dem Formular. Der komplette Einbau:

Private WithEvents m_dl As clsDPdualList

Private Sub Form_Load()
    Set m_dl = New clsDPdualList
    m_dl.SetLists "Apple;Banana;Cherry", "Lemon;Mango"   ' gepuffert
    m_dl.InsertDelete = True
    Me.OnTimer = "[Event Procedure]"                      ' im Code erforderlich
    Me.TimerInterval = 250
End Sub

Private Sub Form_Timer()                 ' einmalig laden, wenn das Formular steht
    Me.TimerInterval = 0
    m_dl.Init Me.webDualList, "webDualList"
End Sub

Private Sub webDualList_DocumentComplete(URL As Variant)
    If Not m_dl Is Nothing Then m_dl.HandleNavigationComplete
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Not m_dl Is Nothing Then m_dl.Destroy
    Set m_dl = Nothing
End Sub

Das Ergebnis liest man beim Speichern in einem Aufruf:

Dim sAvail As String, sSel As String
m_dl.GetBoth sAvail, sSel

Bedienung

Diese Interaktionen finden vollständig in der Seite statt – ohne einen einzigen VBA-Aufruf:

Beim Ziehen zeigt eine Einfüge-Linie die Zielposition; zieht man den Cursor an den oberen oder unteren Rand, scrollt die Liste automatisch mit. Die Reihenfolge der Einträge bleibt erhalten und wird beim Auslesen zurückgemeldet.

Daten laden und lesen

Die Daten liegen wahlweise als Zeichenkette oder als Array vor. Als Zeichenkette:

m_dl.SetLists "Apple;Banana;Cherry", "Lemon;Mango"
' ... Anwender arbeitet ...
Dim sAvail As String, sSel As String
m_dl.GetBoth sAvail, sSel

Als Array:

Dim vAvail As Variant, vSel As Variant
m_dl.SetArrays Array("Apple", "Banana", "Cherry"), Array("Lemon", "Mango")
' ... Anwender arbeitet ...
m_dl.GetBothArrays vAvail, vSel

SetLists und SetArrays dürfen vor dem Laden aufgerufen werden – die Werte werden gepuffert und automatisch eingespielt, sobald die Seite bereit ist.

Eigenschaften und Grenzen

Einträge werden intern mit einem Semikolon aneinandergereiht.

Einbindung

Das Laufzeitpaket besteht aus drei Dateien, die in dieser Reihenfolge importiert und danach kompiliert werden:

DPcoreDL.bas            ' reduzierter, mitgelieferter Laufzeit-Kern
clsDPwebBridgeDL.cls    ' Kommunikationsbrücke Access <-> Seite
clsDPdualList.cls       ' das Steuerelement (die Seite ist darin eingebettet)

Der Kern DPcoreDL wird mitgeliefert; eine separate Installation entfällt. Der Namenszusatz DL sorgt dafür, dass mehrere freie DIETERLE-Komponenten kollisionsfrei in derselben Datenbank leben.

Download