[已解决]请教一个日历控件的问题？

lyf7276

请教各位老师，我在工作表上调出日历控件后，双击控件，就会出现一个事件代码：Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)。请问是不是在这中间写相应的代码，就可以把相应的日期值赋给相应的的单元格，或是双击一个单元格，就会自动调用日期控件。如果是，请问这代码怎么写？
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-1 10:47

跳转到最佳答案楼层

hwc2ycy

百度来的：

这个事件只有在控件的customformat中设定了自定义字符后才会引发，你先将控件的
customformat设定为：MM->(XXXX) dd->(XX) yyy
然后运行程序，可以看到在控件上的日期中间夹杂了两个括号，这就是所谓自定义域
点击该位置然后敲键盘，就会引发CallbackKeyDown事件例如：
Dim astr
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
    astr = astr + Chr(KeyCode)
    CallbackField = astr
    Debug.Print KeyCode, CallbackField
End Sub

hwc2ycy

如果控件插入后不能下拉选日期的话，就把控件的属性LOCKED改为FALSE

hwc2ycy

原来弄错了，习惯性的用DTP控件了。

hwc2ycy