在vb中怎样使文本框显示电脑上的时间

VB程序单击日期,可使文本框中显示当前日期,单击时间,可显示当前时间,并使前面的标签做相应修改,写出操作~

具体代码：
Private Sub Command1_Click()
Text1.Text = Date
Label1.Caption = "当前日期为："
End SubPrivate Sub Command2_Click()
Text1.Text = Time
Label1.Caption = "当前时间为："
End Sub

拓展资料
Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
主要优点：
1，简单易学。
2，开发速度快。
3，可读性很好。

Private Sub Command1_Click()
Dim s As Date
Dim bs As String
s = Now
Select Case Hour(s)
Case Is < 8
bs = "凌晨"
Case Is < 12
bs = "上午"
Case Is < 14
bs = "中午"
Case Is < 17
bs = "下午"
Case Else
bs = "晚上"
End Select
Label1.Caption = Format(s, "YYYY年MM月DD日 hh:mm:ss " & bs & " 星期" & Choose(Weekday(s), "日", "一", "二", "三", "四", "五", "六"))
End Sub

日期和时间一起显示：
Text1.Text = Format(Now, "yyyy-MM-dd HH:mm:ss")
不带日期显示：
Text1.Text = Format(Now, "HH:mm:ss")
以上只能显示一次。如果想实时更新时间数据，用一个Timer，设置适当的触发时间，比如100或200毫秒（数值越小越精确，但消耗系统资源也多），将以上代码放在其Timer事件中即可。

很简单啊
把文本框的控件来源设置为：
=time()
然后再窗体的计时间隔属性设置为1000
把窗体load事件中加入：
text1=time()

---

在vb中怎样使文本框显示电脑上的时间视频