如何通过按向上向下方向键实现Updown控件两个单击事件

Question

目的是想按向上(下)，实现关联文本框值的增加(或减少)
    可以使用API函数Sendmessage发送消息，但不知道单击updown向上向下键的参数是多少？
希望哪们高手可以把sendmessage 中发送的各种消息及参数提供给我，本人十分感激!
我的E-mail:[email protected]

Answer 1

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 38 Then
        UpDown1.Value = UpDown1.Value - 1
    ElseIf KeyCode = 40 Then
        UpDown1.Value = UpDown1.Value + 1
    End If
End Sub

Answer 2

Private Sub Form_Load()
    Me.KeyPreview = True
    With UpDown1
        .BuddyControl = Text1
        .Max = 100
        .Min = 0
        .Value = 50
    End With
End SubPrivate Sub UpDown1_Change()
    Text1.Text = UpDown1.Value
End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyUp Then UpDown1_UpClick
    If KeyCode = vbKeyDown Then UpDown1_DownClick
End SubPrivate Sub UpDown1_DownClick()
    With UpDown1
        .Value = IIf(.Value = .Min, .Min, .Value - 1)
    End With
End SubPrivate Sub UpDown1_UpClick()
    With UpDown1
        .Value = IIf(.Value = .Max, .Max, .Value + 1)
    End With
End Sub

Answer 3

能不能象windows(时间设置)一样，按方向键也有一个很明显的单击updown的事件
我感觉用API函数发的消息如 sendmessage(button.hwnd,&HF5,0,0)虽然有起到单击的作用但是屏幕上没有显示按钮有向下的动作，如果要实现应该如何做到？