'在窗體畫一個Picture1和一個Timer1，屬性為默認(rèn)，加入以下代碼：
Option Explicit
'漸變的時鐘
Private Sub DrawText(Dx As Object, Txt As String, BRed As Long, BGreen As Long, BBlue As Long, ERed As Long, EGreen As Long, EBlue As Long, Optional Nx As Double = 0)
Static L(3) As Integer, Wx As Long, WordColor As Long, I As Integer
Dx.AutoRedraw = True
Dx.Cls
Wx = Nx
For I = 1 To Len(Txt)
DoEvents
WordColor = RGB(BRed + IIf(BRed >= ERed, -1, 1) * Abs(BRed - ERed) * I / Len(Txt), BGreen + IIf(BGreen >= EGreen, -1, 1) * Abs(BGreen - EGreen) * I / Len(Txt), BBlue + IIf(BBlue >= EBlue, -1, 1) * Abs(BBlue - EBlue) * I / Len(Txt))
If I > 1 Then
L(0) = Dx.TextWidth(Mid(Txt, I - 1, 1))
L(1) = Dx.TextWidth(Mid(Txt, I, 1))
L(2) = IIf(L(1) > L(0), 0, L(1))
L(3) = IIf(L(0) <> L(1), Dx.FontSize * 10, 0)
Wx = Wx + L(2) + L(3)
End If
Dx.ForeColor = WordColor
Dx.CurrentX = Wx
Dx.CurrentY = (Dx.ScaleHeight - Dx.TextHeight(Txt)) / 2
Dx.Print Mid(Txt, I, 1)
Next I
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
Picture1.FontSize = 30
Picture1.FontBold = True
End Sub

Private Sub Timer1_Timer()
Call DrawText(Picture1, Time, 255, 0, 255, 0, 255, 0)
End Sub

總結(jié)

以上是生活随笔為你收集整理的VB一个漂亮的渐变时钟的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。