Freigeben über


Beispiel für Item-Methode, OptionButton-Steuerelement

Im folgenden Beispiel wird die Item-Methode verwendet, um auf einzelne Member der Controls - und Pages-Auflistungen zuzugreifen.

The user chooses an option button for either the Controls collection or the MultiPage, and then clicks the CommandButton. Der Name des entsprechenden Steuerelements wird in der Bezeichnung zurückgegeben.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • Eine Befehlsschaltfläche ( CommandButton ) mit der Bezeichnung "CommandButton1".
  • Ein Bezeichnungsfeld-Steuerelement ( Label ) mit der Bezeichnung "Label1".
  • Zwei Optionsfeld-Steuerelemente ( OptionButton ) mit der Bezeichnung "OptionButton1" und "OptionButton2".
  • Ein MultiPage -Objekt mit der Bezeichnung "MultiPage1".
Dim MyControl As Object 
Dim ControlsIndex As Integer 
 
Private Sub CommandButton1_Click() 
 If OptionButton1.Value = True Then 
 'Process Controls collection for UserForm 
 Set MyControl = Controls.Item(ControlsIndex) 
 Label1.Caption = MyControl.Name 
 
 'Prepare index for next control on Userform 
 ControlsIndex = ControlsIndex + 1 
 If ControlsIndex >= Controls.Count Then 
 ControlsIndex = 0 
 End If 
 
 ElseIf OptionButton2.Value = True Then 
 'Process Current Page of Pages collection 
 Set MyControl = MultiPage1.Pages _ 
 .Item(MultiPage1.Value) 
 Label1.Caption = MyControl.Name 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 ControlsIndex = 0 
 
 OptionButton1.Caption = "Controls Collection" 
 OptionButton2.Caption = "Pages Collection" 
 OptionButton1.Value = True 
 
 CommandButton1.Caption = "Get Member Name" 
End Sub

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.