Question

大侠,请问在VB中如何画一填充的半圆?

Answer 1

Private Sub Command1_Click()
Me.FillStyle = 0   '填充模式为实心
Me.FillColor = vbRed   '填充颜色为红色
Me.Circle (Me.ScaleWidth \ 2, Me.ScaleHeight \ 2), Me.ScaleHeight \ 3, vbRed, -2 * pi, -pi
'在窗体正中画一个半径为窗体三分之一高的红色实心半圆
End Sub

追问

先谢啦,但还是不行.我想画的是一个一半填充红色,另一半无填充的圆,麻烦您再指教!

追答

Private Sub Command1_Click()
Me.FillStyle = 0 '填充模式为实心
Me.FillColor = vbRed '填充颜色为红色
Me.Circle (Me.ScaleWidth \ 2, Me.ScaleHeight \ 2), Me.ScaleHeight \ 3, vbRed, -2 * pi, -pi
'在窗体正中画一个半径为窗体三分之一高的红色实心半圆
Me.FillStyle = 1 '填充模式为透明
Me.Circle (Me.ScaleWidth \ 2, Me.ScaleHeight \ 2), Me.ScaleHeight \ 3, vbRed, -pi, -2 * pi
'画透明的（也就是无填充的）另外半圆
End Sub

Answer 2

对象上画圆、椭圆或弧语法
object.Circle [Step] (x, y), radius, [color, start, end, aspect]

其中（x,y）表示圆心位置， radius 半径，颜色，起角，终角，纵横比值

Option Explicit

Const Pi = 3.1415926

Private Sub Command1_Click()

Picture1.Cls

Picture1.Circle (2500, 1200), 1000, vbRed, -2 * Pi, -Pi '画上半圆,这里角度前的负号只表示画的是扇形，不表示数学上的象限

End Sub

Private Sub Command2_Click()

Picture1.Cls

Picture1.Circle (2500, 1200), 1000, vbBlue, -Pi, -2 * Pi '画下半圆

End Sub

Private Sub Command3_Click()

Picture1.Circle (2500, 1200), 1000, , 0.3 * Pi, 0.9 * Pi '画劣弧，画弧时角度前没有负号

End Sub

Private Sub Command4_Click()

Picture1.Circle (2500, 1200), 1000, , 0.4 * Pi, 1.8 * Pi '画优弧
End Sub

樊得关如庐辕即苟触误阶卷壤飚首炜姣搡祗屈构

追问

画半圆我会,我想让半圆填充颜色,比如红色半圆,怎么办呀?