Public Property Get ParentControls() As ParentControls
Set ParentControls = UserControl.ParentControls
End Property
2:属性页端
你可以用以下代码访问你的form下的所有控件:
Private Sub Command1_Click()
Dim U_i As Integer
With SelectedControls
For U_i = 1 To PropertyPage.SelectedControls(0).ParentControls.Count - 1
MsgBox PropertyPage.SelectedControls(0).ParentControls(U_i).Name
Next
End With
End Sub
----------------------------------------------
以上我是显示所有form上的控件,对于你的要求,我设想于下:
一般情况下,你要显示的是某一类的控件,但是VB并没有提供控件的类名,你可以用这个控件特殊性,加上错误处理可以完成。例于,某类控件有AAAA这个特殊的属性,你就可在在for循环中访问所有控件的AAAA属性,如果出错,就不是你要捕获的,成功就:combo1.add name