ScaleHeight 的封裝程式碼

laery發表於2009-11-27

 ScaleHeight 的封裝程式碼如下:
Property Get ScaleHeight() As Long
Dim Rc As RECT
GetClientRect hWnd, Rc
ScaleHeight = (Rc.Bottom - Rc.Top) * Screen.TwipsPerPixelY
End Property
GetClientRect表示獲得客戶區繪圖區域大小(即可以讓你放置控制元件的部分)

Height 的封裝程式碼:
Property Get Height() As Long
Dim Rc As RECT
GetWindowRect hWnd, Rc
Height = (Rc.Bottom - Rc.Top) * Screen.TwipsPerPixelY
End Property
GetWindowRect表示獲得整個窗體的區域大小

相關文章