Question

vb Picture 画矩形的问题

在工程1中的窗体上添加picture1，然后添加如下代码
Option Explicit

Private Sub Form_DblClick()
Picture1.Width = 2000
Picture1.Height = 2000
Picture1.Line (0, 0)-(2000, 2000), , B
End Sub

这段代码的结果应该是沿着picture1的边框画一个矩形才对，可是实际情况是：只能看到矩形的左面的边和上面的边，下面的边和右面的边却看不到，如果将Picture1.Line (0, 0)-(2000, 2000), , B中的2000改为1900，就可以看到期望的效果了。我的疑问就是：好像画矩形的时候的第二个坐标点的实际位置会向右下方向偏？我已经试过不同的ScaleMode，Appearence属性了，还是这样。请高手指点！

Answer 1

因为picturebox有边框，内径当然要比边框小，你先把它的宽度设成了2000，画的东西也有2000，所以画的东西被挡住了，你试试以下代码：
Option Explicit

Private Sub Form_DblClick()
Picture1.Width = 2080
Picture1.Height = 2080
Picture1.Line (0, 0)-(2000, 2000), , B
End Sub

Answer 2

因为picturebox有边框，内径当然要比边框小，你先把它的宽度设成了2000，画的东西也有2000，所以画到外面（内径的外面）了