1,451
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Print "每像素大小:" & Screen.TwipsPerPixelX & "x" & Screen.TwipsPerPixelY
Me.Print "窗体大小(像素):" & Me.ScaleX(Me.Width, vbTwips, vbPixels) & "x" & Me.ScaleY(Me.Height, vbTwips, vbPixels)
End Sub