vb 画有颜色的圆

发布网友 发布时间：2024-09-28 13:23

我来回答

共4个回答

热心网友 时间：2024-09-29 08:53

为了画圆，Visual Basic 需要给出该圆的圆心位置和它的半径。画一个理想圆的语法是：

[object.]Circle [Step](x, y), radius[, color]

方括号表明 object 和 Step 关键字是任选项。如果不指定 object，则认为指定的就是当前的窗体。x 参数和 y 参数是圆心的坐标，radius 参数是圆的半径。例如，下面语句将画出一个以 (1200,1000) 为圆心、750 为半径的圆：

Circle (1200, 1000), 750

这个语句产生的精确作用，还要依赖于窗体的大小和窗体的坐标系。如果不知道窗体的大小，也就不能知道这个圆是否可见。可使用绘图区的标尺属性，将该圆的圆心置于窗体的中心处：

Circle ((ScaleWidth + ScaleLeft) / 2, (ScaleHeight + _
ScaleTop) / 2), ScaleWidth / 4

此时，关于 ScaleWidth 和 ScaleHeight 所有应知道的是，它们能帮助将图形定位于窗体的中心。

一个半径是500的红色的实心圆例子：

Private Sub Command1_Click()
DrawWidth = 2
For i = 0 To 500
Circle (500, 500), i, vbRed
Next i
End Sub

热心网友 时间：2024-09-29 08:53

纯粹想得到一个圆还可以用shape控件画啊，画好后设置一下边框、颜色等属性就好了！

热心网友 时间：2024-09-29 08:54

Private Sub Form_Load()
Me.AutoRedraw = True
FillStyle = 0'填充样式为不透明
FillColor = vbWhite'填充颜色，白色
Me.Circle (1000, 1000), 720, vbRed’画红色的圆
End Sub

热心网友 时间：2024-09-29 08:54

Private Sub Form_Click()
FillStyle = 0
FillColor = vbBlue
Me.Circle (1200, 1200), 800
End Sub