神马品牌网饥荒mod人物:用VB如何编程画出“随机彩色圆”
来源：百度文库 编辑：神马品牌网 时间：2024/05/09 02:51:01
要会考了
帮忙啊~~~~~
帮忙啊~~~~~
一个PictureBox和一个CommandButton
Private Sub Command1_Click()
Randomize Timer
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
Pic.FillColor = RGB(r, g, b)
Pic.Circle (Rnd * Pic.Width, Rnd * Pic.Height), Rnd * 1000, RGB(r, g, b)
End Sub
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Randomize Timer
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
Form1.FillColor = RGB(r, g, b)
Form1.Circle (Rnd * Form1.Width, Rnd * Form1.Height), Rnd * 1000, RGB(r, g, b)
End Sub
修改一下楼上的程序
拖一个timer到窗体上即可，效果更佳
娱乐而已
当然辛苦分还要给楼上的兄弟呀～
GDI使用他。