Freigeben über

Verweisen auf das übergeordnete Objekt eines Steuerelements

  • Artikel

Das folgende Beispiel verwendet die Parent-Eigenschaft von Microsoft Forms 2.0, um auf das Steuerelement, Formular oder andere Objekt zu verweisen, das ein bestimmtes Steuerelement oder Objekt enthält.

To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. Make sure that the form contains:

  • Two Label](.. /.. /.. /api/Outlook.label.md) -Steuerelemente mit den Namen Label1 und Label2.
  • Ein CommandButton](.. /.. /.. /api/Outlook.commandbutton.md) mit dem Namen CommandButton1.
  • Ein oder mehr zusätzliche Steuerelemente Ihrer Wahl.
Dim MyControl 
Dim MyParent 
Dim ControlsIndex 
 
Sub Item_Open() 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").CommandButton1 
 ControlsIndex = 0 
 CommandButton1.Caption = "Get Control and Parent" 
 CommandButton1.AutoSize = True 
 CommandButton1.WordWrap = True 
End Sub 
 
Sub CommandButton1_Click() 
 Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Label1 
 Set Label2 = Item.GetInspector.ModifiedFormPages("P.2").Label2 
 
 'Process Controls collection for UserForm 
 Set MyControl = Item.GetInspector.ModifiedFormPages("P.2").Controls.Item(ControlsIndex) 
 Set MyParent = MyControl.Parent 
 Label1.Caption = MyControl.Name 
 Label2.Caption = MyParent.Name 
 
 'Prepare index for next control on Userform 
 ControlsIndex = ControlsIndex + 1 
 If ControlsIndex >= Item.GetInspector.ModifiedFormPages("P.2").Controls.Count Then 
 ControlsIndex = 0 
 End If 
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.