|
Dim PControl As Object
Dim MyControl As Control Dim AControl As Object 'Get my UserControl For Each AControl In ParentControls If AControl.Name = Ambient.DisplayName Then Set MyControl = AControl Exit For End If Next 'Get the Form UserControl is on Set PControl = ParentControls.Item(1).Parent While Not (TypeOf PControl Is Form) Set PControl = PControl.Parent Wend Utilizzo di UserControl con VB5 Visual Basic 5.0 lets you use UserControls to create ActiveX controls in your projects. The following code snippet does two things: It gets a reference to the form in which a UserControl is placed, and it gets a reference to that control on the form. |