一个有关获得DTPicker控件日期的问题！

Question

我想实现如下功能：
在一个DTPicker控件中显示出：“XX日XX小时XX分钟”,其中日的范围为0-30（DTPicker控件范围为1-31）。我曾想用TextBox控件放在来DTPicker控件上的XX日上，但是在获得焦点时不好控制，因为在DTPicker控件中，只要已经选择XX日范围，XX日的地方就会加亮显示。而我在控制TextBox控件时，只能是TextBox获得焦点才可以加亮显示。请问该如何实现？急用！！

Answer 1

Private Sub Form_Load()
DTPicker1.Format = dtpCustom
DTPicker1.DataFormat = "dd日hh时mm分"
DTPicker1.UpDown = True
End Sub

Answer 2

换用richtextbox控件，想高亮显示只要用richtextbox控件的selcolor，selstart，sellength这几个属性就可以解决

Answer 3

那你就不要用  DTPicker  改用TEXT或者COMBO

Answer 4

To：狼行天下，我开始也象你说的去作，但是dd日范围是从1-31的，而不是我需要的0-30。

Answer 5

只用键盘操作，可以这样：
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 SubPrivate Sub Form_Load()
DTPicker1.Format = dtpCustom
DTPicker1.CustomFormat = "dd 日 hh 时 mm 分"
'DTPicker1.UpDown = True
End Sub