Question

vb如何比较两个文本框内容

窗体上有两个文本框 text1和text2 在text1里显示112233（在text1的text属性输入的，或用代码text1.text＝"112233"。窗体运行时就会显示，不用手工输入）。
可在text2输入若干行文本，比如第一行输入331354 第二行输入 112233 第三行输入aadcgf112233 第四行112233adfd 。当输入的内容里有一行和text1里内容112233完全一样时就弹出提示。没有不提示，（注：虽然第三行和第四行也有112233，但是它们含有其它字符，所以不能算）。代码怎么写，请高手帮我写一下，谢谢！20分哦
二楼的代码还是不理想，是在输入完几行文本后比较有没有相同的，不是输入一行对比一行哦！
text2的内容可以是手动输入也可以让读取文本文件的内容，然后与text1比较！
给改一下吧
在按钮里事比较对比的事件也行！

Answer 1

在每次text2换行时进行检测（就是按下回车键时），代码如下

Private Sub Text2_Keydown(KeyCode As Integer, Shift As Integer)
Dim lngCrlf As String
If KeyCode = vbKeyReturn Then
lngCrlf = InStrRev(Text2.Text, vbCrLf)
If lngCrlf > 0 Then
If Mid(Text2.Text, lngCrlf + 2, Len(Text2.Text)) = Text1.Text Then MsgBox "与text1一样"
ElseIf lngCrlf = 0 Then
If Text2.Text = Text1.Text Then MsgBox "与text一样"
End If
End If
End Sub

Private Sub Form_Load()
Text1.Text = "112233"
Text2.Text = ""
End Sub

Answer 2

aa=split(text2,vbcrlf)
for i=0 to ubound(aa)
if aa(i)=text1 then msgbox"第" & i+1 & "行相同"
next

Answer 3

文本框有个change事件,当发生变化时,判断一下是否一样就可以了.