生源地贷款利息计算:有关用VB画基本的彩色的圈。

来源:百度文库 编辑:神马品牌网 时间:2024/05/03 08:01:18
怎样调圈的颜色,最好写下大概的高级语言。

生成随机大小和颜色的圈:

一个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

'调圆的颜色,是在Circle方法的第三个参数里调,可以用RGB函数,如RGB(255,0,0)红色。也可以用VB的既定颜色常数,如vbGreen绿色。