因为LOAD的时候,窗体是它本身的大小
Private Sub Form_Load()
Form1.Scale (3210, 2941)-(3380, 2911)
End Sub
加载完了后,窗体的属性是自动最大化。尺寸变化了。所以在LOAD时的.Scale不适用于窗体最大化后的大小了。
试试下面的代码。比较一下就知道了。
Private Sub Form_Click()
Form1.Scale (3210, 2941)-(3380, 2911)
DrawWidth = 20
'PSet (3210, 2911)
PSet (3210, 2941)
PSet (3380, 2911), vbRed
'PSet (3380, 2941)
End Sub
[
本帖最后由 pel46585 于 2014-12-24 13:42 编辑 ]