VB编程在PictureBox中画圆弧，自定义坐标系，三点，Circle函数是不是有什么缺陷啊？

VB编程在PictureBox中画圆弧，自定义坐标系，且坐标系宽高比与PictureBoxScale宽高比一致，毫米单位，三点圆弧，当三个点的位置接近在一条直线上时，Circle画圆弧就会出现加大偏差。如图，两条圆弧皆为选中状态，左边圆弧较为正常，但右边的圆弧则有偏差，右线下方两端有蓝色和绿色点，为终点和起点，箭头指示圆弧方向。
！！！每当三点近乎在一条直线上画线时，总会出现较大偏差。而且当精确读取线条位置坐标时，有的也会有10个丝左右的偏差。

求VB界大神帮忙！

举报该问题

其他回答

第1个回答 2013-01-17

这不是缺陷，是因为计算机的显示系统，点与点之间有距离造成的。
. . . . .
. . . . .

. . . . .
. . . . .
. . . . .
如图，如果画线时候，线在一条直线上，当然无问题。
如果不在一条直线上，假设第一点在(1,1)位置，第二点在(1.4,1,4)位置上，由于显示器不能显示
(1.4,1,4)位置，所以会用近似值代替，使用(1,1)或者(2,2)来代替。这样当类似这样的点多的时候，就会产生这种扭曲现象。

你可以使用gdi+编程，它使用了优化算法，使图像更近似直线。效果要好得多。追问

不好意思用三点画圆弧时，当三个点的位置趋近于一条直线时，如起点A、中点B、终点C三点，AB和BC斜率接近时所画出的弧线，与实际位置有较明显偏差。三条标示线，红线分别是起点圆心、起点中点，蓝线是中点圆心、中点终点，绿线是终点圆心、终点起点。左图三点间斜率差异明显画图正常，但右图中起点中点斜率和中点终点斜率相近时，圆弧就变形了，但是标示线的坐标位置确实正确的。

所以，右边怎么会这样呢？

来自：求助得到的回答

第1个回答 2013-01-17

很专业的问题

相似回答

vb编程在picturebox画圆答：Picture1.Circle (x1, y1), Sqr((x - x1) ^ 2 + (y - y1) ^ 2), End If End Sub

VB中circle函数答：start, end 可选的。 Single （单精度浮点数），当弧、或部分圆或椭圆画完以后，start 和 end 指定（以弧度为单位）弧的起点和终点位置。其范围从 -2 pi 到 2 pi 。起点的缺省值是0; 终点的缺省值是2 * pi。aspect 可选的。 Single （单精度浮点数），圆的纵横尺寸比。缺省值为 1.0，...

vb 画圆问题答：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 '下来画出来的就是填充了实心蓝色的...

vb picturebox中画圆答：Picture1.ScaleMode 指的是picture的坐标度量尺寸，vbPixels 指的是以1像素为1单位度量，在vb中，1像素=3默认单位画红这样画 Private Sub Command1_Click()Dim x As Integer Dim y As Integer Picture1.ScaleMode = vbPixels '这话什么意思啊？x = Picture1.ScaleWidth / 2 y = Picture1....

VB中在picturebox中应用Line函数为什么画不出直线答：使用下列图形方法工作，如：Circle、Cls、Line、Point、Print 和 Pset，AutoRedraw 属性极为重要。利用这些方法，在改变对象大小或隐藏在另一个对象后又重新显示的情况下，设置 AutoRedraw 为 True，将在 Form 或 PictureBox 控件中自动重绘输出。运行时在程序中设置 AutoRedraw，可以在画持久图形（如...

vb中,在picturebox控件中画圆的代码答：If vbLeftButton = Button Then MouseDown = True Dx = X Dy = Y Else 'clear circle Picture1.Cls isExists = False End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Not MouseDown Then Exit Sub If isExists Then If...

VB中利用Circle 方法可以画什么?答：1000,1000,圆心坐标 500,半径后面分别代表起始角,终止角,长短轴比率好吧,详细点,就把Circle方法都说一遍在对象上画圆、椭圆或弧。语法 object.Circle [Step] (x, y), radius, [color, start, end, aspect]Circle 方法的语法有如下的对象限定符和部分：部分描述 object 可选的。对象表达式...

如何在vb中的picturebox 里画图?答：画左上角。Picture1.Line -(CX * f2, CY) ' 画右上角。Picture1.Line -(CX, CY * f2) ' 画右下角。Picture1.Line -(CX * f1, CY) ' 画左下角 ForeColor = QBColor(I Mod 15) ' 每次改变颜色。Next I SavePicture Picture1.Image, "z:\test.bmp"End Sub ...

为什么我在VB中,用picturebox画图,图都不是在picture中显示的都在form...答：Private Sub Form_Activate()Picture1.Circle (Picture1.Width / 2, Picture1.Height / 2), Picture1.Width / 2 * 0.9, vbRed End Sub

大家正在搜