Question

关于VB picturebox 画线的问题，请高手们赐教阿。

Private Sub Form_Load()

Picture1.AutoRedraw = True

Picture1.Line (0, 141)-(Picture1.Width, 141)
Picture1.Line (0, 113)-(Picture1.Width, 113)
'上面的两条线粘在一起了，而下面的两条则没有粘在一起，
'但是他们都有相同的间隔 28
Picture1.Line (0, 85)-(Picture1.Width, 85)
Picture1.Line (0, 57)-(Picture1.Width, 57)

End Sub

Answer 1

Picture在划线的时候会将单位转换为Pixel，而我们平时用单位是Twip，1 Pixel =15 Twip,而且Pixel用整数
141 Twip＝141/15=9.39999962=9 Pixel
113 Twip＝113/15=7.5333333=8 Pixel
85 Twip＝85/15=5.66666651=6 Pixel
57 Twip＝57/15=3.79999995=4 Pixel
而：9-8=1，6-4＝2
Picture画线的最小宽度为1，所以间距为1个Pixel单位的是看不出差别的，如果将113改成112就可以了，不信试试！

Answer 2

是的，或者把画线单位改了