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

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

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

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

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

Private Sub Form_Load()

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

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

vbYellow則不變藍(lán)色

ElseIfvbYellowThen如果不是是黃色

vbBlue則不變藍(lán)色

Else

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

EndIf

EndSub

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

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

VB時鐘控件？

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

接著剪切粘貼200元以內(nèi)代碼

Private Sub Form_Load()

DimIntIntervallikeInteger

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

IntInterval100

IntInterval

NTimer0

是為顯示更清楚

60

EndSub

Private Sub Timer1_Timer()

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

Timer1.EnabledFalse也可以0

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

NTimer NTimer 1 NTimerEnd Sub

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