1樓：匿名使用者
'將1-4的style屬性改為1，然後新增**
private sub command5_click()
randomize
dim n as integer
n = int(rnd * 4)
select case n
case 0
command1.backcolor = qbcolor(int(rnd * 15))
case 1
command2.backcolor = qbcolor(int(rnd * 15))
case 2
command3.backcolor = qbcolor(int(rnd * 15))
case 3
command4.backcolor = qbcolor(int(rnd * 15))
end select
end sub
2樓：匿名使用者
建立5個陣列控制元件（就是建立一個按鈕，複製第一個按鈕貼上5個）寫以下**
dim ys&
private sub form_load()ys=combo1(0).backcolorend sub
private sub command1_click(index as integer)
static i%
if index=4 then
i=i+1
end if
if i mod 2=0 then
timer1.enabled=true
else
timer1.enabled=false
end if
end sub
private sub timer1.timer()randomize
for i=0 to 3
command1(i).backcolor=rgb(int(rnd * 255),int(rnd * 255),int(rnd * 255))
next i
end sub
vb如何實現顏色隨機選擇 15
3樓：夢想種子
private sub form_click()randomize timer
backcolor = rgb(rnd * 256, rnd * 256, rnd * 256)
end sub
'這是bai改變窗體du背景顏
zhi色的
dao過版
程**權。
4樓：匿名使用者
rgb(int(rnd*256),int(rnd*256),int(rnd*256))
上面這個函式值就是一個隨機顏色
如何修改vb按鈕的顏色
5樓：匿名使用者
在設計狀態時將按鈕command1.style = vbbuttongraphical 『改為影象模式，
這一點很關鍵。內
'否則顏色無法容
顯示。private sub command2_click()command1.backcolor = vbredend sub
6樓：匿名使用者
在設copy計狀態時將按
bai鈕command1.style = vbbuttongraphical 『改為影象模式，du這一點很關鍵。
'否則顏zhi色無dao法顯示。
private sub command2_click()command1.backcolor = vbredend sub
7樓：樑丘開宇陰勳
用標準控制元件是無法改變的。有兩種方法可以解決：
(1)採用**框來代替
(2)搜xp控制元件，是windows
xp風格的控制元件（如命令按鈕、單選按鈕、核取方塊……）。通常都會有示例說明，顏色很豐富，也很漂亮
8樓：伊玉花以念
假設你有復button1和button2，按下了button1之後改制變button2的顏色，那麼：
在設計狀態時將按鈕command2.style=vbbuttongraphical
『改為影象模式，這一點很關鍵。
'否則顏色無法顯示。
private
subcommand1_click()
command2.backcolor
=vbred
endsub
vb 動態新增 按鈕 事件
可以考慮按鈕陣列，即新加的按鈕與已存在的按鈕name相同，僅具有不同的index，那麼這一組按鈕的相同事件都可以在同一個過程中實現，藉由這個過程的index引數來區別使用者單擊的是哪個按鈕。舉個例子 兩個按鈕都叫做command1，index分別為0和1index為0 的按鈕的caption為 按鈕1...
vb中單擊命令按鈕觸發哪些事件，在VB6 0中，怎麼寫一個命令按鈕多次單擊按鈕的不同事件？
1 在vb中單擊命令按鈕觸發單擊事件，即窗體的click事件。2 在vb中單擊命令按鈕觸發失去焦點事件，當焦點不在按鈕上即發生。3 在vb中單擊命令按鈕觸發鍵盤按下事件，任意按下任意的鍵盤即可觸發事件。4 在vb中單擊命令按鈕觸發滑鼠按下事件，當滑鼠按下即可觸發的事件，無論是左鍵還是右鍵。5 在vb...
求助,用VB實現模擬點選某視窗中的按鈕
有個笨辦法 先啟動一個 timer 然後用 messagebox 它不會暫停 timer 工作 然後在 timer 裡操縱滑鼠點選 不如干脆按y了 private declare function messagebox lib user32 alias messageboxa byval hwnd ...