CustomControl.InSelection-Eigenschaft (Access)

Verwenden Sie die InSelection-Eigenschaft , um zu bestimmen oder anzugeben, ob ein Steuerelement in einem Formular in der Entwurfsansicht ausgewählt ist. Boolescher Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. InSelection

Ausdruck Eine Variable, die ein CustomControl-Objekt darstellt.

HinwBemerkungeneise

Wenn ein Steuerelement ausgewählt ist, sind seine Ziehpunkte zur Größenanpassung sichtbar, und seine Größe kann vom Benutzer geändert werden. Es können auch gleichzeitig mehrere Steuerelemente ausgewählt sein.

Beispiel

In der folgenden Funktion wird mit der InSelection-Eigenschaft ermittelt, ob auf dem angegebenen Formular das Steuerelement strControlName ausgewählt ist.

Fügen Sie zum Testen dieses Codes den Funktionscode IsControlSelected in den Abschnitt Deklarationen eines Codemoduls in der Northwind-Beispieldatenbank ein, öffnen Sie das Formular Kunden in der Entwurfsansicht, und wählen Sie das Steuerelement CompanyName aus. Geben Sie im Fenster Debuggen die folgende Zeile ein.

? IsControlSelected (Forms!Customers, "CompanyName") 
 
Function IsControlSelected(frm As Form, _ 
 strControlName As String) As Boolean 
 Dim intI As Integer, ctl As Control 
 If frm.CurrentView <> 0 Then 
 ' Form is not in Design view. 
 Exit Function 
 Else 
 For intI = 0 To frm.Count - 1 
 Set ctl = frm(intI) 
 If ctl.InSelection = True Then 
 ' Is desired control selected? 
 If UCase(ctl.Name) = UCase(strControlName) Then 
 IsControlSelected = True 
 Exit Function 
 End If 
 Else 
 IsControlSelected = False 
 End If 
 Next intI 
 End If 
End Function

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.