home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / winontop / winontop.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  723 b   |  25 lines
  1. 'Declarations for SetWindowPos
  2.  
  3. Global Const SWP_NOMOVE = 2
  4. Global Const SWP_NOSIZE = 1
  5. Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  6. Global Const HWND_TOPMOST = -1
  7. Global Const HWND_NOTOPMOST = -2
  8.  
  9. 'This API Function will put the Window (hWnd)
  10. 'on top of all others. Similar to Windows Clock
  11. 'See frmPalette's Resize event for usage
  12.  
  13. Declare Function SetWindowPos Lib "User" (ByVal h%, ByVal hb%, ByVal x%, ByVal y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
  14.  
  15. Sub EnableButtons (Enable As Variant)
  16.     Dim i%
  17.  
  18.     frmPalette.cmdOpenData.Enabled = Not Enable
  19.     frmPalette.cmdCloseData.Enabled = Enable
  20.     For i% = 0 To 3
  21.         frmPalette.cmdDataCntrl(i%).Enabled = Enable
  22.     Next i%
  23. End Sub
  24.  
  25.