Private Sub Command1_Click()
Dim i As Long
For i = 0 To Controls.Count - 1
If Controls(i).Container = Picture1 Then MsgBox "Sfd"
Next
End Sub
我想判断当窗体上的控件的容器是不是Picture1,Controls没有Container属性,怎么办捏?
...全文
402打赏收藏
控件的容器问题
Private Sub Command1_Click() Dim i As Long For i = 0 To Controls.Count - 1 If Controls(i).Container = Picture1 Then MsgBox "Sfd" Next End Sub 我想判断当窗体上的控件的容器是不是Picture1,Controls没有Container属性,怎么办捏?