16,717
社区成员
发帖
与我相关
我的任务
分享 Private Declare Auto Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Const WM_SYSKEYDOWN = &H104
Private Const VK_DOWN = &H28
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SendMessage(Me.DateTimePicker1.Handle, WM_SYSKEYDOWN, VK_DOWN, 0)
End Sub