vb 电子时钟

来源：百度知道 编辑：UC知道 时间：2024/06/10 05:50:26
例如 23:45
就是要用 :代表秒.会一闪一闪得..
跪求..谢谢.
是要用那 "冒号"
充当秒得闪动..

新建一个标准EXE工程

窗体上放一个TIMER 和一个LABEL
代码：
Option Explicit
Dim v As Boolean

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
v = Not v
If v Then
Label1.Caption = Format(Now, "HH:MM:SS")
Else
Label1.Caption = Format(Now, "HH:MM SS")
End If
End Sub

加一个timer控件
设置interval ： 1000

Private Sub Form_Load()
Me.Text1.Text = Mid(Time, 4, 5)
End Sub

Private Sub Timer1_Timer()

If Mid(Me.Text1.Text, 3, 1) = ":" Then
Me.Text1.Text = Mid(Time, 4, 2) & " " & Mid(Time, 7, 2)
Else
Me.Text1.Text = Mid(Time, 4, 5)
End If
End Sub

Option Explicit
Dim v As Boolean
Private Sub Timer1_Timer()
v = Not v
If v Then
Label1.Caption = Format(Now, "HH:MM:SS")
Else
Label1.Caption = Format(Now,