---

Hej NG!

Hvordan laver man en Always On Top function? Er det muligt i VB?

Hilsen Mathias

---

"Mathias" <mathias@nonne.tld> skrev i en meddelelse
news:Xns93EED7E4D3255invalidtld@212.54.64.135...
> Hej NG!
>
> Hvordan laver man en Always On Top function? Er det muligt i VB?

Kig i API-viewer/Hjælp after kaldet SetWindowPos.

Meget simpel brug:

Modul:
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 SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

Form:
Dim lRet As Long
lRet = SetWindowPos(Me.hWnd, -1,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE)

Bemærk 2. parameter (-1 eller True), som sætter vinduet foran alle andre.

--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
www.railsoft.dk
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp

---

"Jens Vestergaard" <j@railsoft.dk> wrote in news:3f5a3391$0$83042
$edfadb0f@dtext01.news.tele.dk:

Option Explicit
Dim AntalGangeJegHarSagtTak As Long ' - VeryLong

Private Sub Form_Load
Do Until CIA Finds Life In Space
MsgBox "Mange tak!"
Loop
End Sub

Hehe ;)