Question

vb textbox 多次触发change事件

使用搜狗输入法在文本框中输入输入词组，如输入“百度”，就会触发两次Change事件。我希望没输入一个完整的词组触发一次Change事件。

Answer 1

Dim flag As Boolean
Private Sub Form_Load()
    With Timer1
        .Enabled = False
        .Interval = 1000
    End With
End Sub

Private Sub Text1_Change()
    Cls
    If flag = True Then
        Print Text1.Text
        flag = False
    End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Timer1.Enabled = False
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    flag = True
    Text1_Change
End Sub

用timer来延迟操作change事件即可