Question

在VB 中有两个文本框，怎么实现：当两个文本框的内容都改变时才能触发一个事件？

Answer 1

Private Sub Text1_Change()
Text1.Tag = "1"
If Text2.Tag = "1" Then
Text2.Tag = ""
MsgBox "两个文本框的内容都改变了"
End If
End Sub

Private Sub Text2_Change()
Text2.Tag = "1"
If Text1.Tag = "1" Then
Text1.Tag = ""
MsgBox "两个文本框的内容都改变了"
End If
End Sub

Answer 2

Dim isAllChange As Boolean

Private Sub Form_Load()
isAllChange = False
End Sub

Private Sub Text1_Change()
If isAllChange = False Then
isAllChange = True
Else
myFun
isAllChange = False
End If
End Sub

Private Sub Text2_Change()
If isAllChange = False Then
isAllChange = True
Else
myFun
isAllChange = False
End If
End Sub

Private Sub myFun()
MsgBox "我的事件"
End Sub