请教一下文本框事件的问题

徐阿鹏

文本框中数据发生变化时发生了什么事件，
这个文本框的数据是自动变化的，
好像不发生Change事件，
请问如何发生Change事件？
谢谢

cg1

与其问，不如自己试验比较好，直接将下列代码COPY进一个模块，然后按F5执行，然后去那个窗体中的文本框输入点字符看看效果吧
Function setEvent()
    Dim p As Property
    For Each p In Forms("mainform2").text2.Properties
        If Left(p.Name, 2) = "On" _
        Or Left(p.Name, 5) = "After" _
        Or Left(p.Name, 6) = "Before" Then
            p.Value = "=msgbox('" & p.Name & "')"
        End If
    Next p
End Function

SecurID

Change事件是肯定发生，原因是输入数据后，文本框的值没有立刻更新，可以用
Private Sub 文本框_Change()
MsgBox Me.文本框.Value
End Sub
输入内容实验一下！