|
'This Project needs a button
'In general section
Private Declare Function GetClientRect Lib "user32" Alias "GetClientRect" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Rectangle as Rect
'Get the left, top, width and height of this form
GetClientRect Me.hwnd, Rectangle
'Show it
MsgBox "My Width is"+str$(Rectangle.Right - Rectangle.Left)+" Pixels."+Chr$(13)+"My Height is"+str$(Rectangle.Bottom - Rectangle.Top)+" Pixels."
End sub
|
|