updown控件的onChange事件中如何判断是UpClick还是DownClick?

Question

我把一个UpDown控件和一个text控件关联后一直按着UpDown控件则text控件的数值就不停上升或下降，我想在每次改变文本框数值的时候让其他text控件的值跟着改变，好象只能在onChange事件中编写代码，但是onChange事件如何知道我现在按住的是“上”还是“下”呢？可能是我的想法有问题，如果哪位兄弟有更好的解决之道请告诉在下！感激不尽！！

Answer 1

Option ExplicitPrivate m_lngValuePrivate Sub UpDown1_Change()
    If m_lngValue < UpDown1.Value Then
        Debug.Print "Up"
    ElseIf m_lngValue > UpDown1.Value Then
        Debug.Print "Down"
    End If
    Text1.Text = UpDown1.Value
End SubPrivate Sub UpDown1_DownClick()
    m_lngValue = UpDown1.Value
End SubPrivate Sub UpDown1_UpClick()
    m_lngValue = UpDown1.Value
End Sub

Answer 2

Option Explicit
Dim vPrivate Sub Form_Load()    v = UpDown1.ValueEnd SubPrivate Sub UpDown1_Change()    If v > UpDown1.Value Then
        MsgBox "down"
      Else
        MsgBox "up"
    End If    v = UpDown1.Value
    
End Sub