Question

vb中的api函数getwindowrect怎么用？

要详细的用法与实例

Answer 1

Private Type Rect ' Rect类型声明
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Declare Function GetWindowRect Lib "user32.dll" _
(ByVal hwnd As Long, lpRect As Rect) As Long ' api声明

Private Sub Command1_Click()
Dim r As Rect
Dim retval As Long
retval = GetWindowRect(Form1.hwnd, r) ' 获取当前窗体的Rect
s = "Width =" & (r.Right - r.Left) & " Height =" & (r.Bottom - r.Top) ' 算出窗体的高和宽
MsgBox s
End Sub