1樓:夢想種子
private sub form_click()randomize timer
backcolor = rgb(rnd * 256, rnd * 256, rnd * 256)
end sub
'這是bai改變窗體du背景顏
zhi色的
dao過版
程**權。
2樓:匿名使用者
rgb(int(rnd*256),int(rnd*256),int(rnd*256))
上面這個函式值就是一個隨機顏色
在vb中,字型隨機顏色是怎麼用**實現的?
3樓:匿名使用者
建立一來個time控制元件自、label1控制元件,**如下:baiprivate sub form_load()timer1.interval = 500end sub
private sub timer1_timer()a = int(rnd * 256)
b = int(rnd * 256)
c = int(rnd * 256)
label1.forecolor = rgb(a, b, c)end sub
就可以實現dulabel1控制元件的字型zhi隨機顏色變dao換。
4樓:匿名使用者
用rgb()函式bai
來實現,**
du如下randomizergb(int(rnd*255),int(rnd*255),int(rnd*255))這就生zhi成了一個隨機的dao顏色,直接用就內
可以了 ,比如容me.backcolor=rgb(int(rnd*255),int(rnd*255),int(rnd*255))
5樓:匿名使用者
private sub option11_click()a = int(rnd * 256)
b = int(rnd * 256)
c = int(rnd * 256)
text1.forecolor = rgb(a, b, c)end sub
6樓:匿名使用者
a=int(rnd*256)
b=int(rnd*256)
c=int(rnd*256)
text1.forecolor=rgb(a,b,c)
vb變數如何實現母和數字分開寫，vb 變數如何實現 字母和數字分開寫
如果要變數，陣列最方便，給您提供一個陣列的程式 dim a as integer 在這宣告瞭陣列 dim b as integer dim text as integer private sub command1 click dim s1,s2 as string text val form1.te...
如何用VB實現秦九昭演算法
第一題解 作出底邊bc上的高ad 等腰 abc的周長為26 ab ac bc 26 ab ac,且ab bc 4 bc 4 bc 4 bc 26 3bc 18 bc 6 ab ac 6 4 10 bc 2 2 ad 2 ab 2 3 2 ad 2 10 2 ad 2 100 9 91 ad 根號91...
如何用VB實現文字移動式高亮
dim i private sub form load timer1.enabled falsetimer1.interval 1000end sub private sub command1 click timer1.enabled truetext1.setfocus end sub priva...