Question

VB 这是一个frm窗体上面的 怎么在窗体上显示当前时间，怎么显示下面的这个窗体运行了多少时间！谢谢

Answer 1

Dim t

Private Sub Form_Load()

  t = Now

  Form1.Caption = "当前时间:" & t

  Label1.Caption = "用时0时0分0秒"

  Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

  t1 = Now - t  

  Label1.Caption = "用时" & Hour(t1) & "时" & Minute(t1) & "分" & Second(t1) & "秒"  

End Sub

追问

爱死度娘了，谢谢！

用时多少后面显示的是当前的时间走向
我在 8点15分运行他，就显示 用时8时15分0秒

用时多少后面显示的是当前的时间走向
我在 8点15分运行他，就显示 用时8时15分0秒