Private Sub Form_Load()
Width = 400 * Screen.TwipsPerPixelX
Height = 550 * Screen.TwipsPerPixelY
End Sub
因为 Screen.TwipsPerPixelX 和 Screen.TwipsPerPixelY 都等于 15 ,所以可简写为
Private Sub Form_Load()
Width = 400 * 15
Height = 550 * 15
End Sub
窗体上的控件的 Width 和 Height 属性的单位由窗体的 ScaleMode属性决定,但窗体的 Width 和 Height 属性的单位只能是twip ,不能改
在窗体的启动事件里添加这些代码就可以了.
Private Sub Form_Load()
Me.Width = 400
Me.Height = 550
End Sub
我格外说一句:宽400 高550 这个窗体是不是也太小了呀~~.基本上只是显示一个标题栏..
你先改回
默认,再改成3,看看2个有区别否,一般人眼是看不出微小的
请先仔细确认你已经把窗体的ScaleMode改成3 pixel了而不是改的其他控件。