Question

vb 中如何设置圆的颜色，包括边框和填充的颜色

边框一定要是有颜色的，没颜色的边框不采纳

Answer 1

Shape的BorderColor为边框颜色
Shape的FillColor为填充的颜色

Answer 2

Private Sub Form_Click()
Me.FillStyle = 0
Me.FillColor = vbGreen
Me.Circle ((ScaleWidth + ScaleLeft) / 2, (ScaleHeight + ScaleTop) / 2), ScaleWidth / 4, vbRed
End Sub

追问

有没有简单点的

追答

用SHAPE控件

追问

还是用vb的，好像是把一个什么颜色代码放进去

追答

Shape控件的BorderColor为边框颜色
Shape控件的FillColor为填充的颜色
在右下角的属性窗口中设置

Answer 3

代码及注释：
假设圆为shapes(1)
Sub main()
Shapes(1).Fill.ForeColor.RGB = RGB(255, 255, 0)'将图形填充颜色变为黄色
Shapes(1).Line.ForeColor.RGB = RGB(255, 0, 0)'将图形边框颜色变为红色
End Sub