![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
VB如何设计选择日期和时间并填入文本框?
我想在VB程序里点击一个CMD控件后出来日期时间表可在里面很方便地选择日期和时间,然后自动将选择的日期时间填入前面的文本框,如何写程序?请VB高手指点啊。....
我想在VB程序里点击一个CMD控件后出来日期时间表可在里面很方便地选择日期和时间,然后自动将选择的日期时间填入前面的文本框,如何写程序?请VB高手指点啊。
. 展开
. 展开
4个回答
推荐于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
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
参考资料: 我自己想的,不知道有无更好的办法?主要是要有日期,小时,分钟,可供选择,方便用户.
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
需要一文本框,一个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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
有日期控件的 在事件里赋值就可以
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不明白意思
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询