1,451
社区成员
发帖
与我相关
我的任务
分享一个有关获得DTPicker控件日期的问题！
我想实现如下功能：
在一个DTPicker控件中显示出：“XX日XX小时XX分钟”,其中日的范围为0-30（DTPicker控件范围为1-31）。我曾想用TextBox控件放在来DTPicker控件上的XX日上，但是在获得焦点时不好控制，因为在DTPicker控件中，只要已经选择XX日范围，XX日的地方就会加亮显示。而我在控制TextBox控件时，只能是TextBox获得焦点才可以加亮显示。请问该如何实现？急用！！
在一个DTPicker控件中显示出：“XX日XX小时XX分钟”,其中日的范围为0-30（DTPicker控件范围为1-31）。我曾想用TextBox控件放在来DTPicker控件上的XX日上，但是在获得焦点时不好控制，因为在DTPicker控件中，只要已经选择XX日范围，XX日的地方就会加亮显示。而我在控制TextBox控件时，只能是TextBox获得焦点才可以加亮显示。请问该如何实现？急用！！
...全文
请发表友善的回复…
发表回复
linton 2004-08-04
- 打赏
- 举报
To：狼行天下，我开始也象你说的去作，但是dd日范围是从1-31的，而不是我需要的0-30。
_1_ 2004-08-04
- 打赏
- 举报
那你就不要用 DTPicker 改用TEXT或者COMBO
rainstormmaster 2004-08-04
- 打赏
- 举报
换用richtextbox控件，想高亮显示只要用richtextbox控件的selcolor，selstart，sellength这几个属性就可以解决
northwolves 2004-08-04
- 打赏
- 举报
Private Sub Form_Load()
DTPicker1.Format = dtpCustom
DTPicker1.DataFormat = "dd日hh时mm分"
DTPicker1.UpDown = True
End Sub
DTPicker1.Format = dtpCustom
DTPicker1.DataFormat = "dd日hh时mm分"
DTPicker1.UpDown = True
End Sub
northwolves 2004-08-04
- 打赏
- 举报
只用键盘操作，可以这样：
Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyUp And DTPicker1.Day = 30) Or (KeyCode = vbKeyDown And DTPicker1.Day = 1) Then DTPicker1.Day = 31
End Sub
Private Sub Form_Load()
DTPicker1.Format = dtpCustom
DTPicker1.CustomFormat = "dd 日 hh 时 mm 分"
'DTPicker1.UpDown = True
End Sub
Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyUp And DTPicker1.Day = 30) Or (KeyCode = vbKeyDown And DTPicker1.Day = 1) Then DTPicker1.Day = 31
End Sub
Private Sub Form_Load()
DTPicker1.Format = dtpCustom
DTPicker1.CustomFormat = "dd 日 hh 时 mm 分"
'DTPicker1.UpDown = True
End Sub
linton 2004-08-04
- 打赏
- 举报
怎么没有人回答啊？
