在vb中人如何用 shape控件画圆

1、打开VB软件，新建一个标准EXE。

2、建立一个标签按钮。

3、可以改变标签的文字大小类型位置，在右边找到Font属性。我们将字体设为黑体，字形设为粗行，大小改为18。

4、在caption属性的窗口中可以改标签的内容，例如改为"又下雨了"

5、我们还可以改动标签文字的位置，例如左边，中间，还是在右边输出。在Alignment中选择0,1,2。

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

Private Sub Form_Click()

Randomize

Cls

Dim MaxX As Long

Dim MaxY As Long

MaxX = Form1ScaleWidth

MaxY = Form1ScaleHeight

For I = 1 To 50

x = Int(Rnd (MaxX - 500))

y = Int(Rnd (MaxY - 500))

Form1Circle (x, y), Int(Rnd 500) + 1, RGB(Int(Rnd 256), Int(Rnd 256), Int(Rnd 256))

Next

End Sub

Private Sub Form_Load()

Form1BackColor = vbBlack

End Sub

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

画圆

Circle 方法可画出圆形和椭圆形的各种形状。另外，Circle 方法还可以画出圆弧（圆的一部分）和楔形饼块。使用变化的 Circle 方法，可画出多种曲线。

为了画圆，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 所有应知道的是，它们能帮助将图形定位于窗体的中心。

以上就是关于在vb中人如何用 shape控件画圆全部的内容，包括:在vb中人如何用 shape控件画圆、vb画圆环、VB随机画圆等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！