VB画圆代码

Private Sub Command1_Click()

Circle (5, 5), 3, vbRed

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

MeAutoRedraw = True

MeScale (0, 0)-(10, 10)

End Sub

下边是个实例，放一个text，一个按钮，text里输入几个就画几个

private

sub

command2_click()

dim

i

as

integer

for

i

=

1

to

val(text2text)

form3picture1circle

(120,

260),

i

10,

vbred

'在左边为120260的位置为圆心，i10的数量为半径画个圆

next

form3picture1refresh

end

sub

Sub DrawRing(s As Single, w As Single)

'此子过程的作用是在窗体正中画一个彩虹圆环

'第1个参数s是圆环外圆的半径（单位是缇）

'第2个参数w是圆环的宽度（单位是缇）

'要注意，w一定不能大于s！

Dim i As Integer, j As Single, c As Variant

Dim r As Integer, g As Integer, b As Integer

Dim r1 As Integer, g1 As Integer, b1 As Integer

Dim r2 As Integer, g2 As Integer, b2 As Integer

Dim k As Single

c = Array(&HFF&, &H80FF&, &HFFFF&, &HFF00&, &HFF0000)

'上面是5个颜色值，分别是 红、橙、黄、绿、蓝

'改变它们的值或顺序，就可以得到不同颜色的彩色圆环

For i = 0 To 3

    r1 = c(i) Mod &H100&

    g1 = c(i) \ &H100& Mod &H100&

    b1 = c(i) \ &H10000

    r2 = c(i + 1) Mod &H100&

    g2 = c(i + 1) \ &H100& Mod &H100&

    b2 = c(i + 1) \ &H10000

    k = s - w + i  w / 4

    For j = k To k + w / 4 - 1 Step ScreenTwipsPerPixelX

        r = r1 + 4  (r2 - r1)  (j - k) / w

        g = g1 + 4  (g2 - g1)  (j - k) / w

        b = b1 + 4  (b2 - b1)  (j - k) / w

        MeCircle (MeScaleWidth \ 2, MeScaleHeight \ 2), j, RGB(r, g, b)

    Next

Next

End Sub

Private Sub Command1_Click()

'用法举例：

DrawRing MeScaleHeight \ 2 - 300, MeScaleHeight \ 3 - 300

End Sub

Private Sub Form_Load()

MeAutoRedraw = True

MeDrawWidth = 2

End Sub

Circle(1000,1000),500,8,-6,-3

1000,1000,圆心坐标

500,半径

后面分别代表起始角,终止角,长短轴比率

好吧,详细点,就把Circle方法都说一遍

在对象上画圆、椭圆或弧。

语法

objectCircle [Step] (x, y), radius, [color, start, end, aspect]

Circle 方法的语法有如下的对象限定符和部分：

部分 描述

object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。

Step 可选的。关键字 ，指定圆、椭圆或弧的中心，它们相对于当前 object 的 CurrentX 和 CurrentY 属性提供的坐标。

(x, y) 必需的。 Single （单精度浮点数），圆、椭圆或弧的中心坐标。object 的 ScaleMode 属性决定了使用的度量单位。

radius 必需的。Single （单精度浮点数），圆、椭圆或弧的半径。 object 的 ScaleMode 属性决定了使用的度量单位。

color 可选的。Long （长整型数），圆的轮廓的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。

start, end 可选的。 Single （单精度浮点数），当弧、或部分圆或椭圆画完以后，start 和 end 指定（以弧度为单位）弧的起点和终点位置。其范围从 -2 pi 到 2 pi 。起点的缺省值是0; 终点的缺省值是2 pi。

aspect 可选的。 Single （单精度浮点数），圆的纵横尺寸比。缺省值为 10，它在如何屏幕上都产生一个标准圆（非椭圆）。

说明

想要填充圆，使用圆或椭圆所属对象的 FillColor 和 FillStyle 属性。只有封闭的图形才能填充。封闭图形包括圆、椭圆、或扇形。

画部分圆或椭圆时，如果 start 为负，Circle 画一半径到 start，并将角度处理为正的；如果 end 为负，Circle 画一半径到 end，并将角度处理为正的。Circle 方法总是逆时针（正）方向绘图。

画圆、椭圆或弧时线段的粗细取决于 DrawWidth 属性值。在背景上画圆的方法取决于 DrawMode 和 DrawStyle 属性值。

画角度为 0 的扇形时，要画出一条半径（向右画一水平线段），这时给 start 规定一很小的负值，不要给 0。

可以省略语法中间的某个参数，但不能省略分隔参数的逗号。您指定的最后一个参数后面的逗号是可以省略的。

Circle 执行时，CurrentX 和 CurrentY 属性被参数设置为中心点。

这个方法不能用在 With匛nd With 语句块中。

--------------------------------------------------------------------------------

Circle 方法示例

这个示例用Circle 方法在窗体中央画许多同心圆。要运行这个示例，将此代码放入窗体的 General 部分。按 F5 并单击窗体。

Sub Form_Click ()

Dim CX, CY, Radius, Limit ' Declare variable

ScaleMode = 3 ' 以像素为单位。

CX = ScaleWidth / 2 ' X 位置。

CY = ScaleHeight / 2 ' Y 位置。

If CX > CY Then Limit = CY Else Limit = CX

For Radius = 0 To Limit ' 半径。

Circle (CX, CY), Radius,RGB(Rnd 255, Rnd 255, Rnd 255)

Next Radius

End Sub

--------------------------------------------------------------------------------

应用于：

Form 对象、Forms 集合

PictureBox 控件

PropertyPage 对象

UserControl 对象

用3个文本框分别接收圆心的坐标x,y，以及圆的半径。

用一个按钮，执行单击事件的代码：

绘制圆的语句：

meCircle (x, y), radius, color

例如：在坐标x = 2000，y=2000，以半径为500的红色圆

MeCircle (2000, 2000), 500, QBColor(12)

以上就是关于VB画圆代码全部的内容，包括:VB画圆代码、vb中画圆的代码怎么写啊、vb画圆环等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！