VB如何设计选择日期和时间并填入文本框?

我想在VB程序里点击一个CMD控件后出来日期时间表可在里面很方便地选择日期和时间,然后自动将选择的日期时间填入前面的文本框,如何写程序?请VB高手指点啊。.... 我想在VB程序里点击一个CMD控件后出来日期时间表可在里面很方便地选择日期和时间,然后自动将选择的日期时间填入前面的文本框,如何写程序?请VB高手指点啊。
.
展开
 我来答
匿名用户
推荐于2016-03-02
展开全部
Private Sub DTPickerEta_Click()
TXTETA.Locked = False
TXTETA.Text = DTPickerEta.Value & "/" & ComboEtaHour.Text & ComboEtaMinute.Text
TXTETA.Locked = True
End Sub

Private Sub DTPickerEta_Change()
TXTETA.Locked = False
TXTETA.Text = DTPickerEta.Value & "/" & ComboEtaHour.Text & ComboEtaMinute.Text
TXTETA.Locked = True
End Sub

Private Sub ComboEtahour_Click()
TXTETA.Locked = False

If ComboEtaHour.ListIndex <> 0 Then
If ComboEtaMinute.Text <> "" Then '有“时”有“分”,显示日期时间
TXTETA.Text = DTPickerEta.Value & "/" & ComboEtaHour.Text & ComboEtaMinute.Text
Else
ComboEtaMinute.ListIndex = 1 '有“时”则必有“分”,最小默认“分”为“0”,显示时间日期
TXTETA.Text = DTPickerEta.Value & "/" & ComboEtaHour.Text & ComboEtaMinute.Text
End If
Else
ComboEtaMinute.ListIndex = 0 '无“时”则无“分”,只显示日期
TXTETA.Text = DTPickerEta.Value & "/"
End If

TXTETA.Locked = True
End Sub

Private Sub ComboEtaMinute_Click()
TXTETA.Locked = False
If ComboEtaMinute.ListIndex <> 0 Then
If ComboEtaHour.Text <> "" Then '有“分”有“时”,显示日期时间
TXTETA.Text = DTPickerEta.Value & "/" & ComboEtaHour.Text & ComboEtaMinute.Text
Else
ComboEtaHour.ListIndex = 1 '有“分”则必有“时”,最小默认“时”为“0”,显示日期时间
TXTETA.Text = DTPickerEta.Value & "/" & ComboEtaHour.Text & ComboEtaMinute.Text
End If
Else
If ComboEtaHour.Text <> "" Then '无“分”但有“时”,最小默认“分”为“0”,显示日期时间
ComboEtaMinute.ListIndex = 1
TXTETA.Text = DTPickerEta.Value & "/" & ComboEtaHour.Text & ComboEtaMinute.Text
Else '无“分”也无“时”,只显示日期
TXTETA.Text = DTPickerEta.Value & "/"
End If
End If
TXTETA.Locked = True
End Sub

参考资料: 我自己想的,不知道有无更好的办法?主要是要有日期,小时,分钟,可供选择,方便用户.

本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
SIANGKEE
2010-06-17 · TA获得超过1552个赞
知道小有建树答主
回答量:1033
采纳率:50%
帮助的人:825万
展开全部
需要一文本框,一个cmd,一个dtpicker(到左手边的工具栏选择microsoft windows common control-2.6.0).复制以下代码就可以了

Private Sub Command1_Click()
DTPicker1.Visible = True
Text1.Visible = True
End Sub

Private Sub DTPicker1_CloseUp()
Text1 = Format(DTPicker1, "ddddd")
End Sub

Function batal()
Text1 = ""
End Function

Private Sub Form_Load()
batal
DTPicker1.Visible = False
Text1.Visible = False
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友2032eaa
2010-06-15 · TA获得超过809个赞
知道大有可为答主
回答量:2149
采纳率:100%
帮助的人:1822万
展开全部
有日期控件的 在事件里赋值就可以
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
wajika
2010-06-15 · TA获得超过239个赞
知道小有建树答主
回答量:1044
采纳率:0%
帮助的人:609万
展开全部
不明白意思
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式