Foxtable(狐表)用户栏目专家坐堂 → [求助]DateTimePicker选定日期后如何带上时间 08:00:00


  共有1683人关注过本帖树形打印复制链接

主题:[求助]DateTimePicker选定日期后如何带上时间 08:00:00

帅哥哟,离线,有人找我吗?
jamce
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:457 威望:0 精华:0 注册:2011/9/21 10:42:00
[求助]DateTimePicker选定日期后如何带上时间 08:00:00  发帖心情 Post By:2017/5/31 16:50:00 [只看该作者]

求助,DateTimePicker选定日期后如何带上时间 08:00:00,默认带的是00:00:00
[此贴子已经被作者于2017/5/31 16:50:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
jamce
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:457 威望:0 精华:0 注册:2011/9/21 10:42:00
  发帖心情 Post By:2017/5/31 17:28:00 [只看该作者]

谢谢版主,很好用图片点击可在新窗口打开查看,还有个小疑问,e.Sender.text 可以直接赋值日期格式的而不用数据转换吗?
[此贴子已经被作者于2017/5/31 17:30:55编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
jamce
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:457 威望:0 精华:0 注册:2011/9/21 10:42:00
请教版主  发帖心情 Post By:2017/5/31 17:51:00 [只看该作者]

谢谢版主,很好用图片点击可在新窗口打开查看,还有个小疑问,e.Sender.text 可以直接赋值日期格式的而不用数据转换吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/31 17:51:00 [只看该作者]

 你赋值的如果是一个正确的日期值,那就没问题。


 回到顶部