- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]DateTimePicker选定日期后如何带上时间 08:00:00 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101444)
-- 发布时间：2017/5/31 16:50:00
-- [求助]DateTimePicker选定日期后如何带上时间 08:00:00
求助，DateTimePicker选定日期后如何带上时间 08:00:00，默认带的是00:00:00
[此贴子已经被作者于2017/5/31 16:50:36编辑过]
-- 发布时间：2017/5/31 17:13:00
--
textchanged事件
Dim str As String = e.Sender.Text
Dim d As Date
If str > "" AndAlso Date.TryParse(str, d) AndAlso d.Hour = 0 AndAlso d.Minute = 0 AndAlso d.Second = 0 Then
e.Sender.text = new Date(d.Year, d.Month, d.Day, 8, 0, 0)
End If
-- 发布时间：2017/5/31 17:28:00
--
谢谢版主，很好用
，还有个小疑问，e.Sender.text 可以直接赋值日期格式的而不用数据转换吗？
[此贴子已经被作者于2017/5/31 17:30:55编辑过]
-- 发布时间：2017/5/31 17:51:00
-- 请教版主
谢谢版主，很好用
，还有个小疑问，e.Sender.text 可以直接赋值日期格式的而不用数据转换吗？
-- 发布时间：2017/5/31 17:51:00
--
你赋值的如果是一个正确的日期值，那就没问题。