Private Sub Command1_Click()
Dim ctlEach As Control
For Each ctlEach In Me.Controls
If TypeOf ctlEach Is TextBox Then
MsgBox "对" & ctlEach.Name & "的值进行判断", vbInformation
End If
Next
End Sub
Dim ctlEach As Control
For Each ctlEach In Me.Controls
If TypeOf ctlEach Is TextBox Then
MsgBox "对" & ctlEach.Name & "的值进行判断", vbInformation
End If
Next
End Sub
Dim con As Control
For Each con In Form1
Debug.Print con.Name
Next
End Sub