home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / WindowPos.bas < prev    next >
BASIC Source File  |  1999-01-27  |  1KB  |  39 lines
  1. Attribute VB_Name = "WindowPos"
  2. ' ----------------------------------------------------------------------------
  3. ' MS Visual Basic Demo-Programm zur Demonstration der ActiveX-FΣhigkeit
  4. ' von ArCon(+).
  5. '
  6. ' Der abgebildete Code dient lediglich Demonstrationszwecken.
  7. ' Es wird keinerlei Garantie fⁿr die Richtigkeit und/oder
  8. ' FunktionsfΣhigkeit ⁿbernommen. Bei Fragen wenden Sie sich bitte an
  9. '
  10. '    mb-Programme
  11. '    Software im Bauwesen GmbH
  12. '    Hermannstra▀e 1
  13. '    D-31785 Hameln
  14. '    e-mail:  arcon@mb-software.de
  15. '    Internet http://www.mb-software.de
  16. '
  17. ' ----------------------------------------------------------------------------
  18.  
  19. Option Explicit
  20.  
  21. Public Type RECT
  22.     Left As Long
  23.     Top As Long
  24.     Right As Long
  25.     Bottom As Long
  26. End Type
  27.  
  28. Public Declare Function GetClientRect Lib "user32" _
  29.     (ByVal hwnd As Long, lpRect As RECT) As Long
  30.  
  31. Public Declare Function GetWindowRect Lib "user32" _
  32.     (ByVal hwnd As Long, lpRect As RECT) As Long
  33.  
  34. Public Declare Function MoveWindow Lib "user32" _
  35.     (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
  36.  
  37. Public Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
  38.  
  39.