Always on top

prøv om du kan få noget ud af det jeg har på min HP:

www.thecoder.dk/exploit

i "Code Part"

Joha0147

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)

Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2

Public Sub StayOnTop(frm As Form)
  SetWindowPos frm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

--

herefter bruger du kommandoen i fx en knap:

Private Sub Command1_Click()
    StayOnTop Me
End Sub

Du kan jo også bare lave det som en property på formen.

'Håndtering af propertyen
Public Property Let AlwaysOnTop(bState As Boolean)
    Dim lFlag As Long
    On Error Resume Next
    If bState = True Then
        lFlag = HWND_TOPMOST
    Else
        lFlag = HWND_NOTOPMOST
    End If
    bOnTopState = bState
    Call SetWindowPos(Me.hwnd, lFlag, 0&, 0&, 0&, 0&, _
        (SWP_NOSIZE Or SWP_NOMOVE))
End Property

Public Property Get AlwaysOnTop() As Boolean
    AlwaysOnTop = bOnTopState
End Property


mvh.

Christian