求教下VB里面CIRCLE的用法

1、如果我想在FORM的正中间画一个圆 应该怎么办呢
2、CIRCLE(X,Y)R ,X,Y表示圆心位置?比如CIRCLE(1000,1000)10的一个圆,1000和10的单位分别是什么?
3.如何利用SCALE命令设置一个坐标系,将圆心设在坐标系原点上?

画圆
Circle 方法可画出圆形和椭圆形的各种形状。另外,Circle 方法还可以画出圆弧(圆的一部分)和楔形饼块。使用变化的 Circle 方法,可画出多种曲线。
画圆的完整语法是:
[object.]Circle [Step](x, y), radius[, color]
如果不指定 object,则默认是当前的窗体。x 和 y 是圆心的坐标,radius 是圆的半径。
例如,下面语句将画出一个以 (1200,1000) 为圆心、750 为半径的圆:
Circle (1200, 1000), 750
这个语句产生的精确作用,还要依赖于窗体的大小和窗体的坐标系。如果不知道窗体的大小,也就不能知道这个圆是否可见。可使用绘图区的标尺属性,将该圆的圆心置于窗体的中心处:
Circle ((ScaleWidth + ScaleLeft) / 2, (ScaleHeight + ScaleTop) / 2), ScaleWidth / 4
在默认情况下 ScaleLeft=0, ScaleTop=0 ,所有两者可以省略。
数字的单位取决于ScaleMode,默认是1 - twip,1像素约=15 twip。

画圆弧
为了用 Circle 方法画出圆弧,应以弧度为单位,给出定义弧线 start 和 end 的角度参数。
画圆弧的语法是:
[object.]Circle [Step](x, y), radius, [color], start, end[, aspect]
如果 start 或 end 是负数将画出一个饼。
Const PI = 3.14159265
Circle (3500, 1500), 1000, , –PI / 2, –PI / 3
注意 将度换算成弧度的公式是将度数乘以 Pi/180。

窗体中以 Scale 开头的几个属性用于设定自定义坐标,从文字上看其实定义的是坐标系的第四象限。
ScaleLeft, ScaleTop 设置原点位置,默认为0,即窗体的左上角,如果设置为
ScaleLeft = me.Width / 2
ScaleTop = me.Height / 2
则原点在窗体的中央
ScaleHeight, ScaleWidth 设置坐标系与窗体实际尺寸的比例,这是通过数值而不是比例系数来表示的,即当窗体的 Width=3000 时设置
ScaleWidth=1500
则坐标系的数值是实际值的2倍,半径为100的圆将显示为200的大小
注意:设置坐标系的语句应该在Resize事件中。
温馨提示:内容为网友见解,仅供参考
第1个回答  推荐于2016-05-30
1、Scale (-100, 100)-(100, -100) ' 设定自定义座标系统。
我的理解,是它是任意刻度的,上面这个例子,把窗体的左上角设为坐标(-100,100),右下角设为坐标(100,-100),这样,整个窗体的中心坐标就是原点(0,0),但是千万别以为这个坐标系统是个正方形,其实是它实际的形状.假设你的屏幕分辨率是800*600的,它只不过水平方向刻度是1/800,而垂直方向刻度是1/600.当然,你将窗体的大小(宽度和高度)设置成一样是最好了,但是实际计算机屏幕总归不是正方的.
2、当你用Scale设置定义了新坐标,就无所谓单位了,单位就是1/800。如果用不带坐标的Scale,将又定义单位为缇.
3、这样做:窗体的BorderStyle属性设置为0
高与宽设置为10000,然后:
Scale (-100, 100)-(100, -100) ' 设定自定义座标系统。
Circle (0, 0), 90本回答被提问者采纳

求教下VB里面CIRCLE的用法
为了用 Circle 方法画出圆弧,应以弧度为单位,给出定义弧线 start 和 end 的角度参数。画圆弧的语法是:[object.]Circle [Step](x, y), radius, [color], start, end[, aspect]如果 start 或 end 是负数将画出一个饼。Const PI = 3.14159265 Circle (3500, 1500), 1000, , –PI \/ 2...

VB中利用Circle 方法可以画什么?
object.Circle [Step] (x, y), radius, [color, start, end, aspect]Circle 方法的语法有如下的对象限定符和部分:部分 描述 object 可选的。 对象表达式,其值为“应用于”列表中的对象。如果object 省略,具有焦点的窗体作为object。Step 可选的。关键字 ,指定圆、椭圆或弧的中心,它们相对于...

vb中画出线条或形状(例如圆)的代码并注释其格式
在窗体上画一条(0, 0)到(1000,1000)的直线 me.line (0,0)-(1000,1000)画圆或者椭圆用circle方法。circle方法的语法如下 对象名.circle (x , y) , 半径 , [,颜色] [, 起始角] [, 终止角] [, 长短轴比率]如,在窗体上以(1000,1000)为圆心画一个半径为500的圆。me.circle (1000, ...

VB画椭圆涵数 是什么?
由于椭圆有两个半径—水平方向的 x 半径和垂直方向 y 半径— Visual Basic 在 Circle 语句中只使用了一个参数 radius 对应椭圆的长轴。如果 aspect 参数小于 1 的话,该 radius 半径指的是水平方向的 x 半径,如果 aspect 参数大于或等于 1 的话,则 radius 指的是垂直方向的 y 半径。注意 aspec...

VB中利用Circle方法可以画什么
可以画圆(空心或实心)、椭圆(空心或实心)、弧线、扇形

VB代码中怎么画圆,矩形等等图片,公式是什么?
vb中circle画圆:例如画一个半径为5的圆,而方法1正,方法2扁,如何统一?约定Scale(-10,10)-(10,-10)方法1 使用circle (0,0),5,vbred,,,1 方法2 使用Pset(x,sqr(5^2-x^2))Dim x!for x=-5 to 5 step .001 Pset(x,sqr(5^2-x^2)),vbred Pset(x,-sqr(5^2-x^2)),vbred...

VB中用Circle画圆,怎样设置颜色?
见以下代码:Option ExplicitPrivate Sub Command1_Click() Picture1.Cls '设置圆的填充色为透明(无填充) Picture1.FillStyle = vbFSTransparent '画一个圆:圆心在(80, 50),半径为50,圆周的颜色为蓝色 Picture1.Circle (80, 50), 50, vbBlueEnd SubPrivate Sub Command2...

VB6.0中如何对一个圆进行根据角度进行划分?。。然后涂上不同的颜色...
用Circle方法(颜色可空着,用默认的前景颜色绘图):对象名.Circle(x,y),半径,[颜色],起始角,终止角 起始角和终止角均为负值时,画一个扇形,起始角和终止角都是弧度,不是60°,70°这样的角度,你按照自己的百分比将0到2*3.14159的弧度划分好就可以了。要填充的话,在画【每个扇形】之前...

在vb中如何使用“起点、终点、半径” 画圆弧 (分顺时针和逆时针圆弧...
Circle [支持画图的控件或窗体.]Circle (圆心坐标x, 圆心坐标y), 半径, [颜色], 圆弧起点, 圆弧终点[, 椭圆2半径之比]这里圆弧起点,圆弧终点为负数的话将做出一条从圆心连向这2点的线

vb中画圆的代码怎么写啊
Private Sub Command1_Click()MsgBox ("画第1个圆")Circle (1200, 1200), 200, QBColor(1)MsgBox ("画第2个圆")Circle (1200, 1200), 400, QBColor(2)MsgBox ("画第3个圆")Circle (1200, 1200), 600, QBColor(3)MsgBox ("画第4个圆")Circle (1200, 1200), 800, QBColor(4)MsgBox...

相似回答