vb Ôõôö¾Ù³öÔÚÒ»¸öframeÀïµÄ¿Ø¼þ£¿

vb Ôõôö¾Ù³öÔÚÒ»¸öframeÀïµÄ¿Ø¼þ£¿

---

Åжϸ¸¿Ø¼þ

---

µÝ¹éö¾Ù

---

VB code:
Private Sub Command1_Click()
Dim ctrol As Control
For Each ctrol In Me.Controls
If ctrol.Container Is Frame1 Then
Debug.Print ctrol.Name
Debug.Print TypeName(ctrol)
Debug.Print "------"
End If
Next
End Sub

---

ÒýÓÃ

VB codePrivateSub Command1_Click()Dim ctrolAs ControlForEach ctrol In Me.ControlsIf ctrol.ContainerIs Frame1Then
            Debug.Print ctrol.Name
            Debug.PrintTypeName(ctrol)
            D?-

¡£¡£¡£¡£¡£¡£Ò»Ö±ÁÀ×Å£¬¶¼ÓÐÈ˻شðÁË