vb窗口中有10个文本框，在每个文本框中填写姓名，每个姓名只能填写一次，如果名字重复就自动提示，怎么做

Question

vb窗口中有10个文本框，在每个文本框中填写姓名，每个姓名只能填写一次，如果名字重复就自动提示，怎么做到，谢谢各位

Answer 1

可以在文本框失去焦点（LostFocus事件）的时候检查，用失去焦点的文本框的内容与其他文本框的内容逐一比较，有相同内容的，首先弹出Msgbox对话框提示，然后让该文本框重新获得焦点（SetFocus），重新输入。

追问

代码怎么写

追答

'在窗体上创建10个文本框。
'最好是创建有10个成员的TextBox控件数组，这里是txtName(0)到txtName(9)

 

'定义一个控制变量，以避免连续发生失去焦点事件，造成死循环。

Dim bln As Boolean

 

Private Sub Form_Load()
    bln = False

End Sub

Private Sub txtName_Change(Index As Integer)
    bln = False

End Sub

Private Sub txtName_LostFocus(Index As Integer)
    If Not bln Then
        For i = 0 To 9
            If Index <> i And txtName(Index).Text = txtName(i).Text And txtName(Index).Text <> "" Then
                MsgBox "姓名重复,请重新填写！"
                bln = Not bln                   '在这里修改控制变量
                txtName(Index).SelStart = 0
                txtName(Index).SelLength = Len(txtName(Index).Text)
                txtName(Index).SetFocus
                Exit For
            End If
        Next
    End If

End Sub

Answer 2

Private Sub Form_Load()
'在窗体添加10个数组文本框
'分别是：Text1(0)、Text1(1)、Text1(2)....Text1(8)、Text1(9)
End Sub

Private Sub Text1_LostFocus(Index As Integer)    '在失去焦点时
Dim XX As Integer, YY As String
XX = Text1(Index).Index
YY = Text1(XX).Text
If YY = "" Then
    MsgBox "第 " & XX + 1 & "个姓名没有输入", 16, "错误"
    Exit Sub
End If
If XX > 0 Then
For I = 0 To XX - 1
    If Text1(I).Text = YY Then
        MsgBox "你输入的第 " & I + 1 & "个姓名和第 " & XX + 1 & "个姓名重复!", 16, "错误!"
        Exit Sub
    End If
Next I
End If
End Sub

已经检测运行，没有问题。

Answer 3

'文本框控件组 Text1(0)到Text1(9)
Private Sub Text1_LostFocus(Index As Integer)
 For i = 0 To 9
    If Index <> i And Text1(Index).Text = Text1(i).Text And Text1(Index).Text <> "" Then
       MsgBox "名字已经存在"
       Text1(Index).Text = ""
       Text1(Index).SetFocus
       Exit For
    End If
 Next
End Sub
'请参考采纳，谢谢！

Answer 4

最简单的是定义一个字符串变量用作记录,然后用查询的方法看看有没有重复的

Answer 5

vb广百股份报告