繪製圍繞邊框的矩形少表格

Question

我想繪製圍繞邊框的矩形，通過簡單地繪製線條圍繞窗體，但問題是窗體底部和窗體左邊的線條不繪製這裏是一個代碼用於在Form_Paint上繪圖

Line (0, 0)-(ScaleWidth, 0), vbWhite ' work 
Line (0, 0)-(0, ScaleHeight), vbWhite ' work 
Line (ScaleWidth, 0)-(ScaleWidth, ScaleHeight), vbWhite ' not working 
Line (0, ScaleHeight)-(ScaleWidth, ScaleHeight), vbWhite ' not working 

形式重新可觀所以繪製矩形創建一個問題，當我重新大小形態

Answer 1

有你爲什麼要畫自己行的理由？您可以使用形狀控件並在Form_Resize中調整它的大小。

Private Sub Form_Resize() 
    Call shp.Move(0, 0, Me.ScaleWidth, Me.ScaleHeight) 
End Sub 

原因線繪製一個像素至今propably得到它是以0與事實做的，在現實中你希望它把像素的位置ScaleWidth，這是1個像素超出屏幕，爲ScaleWidth是「1基於」 .. 所以，如果你想自己繪製的線，你可以使用下面的（如果你的scaleMode設置爲緹（默認））：

Line (0, 0)-(ScaleWidth - Screen.TwipsPerPixelX, ScaleHeight - Screen.TwipsPerPixelY), vbWhite, B