Question

VB怎样判断两个文本框中的内容

就是说VB中有两个文本框,Text1打开了一篇文本,在Text2中输入,如何判断是否与Text1输入的一样.
注意:是输入一个判断一个.
是一个字一个字判断
比如Text1的内容是"ABCDE"
如果在Text2中输入第N个字符与Text1的第N个字符一样
就不管它
如果不一样,那个字符就用"*"代替
明白?

Answer 1

就是相当于一个打字测试程序。
可以将文本text1内容用 mid(txt,i,1)赋值到一个数组中，
第二个文本text2输入同时（change）也赋值到另一个数组中，再同时用if 比较。

Answer 2

Private Sub Text2_Change()
On Error Resume Next
Dim s1 As String, s2 As String
s1 = Right(Text2.Text, 1)
s2 = Mid(Text1.Text, Len(Text2.Text), 1)
If s1 <> s2 Then '不一样的字符用*替换
Text1.Text = Replace(Text1.Text, s2, "*")
End If
End Sub

Answer 3

Private Sub Text2_Change()
If Right(Text2.Text, 1) = Mid(Text1.Text, Len(Text2.Text), 1) Then MsgBox "一样"
End Sub

Answer 4

还是四楼的replace()好一些

Answer 5

Private Sub Text2_Change()
if len(text2.text)=0 then exit sub
If Right(Text2.Text, 1) <> Mid(Text1.Text, Len(Text2.Text), 1) Then
text2.text=left(text2.text,len(text2.text)-1) & "*"
endif
End Sub