Question

VB画圆随机填充颜色要有边框位置随机的代码

很急 第一次提问 VB画图使用代码没学好 哪位好心人帮个忙
最好是关于circle的方法

Answer 1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FillColor = QBColor(Int(Rnd * 15))
FillStyle = 0 '你也可以将0替换成Int(Rnd * 8) 让填充方式随机改变
Circle (X, Y), 250, QBColor(Int(Rnd * 15)) '也可将QBColor(Int(Rnd * 15)) 去掉 默认是0 黑色边框
End Sub