关于DTPICKER 的 CHECKBOX

如果设置CheckBox属性=true时会出现一个复选框,这个框默认就是选定的,想调整成非选定状态,却不是很容易。

Vb.net下稍简单一些

dtp.value = now
dtp.checked = true
dtp.checked = false

但VB6没有CHECKED这个属性，笔者研究发现发送一个空格可以选定或取消选定：

Private Sub Command1_Click()
check DTPicker1
End Sub
Sub check(ByVal dtp As DTPicker)
dtp.SetFocus
SendKeys " "
End Sub

Private Sub Form_Load()
DTPicker1.CheckBox = True
End Sub

就这么简单，呵呵。。。。