Hvis formen er foran

[asware]

Hvordan kan man få opp en melding hvis formen ikke er øverst/lengst frem av alle "vinduene"(feks: min datamaskin)?

[MagneH]

Jeg kjører alltid en form fremst med ei rutine som jeg har liggende i en .bas modul:

 

Sub Toppers(ByVal hwnd As Long)

Const SWP_NOMOVE = &H2

Const SWP_NOSIZE = &H1

Const HWND_TOPMOST = -1

Dim flags As Long

Dim retval As Long

flags = SWP_NOSIZE Or SWP_NOMOVE

retval = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags)

End Sub

 

I hver form som skal komme øverst, har jeg liggende dette:

 

Private Sub Form_Load()

Toppers (Me.hwnd)

End Sub