VB中的文本框内容对比

显示全部楼层 · 2011-2-16 16:50:31

某窗体上有若干文本框，每个文本框应输入指定内容。求代码——若某一文本框中内容不是预设值（不同的文本框有不同的预设值）的话，单击command便会提示第几个输入错误。谢谢
一楼大哥，能不能帮我把代码写出来，如果我试验没错多加分。
二楼大哥，您的代码如果text其中一位错了，后面的即使没错它也算错诶。
那个循环好像不严密吧

千问 · 2011-2-16 16:50:31

1.首先，把这些文本框建立为控件数组text(1),text(2),text(3),text(4),text(5)2.然后，建立一个存储预设值的数组并与上面的文本框一一对应zhi(1),zhi(2),zhi(3),zhi(4),zhi(5)3.用循环来检测每个文本框的值与预设是否相等for i=1 to 5
if text(i).textzhi(i)then msgbox("第" & i & "个文本框输入错误")next i4.具体思路就是这样，可以自己适当增添其他代码.

千问 · 2011-2-16 16:50:31

Dim a As String 'a 是TEXT1的预设值Private Sub Command1_Click()Dim i As IntegerFor i = 1 To Len(Text1.Text)
If Left(a, i)Left(Text1.Text, i) Then MsgBox "第" & i & "位错误"