<\/p>\n
Wenn Sie Formular in der Datenblattansicht anzeigen, bietet die Benutzeroberfläche von Access bereits alles Nötige, um damit zu arbeiten. Alles Nötige Nein: Es gibt noch eine Reihe Dinge, die Sie mit dem Datenblatt anstellen können – zum Beispiel das Auslesen oder Einstellen von Markierungen. Dieser Beitrag zeigt, wie Sie die aktuell markierten Zellen im Datenblatt ermitteln und diese nach Ihren Wünschen einstellen. Außerdem packen wir die dazu notwendige Funktionalität in eine wiederverwendbare Klasse.<\/b><\/p>\n
Datenblatt im Formular<\/b><\/p>\n
Das Anlegen eines Formular, das seine Daten in der Datenblattansicht anzeigt, gelingt schnell: Sie brauchen lediglich ein neues Formular anzulegen, die gewünschte Tabelle oder Abfrage als Datenherkunft festzulegen, alle benötigten Felder aus der Feldliste in den Detailbereich des Formularentwurfs zu ziehen und als Standardansicht den Wert Datenblatt auszuwählen – schon liefert das Formular beim erneuten öffnen die ersehnte Ansicht.<\/p>\n
In Bild 1 landen beispielsweise gerade die Felder der Tabelle tblArtikel <\/b>im Detailbereich. Im Gegensatz zur Formular- oder Endlosansicht können Sie neben den Zeilen und Spalten keine weiteren Elemente wie eine OK<\/b>-Schaltfläche im Formular unterbringen, weshalb ein Formular in der Datenblattansicht üblicherweise als Unterformular in einem weiteren Formular landet, welches die benötigten Steuerelemente enthält (s. Bild 2).<\/p>\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2013_05\/pic_901_001.png\")
<\/p>\n
Bild 1: Hinzufügen der Felder für die Datenblattansicht<\/span><\/b><\/p>\n Bild 2: Datenblatt als Unterformular<\/span><\/b><\/p>\n Markierungsarten<\/b><\/p>\n Die Datenblattansicht bietet gleich eine ganze Reihe von Möglichkeiten, um bestimmte Bereiche mit der Maus zu markieren:<\/p>\n Aktuelle Markierung ermitteln<\/b><\/p>\n Nun möchten wir ermitteln, welche Zellen der Benutzer markiert hat. Dazu verwenden Sie vier Eigenschaften des Formulars:<\/p>\n Für ein paar Experimente haben wir dem Hauptformular frmArtikel <\/b>vier Textfelder namens txtSelLeft<\/b>, txtSelWidth<\/b>, txtSelTop <\/b>und txtSelHeight <\/b>hinzugefügt (s. Bild 3). Die Schaltfläche cmdAktualisieren <\/b>liest per Mausklick die Koordinaten der aktuellen Markierung im Unterformular ein und schreibt diese in die entsprechenden Textfelder (s. Listing 1).<\/p>\n Bild 3: Ermitteln der Koordinaten der aktuellen Markierung<\/span><\/b><\/p>\n Aber was ist das Die beiden Felder txtSelWidth <\/b>und txtSelHeight <\/b>zeigen immer den Wert 0 <\/b>an Dies liegt daran, dass die Markierung beim Anklicken der Schaltfläche cmdAktualisieren <\/b>entfernt wird und nur noch die Einfügemarke in der oberen linken Zelle der Markierung verbleibt. Was tun Wir müssen die Markierung ermitteln, ohne dass diese gelöscht wird.<\/p>\n Markierung direkt ermitteln<\/b><\/p>\n Um die Markierung direkt beim Festlegen zu ermitteln, müssen wir einen geeigneten Zeitpunkt abpassen oder noch besser ein passendes Ereignis. Wir verwenden das Ereignis Bei Maustaste auf<\/b>, das beim Loslassen der Maustaste ausgelöst wird. Aber für welches Objekt legen wir dieses Ereignis fest Probieren wir es doch zunächst mit dem Unterformular selbst aus. Legen Sie also für das Unterformular sfmArtikel <\/b>den Wert [Ereignisprozedur] <\/b>für die Eigenschaft Bei Maustaste <\/b>auf an, klicken Sie auf die Schaltfläche mit den drei Punkten und legen Sie die Ereignisprozedur aus Listing 2 an.<\/p>\n Listing 2: Auslesen der Markierung beim Ereignis Bei Maustaste auf des Formulars in der Datenblattansicht<\/span><\/b><\/p>\n Dies funktioniert – zumindest schon einmal für das komplett markierte Datenblatt (s. Bild 4). Eine Frage bleibt allerdings noch: Warum liefert SelLeft <\/b>immer den Wert 2 <\/b>– und welche ist die erste Spalte im Datenblatt Wir konnten keine Antwort auf diese Frage finden – selbst die Onlinehilfe schweigt sich darüber aus und gibt stattdessen an, dass SelLeft <\/b>einen Wert zwischen 1 <\/b>und der Spaltenanzahl des Datenblattes liefert.<\/p>\n Bild 4: Die komplette Markierung wird gleich nach dem Loslassen der Maustaste angezeigt.<\/span><\/b><\/p>\n Und warum liefert die Eigenschaft SelHeight <\/b>den Wert 78<\/b>, obwohl das Datenblatt nur 77 <\/b>Datensätze anzeigt Diese Antwort fällt leichter: Weil die zugrunde liegende Tabelle\/Abfrage aktualisierbar ist und daher immer ein neuer, leerer Datensatz im Datenblatt angezeigt und auch als Datensatz mitgezählt wird.<\/p>\n Zellengenaue Markierung einlesen<\/b><\/p>\n Fehlt noch die Möglichkeit, auch die Markierung einzulesen, wenn der Benutzer beispielsweise zwei Zellen mitten in der Tabelle markiert oder eine Matrix von vier mal vier Zellen.<\/p>\n Wir können den Lösungsansatz von oben übernehmen: Es gelingt ganz einfach mit einer Prozedur, die durch das Ereignis Bei Maustaste auf <\/b>ausgelöst wird. Allerdings müssten wir dieses nun für alle Steuerelemente anlegen.<\/p>\n Probieren wir es doch zunächst einmal für das erste Textfeld ArtikelID<\/b>. Legen Sie das Ereignisprozedur über das Eigenschaftsfenster an (s. Bild 5).<\/p>\n Bild 5: Anlegen des Bei Maustaste auf-Ereignisses für ein Textfeld des Datenblatts<\/span><\/b><\/p>\n Dann füllen Sie die entstandene Prozedur wie in Listing 3. Dies funktioniert – allerdings müssten wir nun für zehn verschiedene Steuerelemente (in diesem Beispiel – gegebenenfalls sogar noch mehr) die gleiche Ereignisprozedur anlegen. Das können Sie nun tun – aber wenn Sie die Funktionalität auch noch in weiteren Formularen nutzen möchten, müssen Sie diesen Vorgang jedes Mal wiederholen.<\/p>\n Listing 3: Auslesen der Datenblattmarkierung nach dem Anklicken eines der Elemente der Spalte ArtikelID.<\/span><\/b><\/p>\n Markierung mit Klasse<\/b><\/p>\n Also bauen wir uns zwei Klassenmodule, in die wir die Funktionalität kapseln. Wir wollen dann vom Hauptformular aus nur noch wenige Zeilen Code schreiben, um ständig an die Markierung im Datenblatt zu kommen – und außerdem ganz einfach auf die Koordinaten der Markierungen zugreifen können.<\/p>\n Das Beispiel zum Einbau dieser Klasse finden Sie in den beiden Formularen frmArtikel_Klasse <\/b>und sfmArtikel_Klasse<\/b>. Für das Hauptformular müssen Sie ohnehin ein Klassenmodul anlegen, für das Unterformular auch – anderenfalls kann die Klasse nicht die Ereignisse des Unterformulars und der enthaltenen Steuerelemente nutzen.<\/p>\n Einbau in Haupt- und Unterformular<\/b><\/p>\n Um die beiden Klassen zu integrieren, benötigen Sie zunächst eine Objektvariable, welche den Verweis auf das Objekt auf Basis der Klasse clsDatasheetSelectionForm <\/b>speichert.<\/p>\n Die Klasse stellt ein Ereignis bereit, das beim ändern der Markierung ausgelöst wird – also müssen wir die Objektvariable mit dem Schlüsselwort WithEvents <\/b>deklarieren:<\/p>\n Als nächstes sorgen Sie dafür, dass die Klasse instanziert wird und erfährt, für welches Formular es die änderungen der Datenblattmarkierung überprüfen und gegebenenfalls Ereignisse auslösen soll.<\/p>\n Dies erledigen Sie in der durch das Ereignis Beim Laden <\/b>des Hauptformulars ausgelösten Prozedur aus Listing 4.<\/p>\n <\/p>\n Listing 4: Instanzieren und füllen der Klasse zum überwachen der Markierung des Datenblatts<\/span><\/b><\/p>\n Nun haben wir von einem Ereignis gesprochen, dass die Klasse clsDatasheetSelectionForm <\/b>bereitstellt. Dieses fügen Sie zum Klassenmodul des Formulars hinzu, indem Sie im linken Kombinationsfeld des Codefensters des Klassenmoduls den Eintrag objDatasheetSelection <\/b>auswählen und rechts den Namen der zu implementierenden Ereignisprozedur, hier SelectionChanged<\/b> (s. Bild 6).<\/p>\n Bild 6: Anlegen des einzigen Ereignisses des Objekts objDatasheetSelection<\/span><\/b><\/p>\n Die dadurch angelegte Ereignisprozedur, die mit den Parametern intSelLeft<\/b>, intSelWidth<\/b>, intSelTop <\/b>und intSelHeight <\/b>die Position und die Höhe und Breite der Markierung zurückliefert, füllen Sie für dieses Beispiel mit den vier Anweisungen aus Listing 5. Die Anweisungen füllen die Textfelder des Formulars mit den Markierungskoordinaten.<\/p>\n Listing 5: Implementierung der Ereignisprozedur SelectionChanged der Klasse clsDatasheetSelectionForm<\/span><\/b><\/p>\n Die Klasse clsDatasheetSelectionForm<\/b><\/p>\n Die erste Klasse clsDatasheetSelectionForm <\/b>hat die Hauptaufgabe, auf das MouseUp<\/b>-Ereignis des angegebenen Formulars zu reagieren und das oben beschriebene Ereignis auszulösen. Außerdem soll es beim Instanzieren für jedes im Formular enthaltene Steuerelement ein Objekt des Typs clsDatasheetSelectionControl <\/b>anlegen und diese in einer Collection <\/b>speichern. Diese wiederum sollen auf das MouseUp<\/b>-Ereignis der Steuerelemente horchen und der Klasse clsDatasheetSelectionForm <\/b>mitteilen, wenn ein solches Ereignis in einem der Formulare eingetreten ist.<\/p>\n Die Klasse clsDatasheetSelection <\/b>deklariert zu diesem Zweck zunächst die folgenden beiden Variablen:<\/p>\n m_Form<\/b> speichert einen Verweis auf das zu überwachende Formular (mit WithEvents<\/b>, da das MouseUp<\/b>-Ereignis ja implementiert werden soll), colControls <\/b>die Objekte, die für jedes der Steuerelemente des Formulars angelegt werden.<\/p>\n Den Hauptteil der Arbeit in der Klasse clsDatasheetSelectionForm <\/b>erledigt die Property Set<\/b>-Methode aus Listing 6. Sie erwartet zunächst den Verweis auf das zu verwendende Formular in der Datenblattansicht und weist diesen der Variablen m_Form <\/b>zu. Da das MouseUp<\/b>-Ereignis implementiert werden soll, erhält die Eigenschaft OnMouseUp <\/b>den Wert [Event Procedure]<\/b>.<\/p>\n Listing 6: Die Property Set-Prozedur, die der Klasse einen Verweis auf das zu überwachende Formular übergibt und weitere Schritte durchführt.<\/span><\/b><\/p>\n Danach instanziert die Prozedur die Objektvariable colControls <\/b>mit einem neuen Collection<\/b>-Objekt. Sie durchläuft in einer For Each<\/b>-Schleife alle Steuerelemente des Formulars über die Controls<\/b>-Auflistung des mit m_Form <\/b>referenzierten Formulars und speichert den Verweis auf das aktuelle Steuerelement jeweils in der Variablen ctl<\/b>.<\/p>\n Nun muss die Prozedur herausfinden, ob ctl <\/b>ein gebundenes Steuerelement ist oder nicht, also beispielsweise ein Bezeichnungsfeld. Dies ermitteln wir mithilfe der Eigenschaft ControlSource <\/b>des Steuerelements. Da diese aber auch nur bei Steuerelementen vorhanden ist, die man auch an ein Feld der Datenherkunft binden kann, löst der Zugriff auf diese Eigenschaft etwa bei einem Bezeichnungsfeld einen Fehler aus. Also leeren wir zunächst eine String<\/b>-Variable namens strControlSource<\/b>, deaktivieren dann die Fehlerbehandlung und versuchen, den Wert der Eigenschaft ControlSource <\/b>des aktuell mit ctl <\/b>referenzierten Steuerelements zu ermitteln. Die Variable strControlSource <\/b>wird dementsprechend nur gefüllt, wenn die Eigenschaft Steuerelementinhalt <\/b>gefüllt, das Steuerelement also gebunden ist.<\/p>\n Hat strControlSource <\/b>nach diesem Prozedere einen Wert, handelt es sich um ein gebundenes Steuerelement und es soll eine Instanz der Klasse clsDatasheetSelectionControl <\/b>für dieses Steuerelement angelegt werden. Die Prozedur erzeugt also eine neue Instanz der Klasse clsDatasheetSelectionControl <\/b>und speichert einen Verweis darauf in der Variablen objDatasheetSelectionControl<\/b>. Eine solche Instanz erwartet zwei Informationen:<\/p>\n MouseUp-Ereignis<\/b><\/p>\n Nun soll die Klasse ein Ereignis auslösen, wenn ein Mausklick des Benutzers auf einen der Spalten- oder Zeilenköpfe das Ereignis Bei Maustaste ab <\/b>auslöst. Dazu gehören zwei Elemente: erstens die Implementierung der Ereignisprozedur MouseUp <\/b>des mit der Variablen m_Form <\/b>referenzierten Formulars und zweitens das Auslösen eines in der Klasse definierten Ereignisses.<\/p>\n Die Implementierung des MouseUp<\/b>-Ereignisses finden Sie in Listing 7. Die Prozedur erledigt nur eine einzige Aufgabe: Sie löst das Ereignis SelectionChanged dieser Klasse aus und übergibt mit SelLeft<\/b>, SelWidth<\/b>, SelTop <\/b>und SelHeight <\/b>die aktuellen Markierungsdaten des Datenblatts so, dass diese einer Implementierung dieser Ereignisprozedur als Parameter übergeben werden.<\/p>\n Listing 7: Implementierung des Ereignisse Bei Maustaste ab des mit m_Form referenzierten Formulars in der Datenblattansicht<\/span><\/b><\/p>\n Die Deklaration dieser Ereignisprozedur innerhalb einer Klasse, die von der Klasse selbst ausgelöst wird, sieht wie folgt aus:<\/p>\n Fehlt noch ein Element, nämlich das Bindeglied zwischen den Instanzen der Klassen clsDatasheetSelectionForm<\/b> und clsDatasheetSelectionControl<\/b>. Dies ist die öffentlich deklarierte Prozedur aus Listing 8. Die Prozedur wird von der Klasse clsDatasheetSelectionControl <\/b>aus aufgerufen, wenn der Benutzer auf das darin referenzierte Steuerelement klickt und die Maustaste loslässt. Dies löst das MouseUp<\/b>-Ereignis des entsprechenden Steuerelements und die passende Ereignisprozedur aus, die lediglich die Prozedur MouseUp <\/b>der Klasse clsDatasheetSelectionForm <\/b>aufruft.<\/p>\n Listing 8: Diese Prozedur kann von außen aufgerufen werden, also beispielsweise von der Klasse clsDatasheetSelectionControl aus.<\/span><\/b><\/p>\n Steuerelement-Klasse<\/b><\/p>\n Die Property Get<\/b>-Prozedur der Klasse clsDatasheetSelectionForm<\/b>, die den Verweis auf das Formular entgegennimmt, legt für jedes gebundene Steuerelement im Formular eine Instanz der Klasse clsDatasheetSelectionControl <\/b>an.<\/p>\n Diese soll genau ein Ereignis des jeweiligen Steuerelements implementieren, und zwar – Sie ahnen es bereits – das Ereignis Bei Maustaste auf<\/b>. Dazu benötigen wir wieder eine entsprechende Objektvariable für das Steuerelement, die mit dem Schlüsselwort WithEvents <\/b>deklariert ist.<\/p>\n Dummerweise wissen wir bei der übergabe des Steuerelements noch nicht, um welchen Steuerelementtyp es sich handelt. Deshalb nimmt die Klasse das Steuerelement zunächst über eine Property Get<\/b>-Methode mit einer Variablen des Typ Control <\/b>auf – diesem können Sie beliebige eingebaute Access-Steuerelemente übergeben (s. Listing 9). <\/p>\n Listing 9: Diese Property Get-Prozedur nimmt den Verweis auf das Steuerelement entgegen, das die Klasse clsDatasheetSelectionControl kapseln soll.<\/span><\/b><\/p>\n Diese Prozedur prüft zunächst den Wert der Eigenschaft ControlType<\/b>, also den Steuerelementtyp des übergebenen Steuerelements. Je nachdem, ob es sich um ein Textfeld, ein Kombinationsfeld oder ein Kontrollkästchen handelt (dies sind die drei in der Datenblattansicht verwendeten Typen), übergibt die Prozedur den Inhalt der Variablen ctl <\/b>an eine dem Typ entsprechende Objektvariable. Da diese mit Ereignissen implementiert werden sollen, müssen diese modulweit mit dem Schlüsselwort WithEvents <\/b>deklariert werden – und zwar so:<\/p>\n Nach der Zuweisung an die entsprechende Variable legt die Prozedur noch fest, dass die Klasse auf Aufrufe des Ereignisses OnMouseUp <\/b>des Steuerelements lauschen soll. Fehlt noch die Implementierung der Ereignisprozeduren selbst. Die Grundgerüste der Prozeduren legen Sie wiederum über die beiden Kombinationsfelder im Kopf des Codefensters des Klassenmoduls clsDatasheetSelectionControl <\/b>an. Alle drei Ereignisprozeduren sollen das Gleiche erledigen – nämlich eine weitere Prozedur namens MouseUp <\/b>aufrufen (s. Listing 10). Diese Prozedur wiederum enthält lediglich eine Anweisung – den Aufruf der gleichnamigen Methode der Instanz der Klasse DatasheetSelectionForm<\/b>:<\/p>\n Listing 10: Je nachdem, welchen Typ das mit ctl übergebene Steuerelement hat, wird die dem Steuerelementtyp entsprechende Ereignisprozedur ausgelöst.<\/span><\/b><\/p>\n Nun müssen wir von der Klasse clsDatasheetSelectionControl <\/b>allerdings noch irgendwie an die Methode MouseUp der Klasse clsDatasheetSelectionForm <\/b>herankommen. Dazu deklarieren wir zunächst eine entsprechende Objektvariable, diesmal ohne WithEvents<\/b>:<\/p>\n![\"Datenblatt](\"..\/fileadmin\/_temp_\/2013_05\/pic_901_002.png\")
<\/p>\n\n
\n
![\"Ermitteln](\"..\/fileadmin\/_temp_\/2013_05\/pic_901_003.png\")
<\/p>\nPrivate Sub <\/span>Form_MouseUp(Button As Integer<\/span>, Shift As Integer<\/span>, X As Single<\/span>, Y As Single<\/span>)\r\n With<\/span> Me\r\n .Parent.txtSelLeft<\/span> = .SelLeft\r\n .Parent.txtSelWidth = .SelWidth\r\n .Parent.txtSelTop = .SelTop\r\n .Parent.txtSelHeight = .SelHeight\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2013_05\/pic_901_004.png\")
<\/p>\n![\"Anlegen](\"..\/fileadmin\/_temp_\/2013_05\/pic_901_005.png\")
<\/p>\nPrivate Sub <\/span>ArtikelID_MouseUp(Button As Integer<\/span>, Shift As Integer<\/span>, X As Single<\/span>, _\r\n Y As Single<\/span>)\r\n With<\/span> Me\r\n .Parent.txtSelLeft<\/span> = .SelLeft\r\n .Parent.txtSelWidth = .SelWidth\r\n .Parent.txtSelTop = .SelTop\r\n .Parent.txtSelHeight = .SelHeight\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents objDatasheetSelection As <\/span>clsDatasheetSelectionForm<\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Set<\/span> objDatasheetSelection = New<\/span> clsDatasheetSelectionForm\r\n With<\/span> objDatasheetSelection\r\n Set<\/span> .Form = Me!sfmArtikel_Klasse.Form\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Anlegen](\"..\/fileadmin\/_temp_\/2013_05\/pic_901_006.png\")
<\/p>\nPrivate Sub <\/span>objDatasheetSelection_SelectionChanged(intSelLeft As Integer<\/span>, _\r\n intSelWidth As Integer<\/span>, intSelTop As Integer<\/span>, intSelHeight As Integer<\/span>)\r\n Me!txtSelLeft<\/span> = intSelLeft\r\n Me!txtSelWidth = intSelWidth\r\n Me!txtSelTop = intSelTop\r\n Me!txtSelHeight = intSelHeight\r\nEnd Sub<\/span><\/pre>\nDim <\/span>WithEvents m_Form As <\/span>Form\r\nDim <\/span>colControls As <\/span>Collection<\/pre>\nPublic Property Set<\/span> <\/span>Form(frm As <\/span>Form)\r\n Dim <\/span>ctl As <\/span>Control\r\n Dim <\/span>strControlsource As String<\/span>\r\n Dim <\/span>objDatasheetSelectionControl As <\/span>clsDatasheetSelectionControl\r\n Set<\/span> m_Form = frm\r\n With<\/span> m_Form\r\n .OnMouseUp = \"[Event Procedure]\"\r\n End With<\/span>\r\n Set<\/span> colControls = New<\/span> Collection\r\n For Each ctl In m_Form.Controls\r\n strControlsource = \"\"\r\n On Error Resume Next<\/span>\r\n strControlsource = ctl.ControlSource\r\n If <\/span>Len<\/span>(strControlsource) > 0 Then<\/span>\r\n Set<\/span> objDatasheetSelectionControl = New<\/span> clsDatasheetSelectionControl\r\n colControls.Add objDatasheetSelectionControl\r\n With<\/span> objDatasheetSelectionControl\r\n Set<\/span> .Control = ctl\r\n Set<\/span> .DatasheetSelectionForm = Me\r\n End With<\/span>\r\n End If<\/span>\r\n Next<\/span> ctl\r\nEnd Property<\/span><\/pre>\n\n
Private Sub <\/span>m_Form_MouseUp(Button As Integer<\/span>, Shift As Integer<\/span>, _\r\n X As Single<\/span>, Y As Single<\/span>)\r\n Call<\/span> MouseUp\r\nEnd Sub<\/span><\/pre>\nPublic <\/span>Event SelectionChanged(intSelLeft As Integer<\/span>, intSelWidth As Integer<\/span>, intSelTop As Integer<\/span>, intSelHeight As Integer<\/span>)<\/pre>\nPublic Sub <\/span>MouseUp()\r\n With<\/span> m_Form\r\n RaiseEvent SelectionChanged(.SelLeft, .SelWidth, .SelTop, .SelHeight)\r\n End With<\/span>\r\nEnd Property<\/span><\/pre>\nPublic Property Set<\/span> <\/span>Control(ctl As <\/span>Control)\r\n Select Case ctl.ControlType\r\n Case <\/span>acTextBox\r\n Set<\/span> m_Textbox = ctl\r\n m_Textbox.OnMouseUp = \"[Event Procedure]\"\r\n Case <\/span>acComboBox\r\n Set<\/span> m_Combobox = ctl\r\n m_Combobox.OnMouseUp = \"[Event Procedure]\"\r\n Case <\/span>acCheckBox\r\n Set<\/span> m_Checkbox = ctl\r\n m_Checkbox.OnMouseUp = \"[Event Procedure]\"\r\n Case Else<\/span>\r\n Debug.Print<\/span> ctl.ControlType\r\n End Select<\/span>\r\nEnd Property<\/span><\/pre>\nDim <\/span>WithEvents m_Textbox As <\/span>Textbox\r\nDim <\/span>WithEvents m_Combobox As <\/span>ComboBox\r\nDim <\/span>WithEvents m_Checkbox As <\/span>CheckBox<\/pre>\nPrivate Sub <\/span>m_Checkbox_MouseUp(Button As Integer<\/span>, Shift As Integer<\/span>, X As Single<\/span>, _\r\n Y As Single<\/span>)\r\n Call<\/span> MouseUp\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>m_Combobox_MouseUp(Button As Integer<\/span>, Shift As Integer<\/span>, X As Single<\/span>, _\r\n Y As Single<\/span>)\r\n Call<\/span> MouseUp\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>m_Textbox_MouseUp(Button As Integer<\/span>, Shift As Integer<\/span>, X As Single<\/span>, _\r\n Y As Single<\/span>)\r\n Call<\/span> MouseUp\r\nEnd Sub<\/span>End Property<\/pre>\nPrivate Sub <\/span>MouseUp()\r\n m_DatasheetSelectionForm.MouseUp\r\nEnd Sub<\/span><\/pre>\n