如何使用vb6.0画圆

circle(圆心坐标：***，***)，半橡胡羡径**‘中文全部为做段解释。。书写时表中文去掉，*为数值。

private sub cmd1_click（）

circle （2000，2000），900‘在窗体坐标2000，2000的地方画一梁拍个半径900的圆。

vb 画圆问题

建立一个工程，视窗上面放一个PictureBox，大小销带相对大一些，将其ScaleMode属性设为3。

然后放一个按钮，其中加入以下程式码：

'这段程式码演示了如何使用VB的Circle方法绘制各种各样的圆。

Form1.Picture1.Circle (60, 60), 40, vbRed '画一个圆心(60,60)半径40的红色的圆（预设空心）

Form1.Picture1.FillStyle = 0 '设定填充模式为实心

Form1.Picture1.FillColor = vbBlue '设定填充色蓝色

Form1.Picture1.Circle (190, 60), 40, vbRed '下来画出来的就是填充了实心蓝色的圆了

Form1.Picture1.DrawWidth = 3 '设定边框宽度为3

Form1.Picture1.Circle (60, 190), 40, vbRed '这次绘制出来的圆边框粗细为3

Form1.Picture1.DrawStyle = 5 '设定边框不可见

Form1.Picture1.FillColor = vbRed '设定填充色红色

Form1.Picture1.Circle (190, 190), 40 '这次绘制出来一个无边框、填充颜色是红色的圆

Form1.Picture1.Refresh

然后试试看，对照注释应该就明白了。

————————————————嫌运

PS：对楼上 wys_sans给出的方法的评价：

其方法1、根本不能称作画圆；

其方法2、很显然Circle可以直接画实心的圆，只是这位不知道而已；

其方法3、效率极低效果极差的最糟糕方法。

vb关于画圆座标问题？

编写过程中还是程式执行过程中？

执行过程中mouse的各种事件可以读取x,y

编写过程中直接给控制元件的，left属性赋值就可以改变座标

Ansys Workbench 画圆的问题

把滑鼠放到座标原点的时候会变为方框的形状，同时在画圆的时候会显示字母P，以确定圆心在座标原点。

vb右键画圆

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then '左键

End If

If Button = 2 Then '右键

End If

End Sub

vb 画圆 画在picture里

Private Sub Command1_Click()

Dim x, y, r

x = InputBox("请输入圆心座标x", "引数输入", 30)

y = InputBox("请输入圆心座标y", "引数输入", 30)

r = InputBox("请输入半径r", "引数输入", 15)

Picture1.ScaleMode = 3

Picture1.Circle (x, y), r, , 0, 0

End Sub

画圆的问题，求解答

可先尝试用归纳法

在平面上任意作1个圆,这些圆最多可把这个平面分成亏者芦2个部分

在平面上任意作2个圆,这些圆最多可把这个平面分成4个部分

在平面上任意作3个圆,这些圆最多可把这个平面分成8个部分

在平面上任意作4个圆,这些圆最多可把这个平面分成16个部分

.....

通过总结发现数字之间的规律可得：

在平面上任意作6个圆,这些圆最多可把这个平面分成2^6个部分

用VB程式设计画圆

新增以个TEXT2,一个按钮，复制一下程式码即可Private Sub Command2_Click()

Dim i As Integer

'i = Val(Text2.Text)

For i = 1 To Val(Text2.Text)

Form3.Picture1.Circle (120, 260), i * 10, vbRed

Next

'Form3.Picture1.Circle (60, 60), 40, vbRed '画一个圆心(60,60)半径40的红色的圆（预设空心）

'

'

'Form3.Picture1.FillStyle = 0 '设定填充模式为实心

'Form3.Picture1.FillColor = vbBlue '设定填充色蓝色

'Form3.Picture1.Circle (190, 60), 40, vbRed '下来画出来的就是填充了实心蓝色的圆了

'

'

'Form3.Picture1.DrawWidth = 3 '设定边框宽度为3

'Form3.Picture1.Circle (60, 190), 40, vbRed '这次绘制出来的圆边框粗细为3

'

'Form3.Picture1.DrawStyle = 5 '设定边框不可见

'Form3.Picture1.FillColor = vbRed '设定填充色红色

'Form3.Picture1.Circle (190, 190), 40 '这次绘制出来一个无边框、填充颜色是红色的圆

Form3.Picture1.Refresh

End Sub

Flash cs6矩形画圆角问题

画一个矩形 复制一个在同位置不同图层，然后一个设定圆角 然后二者取半组合

求助关于mfc画圆的问题

用画椭圆的函式Ellipse(x1,y1,x2,y2)x1,y1是椭圆外切矩形的左上角座标，x2,y2是右下角座标。

你只要确保这两点确定的是一个正方形，那么内切的椭圆就正好是圆了。

VB程式设计 滑鼠画圆

建立一个工程，介面上放一个PictureBox控制元件，控制元件名字叫Picture1，然后把下面的程式码复制到工程中，执行检视效果。

Option Explicit

Private Type POINTAPI

        x As Long

        y As Long

End Type

Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private DrawEllipse As Boolean

Private dwPoint(1) As POINTAPI

Private Sub Form_Load()

    Picture1.ScaleMode = vbPixels

    Picture1.AutoRedraw = True

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

    If Button = vbLeftButton Then

        DrawEllipse = True

        dwPoint(0).x = CLng(x)

        dwPoint(0).y = CLng(y)

    End If

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

    If DrawEllipse = True Then

        dwPoint(1).x = CLng(x)

        dwPoint(1).y = CLng(y)

        Picture1.Cls

        Ellipse Picture1.hdc, dwPoint(0).x, dwPoint(0).y, dwPoint(1).x, dwPoint(1).y

        Picture1.Refresh

    End If

End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

    If Button = vbLeftButton Then

        DrawEllipse = False

    End If

End Sub

Private Sub Command1_Click()

Dim r As Integer

For r = 50 To 1000 Step 100

Picture1.Circle (1050, 1050), r

Next

End Sub

Private Sub Form_Load()

Picture1.Move 0, 0, 2100, 2100

End Sub

---