Question

在VB中当光标离开Textbox2后如何判断与textbox1中的文本是否相同？

Answer 1

这个简单了
　VB中缺少一个MouseLeave事件，给编程带来许多不便。例如，当我们想令鼠标移动到一个命令按钮时令其Caption属性为一个名称，离开时又是另一个名称，我们通常只能这么处理：用两个MouseMove事件：一个是命令按钮的，另一个可能是窗体的，也可能是命令按钮周边的其它控件的。——这无疑很麻烦，而且当控件较为紧凑时往往达不到预期的目的。有没有什么办法可以判断鼠标已经从某一个控件中移走呢？请看下面的例子。
　　在标准EXE工程中缺省创建一个TextBox，然后键入以下代码：
　　Option Explicit
　　’申明API函数——
　　Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
　　Private Declare Function ReleaseCapture Lib "user32" () As Long
　　’通过Text2的MouseMove事件判断鼠标指针位置
　　Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Dim MouseLeave As Boolean
　　MouseLeave = (0 <= X) And (X <= Text1.Width) And (0 <= Y) And (Y <= Text1.Height)
　　If MouseLeave Then
　　SetCapture Text2.hWnd '不可删
　　Else
if Text2.text=text1.text then '判断text1和text2内容是否相同

else

end if
　　ReleaseCapture '不可删
　　End If
　　End Sub
　　自己补充代码，然后运行程序，就达到目的了。

自己还根据这些代码自己写出MouseInto和MouseStop等事件

　　此法适合于一切具有hWnd属性的控件（如下所列）：
　　ProgressBar控件，Slider控件，StatusBar控件，TabStrip控件，ToolbarControl，Animation控件，UpDown控件，DBCombo控件，DBList控件，SSTab控件，PicturtClip控件，RichTextBox控件，PropertyPage对象，UserControl对象，UserDocument对象，CheckBox控件，ComboBox控件，CommandButton控件，DirListBox控件，DriveListBox控件，FileListBox控件，Form对象，Forms集合，Frame控件，HscrollBar，VScrollBar控件，ListBox控件，MDIForm对象，OptionButton控件，PictureBox控件，TextBox控件，OLEContainer控件。

Answer 2

在text2 失去焦点事件中判断即可。
Private Sub Text2_LostFocus()
If Text2.Text <> Text1.Text Then MsgBox "内容不相同"
End Sub