如何通过代码让日期控件（DTPicker）下拉？

[kinlin]

如何通过代码让日期控件（DTPicker）下拉？

[yfrzn]

缺省就是下拉的呀 在说明白点

[dragon525]

你说的是向控件发消息，让它下拉，而不是去点击是吗？

[cdknet]

楼上的，这还要是，如果是用鼠标点楼主还来问吗？呵呵呵，我得去研究一下！

[cdknet]

Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
SetCursorPos (Me.Left + DTPicker1.Left + DTPicker1.Width - 100) / Screen.TwipsPerPixelX, _
(Me.Top + DTPicker1.Top + 500) / Screen.TwipsPerPixelY
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

[watt]

sendkeys "%{DOWN}"

[jordi2014]

mark