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

2025-04-02 10:00:05

推荐回答（5个）

回答1：

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

回答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

回答3：

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

回答4：

还是四楼的replace()好一些

回答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