询问一个显示年月日时分的控件名称?

Question

各位:    我单位业务软件上有一个显示 年月日时分的功能,象是在 txtbox 中显示的,最右边有 调节按纽,可以调整年月日时分.但不知它的名称是什么?    刚启动业务软件时显示的是计算机系统时间,格式为 XXXX年XX月XX日XX时XX分,当鼠标选上其中 xx 后通过最右边 的微调按钮就可以调节相应的时间项目!我想还有累次功能的控件,请知道的麻烦在这里告诉一声!

Answer 1

这还用求吗，自己写罢了
把以下代码复制到一个窗体里.
'显示：
Option ExplicitPrivate Sub Form_Click()
Me.Print Format(Date, "Long Date") & Format(Time, "h时m分s秒")
End SubPrivate Sub Form_Load()
Me.Caption = Format(Date, "Long Date") & Format(Time, "h时m分")
End Sub'修改么，也是用Date和Time，只是叫语句罢了，
'例如：
Private Sub Form_DblClick()
Date = Date + 1
Time = #3:59:17 AM#
End Sub

Answer 2

谢谢 junki,zcsor()  !
   请问:Calendar 是什么?
   如何显示时间,我会做了!
   但当鼠标选上其中 xx 后通过最右边 的微调按钮就可以调节相应的时间项目!这个还没想好,因为你按最右边的微调按钮时必须知道所选的 XX 是年还是 月日或时分!    请各位继续关注,谢谢!

Answer 3

谢谢 junki,zcsor()  !
   请问:Calendar 是什么?
   如何显示时间,我会做了!
   但当鼠标选上其中 xx 后通过最右边 的微调按钮就可以调节相应的时间项目!这个还没想好,因为你按最右边的微调按钮时必须知道所选的 XX 是年还是 月日或时分!    请各位继续关注,谢谢!

Answer 4

引用 VB6部件中的MicrosoftWindows Common Controls-2 6.0Private Sub Form_Load()
Dim dtpicker1 As dtpicker, dtpicker2 As dtpicker
Set dtpicker1 = Me.Controls.Add("MSComCtl2.dtpicker", "dtpicker1", Me)
dtpicker1.Visible = True
Set dtpicker2 = Me.Controls.Add("MSComCtl2.dtpicker", "dtpicker2", Me)
dtpicker2.Visible = True
dtpicker1.Move 0, 0, 1500, 500
dtpicker2.Move 1500, 0, 1500, 500
dtpicker1.UpDown = True
dtpicker2.UpDown = True
dtpicker1.Format = dtpShortDate
dtpicker2.Format = dtpTime
dtpicker1.Value = Date
dtpicker2.Value = Time
End Sub

Answer 5

dtpicker，就是很好的时间控件

Answer 6

谢谢　northwolves,skycanjian　！dtpicker　好象只显示＂年月日＂或＂时分秒＂，能否一起显示日期和时间啊？

Answer 7

搞定了：Private Sub Form_Load()
DTPicker1.Format = dtpCustom
DTPicker1.CustomFormat = "yyyy-MM-dd HH:mm:ss"
DTPicker1.UpDown = True
DTPicker1.Value = Now
End Sub

Answer 8

谢谢 northwolves !完全正确!给分!