再次提问picturebox控件line的问题...... 热盼

[shimd0604]

我使用下列代码在picture1上用line画81条线,每条线相距1毫米。结果发现距离不均匀。保存为.bmp文件后，距离也不均匀，打印的结果也是如此。？？？？

intii = 0
Do While Intii <= 80
Picture1.Line (12, 100 - Intii)-(9, 100 - Intii)
Intii = Intii + 1
Loop

[shimd0604]

暴风雨：那是否以像素为单位就可以了呢？

[脆皮大雪糕]

不管你用什么单位来画直线，画到picture之上所有的点只能落到以像素为单位的网格上，不论用什么单位最终画在picture上的点都是存在误差的。正如暴风雨所说1毫米转换成像素并不是整数个，严格画出诺干相距1mm的直线是不可能的。
其实你看picture的scalemode属性，当该属性为6的时候以毫米为单位，但是画出来的依旧是不平均的

[rainstormmaster]

就是这样

[shimd0604]

up myself ,I am selfish man? No No NO

[viena]

单位用像素就可以了，换算一下

[shimd0604]

viena holle,我已经试过了你说的像素，结果是一样的？twip pixel mm inch cm 都试过了。都失败了，有没有另外的方法？

[rainstormmaster]

//我使用下列代码在picture1上用line画81条线,每条线相距1毫米

1毫米转换成像素并不是整数个，这就是产生问题的原因

[shimd0604]

northwolves: load line(i)的结果可以在picturebox中吗？能否与circle的结果一同保存为.bmp文件？

[northwolves]

用LINE 控件效果还可以:

'Add a line control with index=0 in a picturebox
Private Sub Command1_Click()
Dim i As Integer
On Error Resume Next
For i = 0 To 100
Load Line1(i)
Line1(i).Visible = True
Line1(i).X1 = 100
Line1(i).X2 = 2900
Line1(i).Y1 = i * 60
Line1(i).Y2 = i * 60
Next
End Sub

Private Sub Form_Load()
Picture1.Move 0, 0, 3000, 6000
End Sub