一个label控件 一个timer控件 用以下代码,就是透明的时钟,根本不需要什么第三方控件,大小自己调整吧。Private Sub Form_Load() Label1.BackStyle = 0 Label1.Move 0, 0, 2400, 800 Label1.FontSize = 24 Timer1.Interval = 1000 Label1.Caption = Time End SubPrivate Sub Timer1_Timer() Label1.Caption = Time End Sub
我至少要能改变改变下时钟的样式的
一个timer控件
用以下代码,就是透明的时钟,根本不需要什么第三方控件,大小自己调整吧。Private Sub Form_Load()
Label1.BackStyle = 0
Label1.Move 0, 0, 2400, 800
Label1.FontSize = 24
Timer1.Interval = 1000
Label1.Caption = Time
End SubPrivate Sub Timer1_Timer()
Label1.Caption = Time
End Sub