如何判断窗体上有多少个文本框

Question

VB在设计的时候在窗体上画了4个文本框分别是Text1、Text2、Text3、Text4，还有别的控件，在程序运行时，想知道选中的是哪个挖件，用MSGBOX提示控件Name

Answer 1

给你写了一个简单的例子，你按自己的要求修改一下就可以了

Private Sub Command1_Click()
Dim con As Control
For Each con In Controls
If TypeName(con) = "TextBox" Then
MsgBox con.Name + "这是个文本框"
Else
MsgBox con.Name
End If
Next
End Sub

Answer 2

Private Sub Form_Load()
Dim ctl As Control, n As Long
n = 0

For Each ctl In Me.Controls

If TypeOf ctl Is TextBox Then
n = n + 1
End If

Next

MsgBox "共有文本框：" & n
End Sub

Private Sub Text1_GotFocus()
MsgBox "你选中了文本框" & Text1.Name
End Sub