给定坐标及半径之后能够用vb画圆自动画出

如题所述

VB绘制圆的命令格式:
Object.Circle (x, y), R,Color
其中:
Object ---- 对象名,可以是窗体或PictureBox对象
x,y ---- 圆心坐标
R ---- 圆半径
Color ---- 颜色(默认黑色或之前设置的颜色)
提示:VB默认的窗体和PictureBox对象的坐标系统为:左上角(0,0)点,即原点,且x轴向右为正向,Y轴向下为正向.
在绘制前用语句
Object.DrawWidth属性设置线条粗细
Object.DrawWidth=2追问

谢谢,这个问题我已经解决!
如果想用鼠标改变圆的的大小,怎么处理?

温馨提示:内容为网友见解,仅供参考
第1个回答  2012-07-26
具体点
第2个回答  2012-07-26
Private Sub Command5_Click()
Form2.Show
Dim r As Double
Form2.Scale (-200, 200)-(200, -200)
For r = 50 To 200 Step 10
Form2.Circle (0, 0), r, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
Next r
End Sub追问

我想用鼠标拖动改变圆心的位置及圆的大小,类似于word画圆一样

第3个回答  2012-07-26
Circle

求vb大神 已知两点坐标 圆半径 如何画两点间圆弧 要代码示例 一定要圆 ...
用Circle画圆圆弧椭圆都可以具体参照下面的详细说明Circle(1000,1000),500,8,-6,-31000,1000,圆心坐标500,半径后面分别代表起始角,终止角,长短轴比率好吧,详细点,就把Circle方法都说一遍在对象上画圆、椭圆或弧。语法object.Circle[Step](x,y),radius,[color,start,end,aspect]Circle方法的语法有如...

用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...

...坐标系上画圆,圆不显示,不画坐标系只画圆,圆就能显示,但圆心不_百 ...
3. 将坐标系各点的坐标按照平移距离进行平移。4. 将圆的半径进行缩放,以保证在PictureBox中能够显示完整的圆。缩放后的圆的半径r' = r * min(PictureBox.Width, PictureBox.Height) \/ (2 * max(abs(Ox-Cx), abs(Oy-Cy)))5. 画圆。经过以上步骤,就可以在PictureBox的中心画出带有坐标系...

vb输入外接圆半径,和中心坐标画出五角星怎么写。
Private Type tPoint x As Single y As SingleEnd TypePrivate Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = 360End SubPrivate Sub fun_Paint() Const PI As Double = 3.141592653 Dim intR As Integer Dim intO As tPoint Dim intK As Integer Dim pp...

vb画圆代码
VB画圆代码:主要使用函数【Circle (x, y), 半径, 颜色 】 :Circle(圆圈中心的坐标X,圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色 代码start=== '控件:'名称:Command1,属性Caption:开始 '名称:Command2,属性Caption:结束 Private Sub Command1_Click() '***开始按钮 Circle (1500, 1000...

用VB编程画圆
Private Sub Command1_Click()Dim i As Integer Dim j As Integer j = CInt(Me.Text1.Text)For i = 1 To j Form1.Circle (2400,2000),800 + i 100 Next End Sub 使用Circle 方法 其中(2400,2000)是圆心坐标,后面部分是半径

VBA中,我想在窗体中生成几个圆,坐标和半径都是设置好了的,VBA中不认ci...
'下面代码复制到窗体 Private Sub Command1_Click()Dim hwnd As Long Dim hdc As Long hwnd& = FindWindow(vbNullString, "Form1") '获得窗口句柄 If hwnd = 0 Then Else hdc = GetDC(hwnd)Arc hdc, 50, 50, 150, 150, 50, 50, 50, 50 CancelDC hdc End If End Sub ...

vb中用pset画圆为什么画出的是椭圆,我的坐标比例是相等的
圆的一个条件就是半径固定 也就是说 圆心到每个点的距离都是相同的 椭圆的话有两个焦点啊 椭圆的是点到两焦点距离和相同 所以就算点的座标比例相同但是距离结果是不同的 而且还是算的点到两焦点的距离和 所以画不出圆吧 要画的画就把两焦点坐标改相同试试 把(-10,10)-(10,-10)改成(-10...

在vb中已知起点坐标 终点坐标 圆心坐标 怎么画圆弧
语法 object.Circle (x, y),radius, color, start, end (x, y) --- 圆心坐标 radius --- 半径值 color --- 颜色 start --- 开始的圆心角的弧度 end --- 结束的圆心角的弧度 无法直接根据终点坐标 圆心坐标来绘制圆弧

用VB编程画圆
源程序可以在附件中下载!"横排画圆"按纽程序如下:Private Sub Command1_Click() Dim centerX, centerY As Integer Dim rad As Integer Dim i As Integer '定义并设置画圆的中心坐标(centerX,centerY)及半径 rad centerX = 100 centerY = 100 rad = 50 '循环画10个圆,中心...

相似回答
大家正在搜