2017年河南郑州招聘会:VB中如何使一个文本框显示当前时间半个小时后的时间
来源:百度文库 编辑:神马品牌网 时间:2024/05/05 11:06:46
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
Text2.Text = DateAdd("n", 30, Time)
End Sub
加入一个计时器,代码如上,text1显示当前时间,text2显示30分钟后时间。
正确