缚美礼品商店:关于VB picturebox 画线的问题，请高手们赐教阿。

来源：百度文库编辑：查人人中国名人网时间：2024/05/02 06:36:56

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

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就可以了，不信试试！

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

关于VB picturebox 画线的问题，请高手们赐教阿。 VB关于PictureBox的问题求VB中使PictureBox控件图像居中的方法怎么给VB的PICTUREBOX加滚动条？关于画线的数学题 { 初一} 想用VB6在picturebox控件中打印文本能够自动按照picturebox的宽度进行换行，请VB高手指点. 问关于VB的问题? 问关于VB的问题? &&&&&&&&&&&&&&&&&&&&&&&&问关于VB的问题? HELP!!!!在VB中,如何获取picturebox中指定点的颜色信息?

缚美 礼品商店:关于VB picturebox 画线的问题，请高手们赐教阿。

缚美礼品商店:关于VB picturebox 画线的问题，请高手们赐教阿。