🚀 go-pugleaf

"ViPeR" <no#tdc@lomag.net#spam> schreef in bericht
news:h_jK5.11796$Yq.270980@afrodite.telenet-ops.be...
> hoe krijg ik men proggie to be always on top??

Zet de volgende code in een module:

-----------------------
Option Explicit
Option Private Module

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
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const Flags = SWP_NOMOVE Or SWP_NOSIZE

Public Sub OnTop(FormName As Form)
  'Make a form always ontop of other windows
  On Error GoTo error
  Call SetWindowPos(FormName.hWnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, Flags)
  Exit Sub
error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub

Public Sub NotOnTop(FormName As Form)
  'Make a form not always ontop of other windows
  On Error GoTo error
  Call SetWindowPos(FormName.hWnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, Flags)
  Exit Sub
error:  MsgBox Err.Description, vbExclamation, "Error"
End Sub
-----------------------

en roep die aan door:

Call OnTop(Me)

en je kunt het weer ongedaan maken door:

Call NotOnTop(Me)


Groeten,

Gerbert / http://gerbert.paanstra.nl/