Question

vb程序中，如何在运行程序后使command按钮的颜色不断自动随机改变？

为什么我用backcolor编程后改变的不是按钮的颜色而是整个form1的背景颜色？

Answer 1

可以设置按钮的属性,方法是先将 command
的style属性设为
graphic,
在设置它
的backcolor
按你的要求改色
也可以按照代码的方式设置,在窗体画一个command按钮,再在form_load事件中添加以下代码
command1.style=1
randomize
command1.backcolor=rgb(int(rnd*255),int(rnd*255),int(rnd*255))
就可以了,,颜色是随机的

Answer 2

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Command1.BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub

以上代码，还需要设置Command1控件的Style属性值为1 才有效果！

Answer 3

你是没选择你要改颜色的按钮，而是误选择了窗体吧

追问

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Command1.BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub

这是我编的 但是运行了以后没有反应..

追答

知道原因了，要把按钮控件的style属性改成1 - Graphical模式才行

追问

弄好了~谢谢