VB怎么讓字體顏色有規(guī)律的自動(dòng)變化？是可以用定時(shí)器來(lái)實(shí)現(xiàn)200以?xún)?nèi)代碼示例，Label中的字體顏色，有規(guī)律地左面變化為紅、黃、藍(lán)模型：窗體form1，定時(shí)器Timer1，標(biāo)簽Label1Private

VB怎么讓字體顏色有規(guī)律的自動(dòng)變化？

是可以用定時(shí)器來(lái)實(shí)現(xiàn)

200以?xún)?nèi)代碼示例，Label中的字體顏色，有規(guī)律地左面變化為紅、黃、藍(lán)

模型：窗體form1，定時(shí)器Timer1，標(biāo)簽Label1

Private Sub Form_Load()

500啟動(dòng)定時(shí)器，并將觸發(fā)時(shí)不宜超過(guò)系統(tǒng)設(shè)置為0.5sEnd SubPrivate Sub Timer1_Timer()

IfvbRedThen假如Label字體顏色為藍(lán)色的

vbYellow則不變藍(lán)色

ElseIfvbYellowThen如果不是是黃色

vbBlue則不變藍(lán)色

Else

vbRed如果沒(méi)有是其他顏色，則不變紅色；從而實(shí)現(xiàn)紅黃藍(lán)前后交替

EndIf

EndSub

VB怎樣使一句命令每隔一定時(shí)間重復(fù)執(zhí)行？

加個(gè)定時(shí)器控件interval屬性設(shè)為3000在timer事件中寫(xiě)在timer里面定義一個(gè)staticcountandintegercountcount1ifcountgt10then0就行了

VB時(shí)鐘控件？

空白文檔vb工程，加入到timer,label,command控件各一個(gè)。

接著剪切粘貼200元以?xún)?nèi)代碼

Private Sub Form_Load()

DimIntIntervallikeInteger

改變IntInterval的值也可以變化循環(huán)快慢

IntInterval100

IntInterval

NTimer0

是為顯示更清楚

60

EndSub

Private Sub Timer1_Timer()

這里面得代碼應(yīng)該是一個(gè)循環(huán)，循環(huán)結(jié)束后條件是

Timer1.EnabledFalse也可以0

循環(huán)的執(zhí)行時(shí)間間隔應(yīng)該是Interval的值，10毫秒為單位。

NTimer NTimer 1 NTimerEnd Sub

運(yùn)行，你就清楚了。我注視寫(xiě)得很知道的。祝你成功！