home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / FlatObject70560492002.psc / FlatCode.bas next >
Encoding:
BASIC Source File  |  2002-04-10  |  1.6 KB  |  38 lines
  1. Attribute VB_Name = "FlatCode"
  2. Option Explicit
  3. Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  4. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  5. Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  6.  
  7. 'I left these in here in case any of you wanted
  8. 'to modify the code a little, there are more
  9. 'than just these though...
  10.  
  11. Public Const WS_BORDER = &H800000
  12. Public Const WS_MAXIMIZEBOX = &H10000
  13. Public Const WS_MINIMIZEBOX = &H20000
  14. Public Const WS_DLGFRAME = &H400000
  15. Public Const WS_GROUP = &H20000
  16. Public Const WS_HSCROLL = &H100000
  17. Public Const WS_THICKFRAME = &H40000
  18. Public Const WS_SIZEBOX = WS_THICKFRAME
  19. Public Const WS_EX_CLIENTEDGE = &H200
  20. Public Const WS_EX_STATICEDGE = &H20000
  21. Public Const WS_VISIBLE = &H10000000
  22. Public Const WS_VSCROLL = &H200000
  23. Public Const WM_CLOSE = &H10
  24. Public Const WS_CAPTION = &HC00000
  25. Public Const WS_CHILD = &H40000000
  26.  
  27.  
  28. Public Sub Flatten(myhwnd As Long)
  29. Dim mystyle As Long
  30. mystyle = GetWindowLong(myhwnd, -20)
  31. mystyle = mystyle And Not WS_EX_CLIENTEDGE Or WS_EX_STATICEDGE
  32. SetWindowLong myhwnd, -20, mystyle
  33. mystyle = GetWindowLong(myhwnd, -16)
  34. mystyle = mystyle And Not (WS_BORDER Or WS_DLGFRAME Or WS_CAPTION Or WS_BORDER Or WS_SIZEBOX Or WS_THICKFRAME)
  35. SetWindowLong myhwnd, -16, mystyle
  36. SetWindowPos myhwnd, 0, 0, 0, 0, 0, &H20 Or &H10 Or &H4 Or &H2 Or &H1
  37. End Sub
  38.