<\/p>\n
Was soll das denn Steuerelemente verschieben – zur Laufzeit Soll der Benutzer nun aktiv in die Gestaltung der Benutzeroberfläche eingreifen Mitnichten: Es gibt jedoch eine Reihe ernsthafter Anwendungsfälle, bei denen das Verschieben von Steuerelementen Sinn macht. Einen haben wir im Beitrag €žSplitter für Formulare€œ bereits vorgestellt, aber es gibt noch mehr Gelegenheiten zum Einsatz dieser Technik, die wir hier grundlegend darstellen.<\/b><\/p>\n
Während der selbst programmierte Splitter aus dem Artikel Splitter für Formulare (Shortlink 397) rein der Optimierung der Benutzeroberfläche dient, gibt es auch Möglichkeiten, verschiebbare Steuerelemente zur Darstellung von Daten einzusetzen.<\/p>\n
Wie wäre es etwa mit einem Terminkalender, dessen Termine Sie nach Lust und Laune mit der Maus bewegen können – oder einer Raumplanung, die das Platzieren von Tischen und Stühlen erlaubt Davon sind wir jedoch noch ein Stück entfernt, denn zunächst ist ein Blick auf die grundlegende Technik nötig.<\/p>\n
Für den Start verwenden wir einfach ein Rechteck-Steuerelement, das Sie durch Anpassen einiger Eigenschaften ein wenig verschönern (siehe Bild 1). Der Schlüssel zum Bewegen eines Steuerelements ist ein VBA-Ereignis, das immer dann ausgelöst wird, wenn sich der Mauszeiger über dem Steuerelement befindet, dem das Ereignis zugeordnet ist. Es heißt Bei Mausbewegung <\/b>und löst die folgende Prozedur aus, die bereits mit einer Anweisung zum Ausgeben der durch die Parameter gelieferten Werte gefüllt ist:<\/p>\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/SteuerelementeVerschieben-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Dieses Rechteck-Steuerelement soll gleich in der Formularansicht durch die Gegend geschoben werden.<\/span><\/b><\/p>\n Diese Routine ist auch der erste Schritt auf dem Weg zum Verschieben eines Steuerelements: Wenn Sie nun das Access-Fenster und das VBA-Fenster so nebeneinander positionieren, dass Sie das Direktfenster sehen, können Sie einfach einmal mit der Maus mit und ohne gedrückte Maustasten über das Steuerelement fahren. Die Parameter lesen sich dabei wie folgt:<\/p>\n X <\/b>und Y <\/b>werden in Twips geliefert.<\/p>\n Steuerelement verschieben<\/b><\/p>\n Das Steuerelement soll nur verschoben werden, wenn der Benutzer die typische Drag-and-Drop-Mimik ausführt, also die Maustaste anklickt, während sich der Mauszeiger über dem Steuerelement befindet, und das Steuerelement verschiebt, wenn der Benutzer die Maus bei gedrückter Maustaste bewegt. Das lässt sich theoretisch einfach nachbilden: Sie brauchen sich nur einmal zu Beginn des Drag-and-Drop-Vorgangs die Position des Mauszeigers zu merken und passen dann bei jedem Aufruf von Bei Mausbewegung <\/b>die Position des Steuerelements über die durch die Maus zurückgelegte Strecke an.<\/p>\n Für die X-Komponenten bedeutet dies: X-Position des Mauszeigers merken, X-Position des Formulars ermitteln, alte X-Position des Mauszeigers von der neuen X-Position abziehen und X-Position des Formulars um diese Differenz ändern. Sie brauchen also zunächst zwei modulweit deklarierte Variablen zum Speichern der Startposition des Mauszeigers:<\/p>\n Diese ermitteln Sie einmalig beim Herunterdrücken der linken Maustaste:<\/p>\n Die folgende Routine wird nicht etwa in festen zeitlichen Intervallen, sondern beim Verschieben des Mauszeigers um eine bestimmte Entfernung in eine der beiden Richtungen ausgelöst. Sie prüft, ob die linke Maustaste gedrückt ist, und stellt die Top<\/b>– und die Left<\/b>-Eigenschaften des Steuerelements ein, die für seine Position verantwortlich sind.<\/p>\n Beim Ausprobieren dieser Technik werden Sie schnell an deren Grenzen stoßen – genau dann nämlich, wenn das Steuerelement an die Grenzen des Formulars stößt. Wenn die Routine versucht, das Steuerelement aus dem Formular herauszubewegen, löst dies eine Fehlermeldung aus. Dies umgehen Sie durch aufwändige Prüfungen oder durch Hinzufügen der folgenden Zeile in den Kopf der Routine:<\/p>\n Größe des Steuerelements verändern<\/b><\/p>\n Wenn Sie ein Steuerelement schon zur Laufzeit verschieben, können Sie auch seine Größe anpassen.<\/p>\n Das soll aus Gründen der Einfachheit nur funktionieren, wenn der Benutzer das Steuerelement mit dem Mauszeiger an der rechten oder unteren Kante €žanfasst€œ.<\/p>\n Das Wichtigste ist, dass der Benutzer weiß, dass er das Steuerelement nun nicht verschiebt, sondern vergrößert oder verkleinert. Und dazu ändern Sie den Mauszeiger in eine entsprechende Linie mit zwei Pfeilspitzen – genau so wie in Bild 2.<\/p>\n Bild 2: Anzeigen eines alternativen Mauszeigers beim Óndern der Größe eines Steuerelements<\/span><\/b><\/p>\n Das Óndern des Mauszeigers ist relativ einfach: Sie erreichen dies durch den Befehl Screen.MousePointer = 9<\/b>, für den gleichen Pfeil in vertikaler Ausrichtung geben Sie den Wert 11 <\/b>an.<\/p>\n Damit der jeweilige Mauszeiger nur am rechten beziehungsweise unteren Rand erscheint, fügen Sie eine kleine If…Then<\/b>-Bedingung ein, die prüft, ob sich der Pfeil innerhalb eines Bereichs von 100 Twips links vom rechten Rand oder oberhalb vom unteren Rand befindet. Falls dies der Fall ist, müssen Sie noch prüfen, ob der Benutzer bei der Mausbewegung auch noch die linke Maustaste geklickt hat: Dann ändern Sie den Wert der Eigenschaften Width <\/b>beziehungsweise Height <\/b>des Steuerelements entsprechend.<\/p>\n Das folgende Listing zeigt die Ereignisprozedur, die beim Bewegen der Maus ausgelöst wird, im Zusammenhang:<\/p>\n <\/p>\n Bei schnellen Bewegungen kann es passieren, dass die Maus den Steuerelementrand €žloslässt€œ. Dieses kleine Problem beheben Sie durch einige weitere Codezeilen, die prüfen, ob seit dem letzten Verändern der Größe der Mauszeiger losgelassen wurde. Falls nicht, verändert die Routine weiterhin die Größe des Steuerelements und nicht die Größe. Die fertige Routine finden Sie im Formular frmSteuerelementeVerschieben <\/b>in der Beispieldatenbank. Damit der Mauszeiger beim Verlassen des Steuerelements wieder wie üblich aussieht, legen Sie noch die folgende Prozedur für das Ereignis Bei Mausbewegung <\/b>des Detailbereichs an:<\/p>\n Viele veränderbare Steuerelemente<\/b><\/p>\n Wenn Sie mehrere solcher Steuerelemente in einem Formular unterbringen möchten, macht es wenig Spaß, alle von Hand anzulegen.<\/p>\n Stattdessen verwenden Sie eine kleine Hilfsroutine, die wie in Listing 1 aussieht. Die Routine erstellt eine Reihe Rectangle<\/b>-Elemente und fügt diese einfach links oben in das Formular ein. Die Steuerelemente werden von rct01 <\/b>bis rctxx <\/b>benannt.<\/p>\n Listing 1: Diese Funktion erstellt automatisch zehn Rechteck-Steuerelemente.<\/p>\n Nun ist es so, dass es recht eintönig ist, für alle Steuerelemente die benötigten Ereignisprozeduren anzulegen – schlechte Laune ist dabei ebenso vorprogrammiert wie Tippfehler. Wer nicht gern mal was Kompliziertes in Angriff nimmt, sollte hier nicht weiterlesen – dieser Teil bis zur nächsten Zwischenüberschrift ist für echte Profis gedacht.<\/p>\n Im Folgenden werden Sie zwei Klassen und eine Collection<\/b> anlegen, mit denen Folgendes passiert:<\/p>\n Der Code im Formular besteht nur aus wenigen Zeilen:<\/p>\n Auch der Code der Klasse clsCodeFrmBeispiel <\/b>ist nicht besonders umfangreich. <\/p>\n Die Klasse clsCodeRectangle <\/b>ist, wenn man den Code der drei Ereignisprozeduren zusammenstreicht, ebenfalls überschaubar:<\/p>\n Mit der oben genannten Hilfsfunktion zum Anlegen von Rechtecken und den dynamisch hinzugefügten Ereignisprozeduren können Sie immerhin 341 Rechteck-Steuerelemente zum Formular hinzufügen und durch die Gegend schieben. Also, wenn Sie mal nichts zu tun haben … Aber Scherz beiseite: Natürlich gibt es Anwendungsfälle für so etwas und üblicherweise sollte die Anzahl der Steuerelemente auch ausreichen.<\/p>\n Wichtig ist natürlich, dass Sie auch sämtliche anderen Steuerelemente anstatt der hier aus optischen Gründen verwendeten Rechtecke einsetzen. Sie sollten allerdings sicherstellen, dass sich die Steuerelemente leicht verschieben lassen – bei einem Textfeld wird dies beispielsweise schwierig, weil man hier entweder nur den Cursor im angezeigten Text platzieren oder das Steuerelement mit der Maus verschieben kann.<\/p>\n Wenn Sie also beispielsweise Kalendereinträge durch die Steuerelemente darstellen möchten, verwenden Sie doch einfach normale Beschriftungsfelder, die etwa den Termin-Text anzeigen, und wandeln Sie diese beim Doppelklick in ein Textfeld um. Um die Anzahl der Steuerelemente brauchen Sie sich immer noch nicht zu sorgen, denn Sie brauchen ja nur auf eines der 341 übrigen Steuerelemente zugunsten des Textfelds zu verzichten – mehr als eines kann der Benutzer ja ohnehin nicht bearbeiten.<\/p>\n Und wer bis hierhin mitgelesen hat, soll natürlich auch noch mit einem Screenshot des Ergebnisses belohnt werden – siehe Bild 3.<\/p>\n Bild 3: Das Formular frmBeispiel lädt zum fröhlichen Rechteck-Verschieben ein.<\/span><\/b><\/p>\n Positionen speichern<\/b><\/p>\n Interessant ist es natürlich, den Steuerelementen Daten zuzuordnen und umgekehrt. In der einfachen Erweiterung des vorliegenden Beispiels soll sich das Formular beim Schließen die Position der Rechtecke merken und diese beim Ã-ffnen wieder herstellen.<\/p>\n Dazu brauchen Sie eine Tabelle namens tblRechtecke<\/b>, die mit den Feldern RechteckID<\/b>, Bezeichnung<\/b>, PositionX<\/b>, PositionY<\/b>, SizeX <\/b>und SizeY <\/b>ausgestattet ist. Dem Formular fügen Sie eine Schaltfläche namens cmdOK <\/b>hinzu, die im Wesentlichen alle Steuerelemente durchläuft, schaut, ob diese mit rct <\/b>beginnen, und ihre Daten in die Tabelle schreibt:<\/p>\n Nicht viel anders agieren die Codezeilen, die Sie der Ereignisprozedur Beim Laden <\/b>hinzufügen. Diese durchlaufen ebenfalls die Steuerelemente und suchen aus der Tabelle die passenden Informationen, um sie den Steuerelementen zuzuweisen:<\/p>\n Rahmen aufziehen<\/b><\/p>\n Und da wir gerade bei Experimenten mit Rechtecken sind: Möglicherweise möchten Sie dem Benutzer ja irgendwann einmal die Möglichkeit bieten, einen Rahmen aufzuziehen – beispielsweise, um mehrere der just kreierten Rechtecke gleichzeitig zu erfassen. Hier beschränken wir uns auf einen einzigen Rahmen, ein Ausgliedern von Funktionalität in externe Klassen ist hier nicht notwendig. Sie brauchen zwei Variablen, mit denen Sie sich die Position beim Start des Aufziehens merken können:<\/p>\n Außerdem bauen Sie ein unsichtbares Rechteck mit transparentem Hintergrund und schwarzem Rahmen in das Zielformular ein. Es soll rctRahmen <\/b>heißen. Die MouseDown<\/b>-Ereignisprozedur beginnt, wenn der Benutzer eine Maustaste herunterdrückt, und merkt sich die Position des Mauszeigers zu diesem Zeitpunkt. Wenn der Benutzer den linken Mauszeiger gedrückt hat, macht die Routine das Rechteck sichtbar und ganz klein, Letzteres durch das Einstellen der beiden Eigenschaften Width <\/b>und Height <\/b>auf den Wert 0<\/b>.<\/p>\n Danach wird der Benutzer den Mauszeiger zweifelsohne entweder irgendwohin ziehen oder aber die Schaltfläche wieder loslassen. Ersteres führt zum Aufruf der folgenden Routine: Sie prüft zunächst, ob der Benutzer den Mauszeiger möglicherweise links oder oben aus dem Formular herauszieht, und setzt die von der Prozedur übermittelten Werte für X <\/b>und Y <\/b>auf den Wert 0<\/b>. Hält der Benutzer den Mauszeiger immer noch gedrückt, passen die innerhalb der If Button = 1<\/b>-Bedingung enthaltenen Anweisungen das Rechteck-Steuerelement so an, dass es immer zwischen dem Startpunkt und der aktuellen Position des Mauszeigers aufgezogen wird.<\/p>\n Lässt der Benutzer schließlich die Mausschaltfläche los, verschwindet das aufgezogene Rechteck wieder:<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Ideen für den Einsatz der hier vorgestellten und darauf aufbauenden Techniken gibt es ausreichend. Sie könnten beispielsweise eine der verschiedenen Kalenderansichten nachbilden – zum Beispiel eine Wochen- oder Tagesübersicht. Wie das funktioniert, erfahren Sie in der Lösung Tageskalender-Formular <\/b>in der nächsten Ausgabe (Shortlink 576).<\/p>\n Der Nachteil der hier vorgestellten Technik ist, dass Sie die benötigten Steuerelemente in ausreichender Zahl bereitstellen müssen. Sie sollten also vor dem Einsatz prüfen, ob der Anwendungsfall zu den technischen Möglichkeiten dieser Lösung passt.<\/p>\n Enthaltene Beispieldateien:<\/p>\n SteuerelementeVerschieben.mdb<\/p>\nPrivate Sub rctBeispiel_MouseMove(Button As _\r\n Integer, Shift As Integer, X As Single, _\r\n Y As Single)\r\n Debug.Print Button, Shift, X, Y\r\n End Sub<\/pre>\n
\n
Dim lngXStart As Long\r\nDim lngYStart As Long<\/pre>\n
Private Sub rctBeispiel_MouseDown(Button As _\r\n Integer, Shift As Integer, X As Single, _\r\n Y As Single)\r\n If Button = 1 Then\r\n lngXStart = X\r\n lngYStart = Y\r\n End If\r\n End Sub<\/pre>\n
Private Sub rctBeispiel_MouseMove(Button As _\r\n Integer, Shift As Integer, X As Single, _\r\n Y As Single)\r\n If Button = 1 Then\r\n With rctBeispiel\r\n .Top = .Top + Y - lngYStart\r\n .Left = .Left + X - lngXStart\r\n End With\r\n End If\r\n End Sub<\/pre>\n
On Error Resume Next<\/pre>\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/SteuerelementeVerschieben-web-images\/pic002_opt.jpeg\")
<\/p>\nPrivate Sub rctBeispiel_MouseMove(Button As _\r\n Integer, Shift As Integer, X As Single, _\r\n Y As Single)\r\n On Error Resume Next\r\n With rctBeispiel\r\n If X > .Width - 100 Then\r\n If Button = 1 Then\r\n .Width = .Width + X - lngXStart\r\n lngXStart = X\r\n End If\r\n Screen.MousePointer = 9\r\n ElseIf Y > .Height - 100 Then\r\n Screen.MousePointer = 7\r\n If Button = 1 Then\r\n .Height = .Height + Y - lngYStart\r\n lngYStart = Y\r\n End If\r\n Else\r\n Screen.MousePointer = 1\r\n If Button = 1 Then\r\n .Top = .Top + Y - lngYStart\r\n .Left = .Left + X - lngXStart\r\n End If\r\n End If\r\n End With\r\n End Sub<\/pre>\n
Private Sub Detailbereich_MouseMove(Button _\r\n As Integer, Shift As Integer, X As _\r\n Single, Y As Single)\r\n Screen.MousePointer = 1\r\n End Sub<\/pre>\n
Public Sub Steuerelemente()\r\nDim frm As Form\r\nDim ctl As Control\r\nDim i As Integer\r\nDoCmd.OpenForm €œfrmBeispiel€, View:=acDesign, WindowMode:=acHidden\r\nSet frm = Forms!frmBeispiel\r\nFor i = frm.Controls.Count - 1 To 0 Step -1\r\n Application.DeleteControl frm.Name, frm.Controls(i).Name\r\nNext i\r\nFor i = 1 To 20\r\n Set ctl = Application.CreateControl(frm.Name, acRectangle, acDetail, , €œctl€ & i)\r\n ctl.Properties(€œName€) = €œrct€ & Format(i, €œ000€)\r\n ctl.Properties(€œBackStyle€) = €œ1€\r\n ctl.Properties(€œBackColor€) = €œ&hcccccc€\r\n Debug.Print i\r\nNext i\r\nDoCmd.Close acForm, €œfrmBeispiel€, acSaveYes\r\nEnd Sub<\/pre>\n
\n
Dim objCode As clsCodeFrmBeispiel\r\nPrivate Sub Form_Load()\r\n Set objCode = New clsCodeFrmBeispiel\r\n Set objCode.HostForm = Me\r\n End Sub<\/pre>\n
Private colControls As Collection\r\nPrivate WithEvents mForm As Form\r\nPrivate objRectangle As clsCodeRectangle\r\nPrivate WithEvents mDetailbereich As Section\r\nPublic Property Set HostForm(frm As Form)\r\nDim ctl As Control\r\nSet mForm = frm\r\nSet mDetailbereich = mForm.Section(0)\r\nSet colControls = New Collection\r\nmDetailbereich.OnMouseMove = _\r\n€œ[Event Procedure]€\r\nFor Each ctl In mForm.Controls\r\n If Left(ctl.Name, 3) = €œrct€ Then\r\n Set objRectangle = _\r\n New clsCodeRectangle\r\n Set objRectangle.HostRectangle = ctl\r\n colControls.Add objRectangle\r\n End If\r\nNext ctl\r\nEnd Property\r\nPrivate Sub mDetailbereich_MouseMove(...)\r\n Screen.MousePointer = 1\r\n End Sub<\/pre>\n
Private WithEvents mRectangle As Rectangle\r\nPrivate mXStart As Long\r\nPrivate mYStart As Long\r\nPrivate mSizeX As Boolean\r\nPrivate mSizeY As Boolean\r\nPrivate mPos As Boolean\r\nPublic Property Set HostRectangle(objRectangle _\r\nAs Rectangle)\r\nSet mRectangle = objRectangle\r\nmRectangle.OnMouseDown = €œ[Event Procedure]€\r\nmRectangle.OnMouseMove = €œ[Event Procedure]€\r\nmRectangle.OnMouseUp = €œ[Event Procedure]€\r\nEnd Property\r\nPrivate Sub mRectangle_MouseDown(...)\r\n ...\r\n End Sub\r\nPrivate Sub mRectangle_MouseMove(...)\r\n ...\r\n End Sub\r\nPrivate Sub mRectangle_MouseUp(...)\r\n ...\r\n End Sub<\/pre>\n
![\"missing](\"..\/fileadmin\/_temp_\/2008_02\/SteuerelementeVerschieben-web-images\/pic003_opt.jpeg\")
<\/p>\nSet rst = db.OpenRecordset(€œtblRechtecke€, _\r\ndbOpenDynaset)\r\nFor Each ctl In Me.Controls\r\n Debug.Print ctl.Name\r\n If Left(ctl.Name, 3) = €œrct€ Then\r\n rst.FindFirst €œBezeichnung = €š€œ & ctl.Name & €œ€€œ\r\n If rst.NoMatch Then\r\n rst.AddNew\r\n rst!Bezeichnung = ctl.Name\r\n Else\r\n rst.Edit\r\n End If\r\n rst!PositionX = ctl.Left\r\n rst!PositionY = ctl.Top\r\n rst!SizeX = ctl.Width\r\n rst!SizeY = ctl.Height\r\n rst.Update\r\n End If\r\nNext ctl<\/pre>\n
Set rst = db.OpenRecordset(€œtblRechtecke€, _\r\ndbOpenDynaset)\r\nFor Each ctl In Me.Controls\r\n If Left(ctl.Name, 3) = €œrct€ Then\r\n rst.FindFirst €œBezeichnung = €š€œ _\r\n & ctl.Name & €œ€€œ\r\n If Not rst.NoMatch Then\r\n ctl.Left = rst!PositionX\r\n ctl.Top = rst!PositionY\r\n ctl.Width = rst!SizeX\r\n ctl.Height = rst!SizeY\r\n End If\r\n End If\r\nNext ctl<\/pre>\n
Dim lngStartX As Long\r\nDim lngStartY As Long<\/pre>\n
Private Sub Detailbereich_MouseDown(...)\r\n lngStartX = X\r\n lngStartY = Y\r\n If Button = 1 Then\r\n With Me.rctRahmen\r\n .Visible = False\r\n .Width = 0\r\n .Height = 0\r\n End With\r\n End If\r\n End Sub<\/pre>\n
If X < 0 Then X = 0\r\nIf Y < 0 Then Y = 0\r\nIf Button = 1 Then\r\n With Me.rctRahmen\r\n .Visible = True\r\n .Left = lngStartX\r\n .Top = lngStartY\r\n If X - .Left > 0 Then\r\n .Left = lngStartX\r\n .Width = X - .Left\r\n Else\r\n .Left = X\r\n .Width = lngStartX - X\r\n End If\r\n If Y - .Top > 0 Then\r\n .Top = lngStartY\r\n .Height = Y - .Top\r\n Else\r\n .Top = Y\r\n .Height = lngStartY - Y\r\n End If\r\n End With\r\nEnd If<\/pre>\n
Private Sub Detailbereich_MouseUp(...)\r\n Me.rctRahmen.Visible = False\r\n End Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n