🚀 go-pugleaf

roger.volckaert@skynet.be (Roger Volckaert) wrote:

>Hallo,
>
>Ik schreef een eenvoudig programmaatje in Visual Basic 3.0 (Win 3.11)
>om de telefoonkosten te visualiseren tijdens het surfen.
>
>Een klein rechthoekig venstertje (2 cm x 5 cm) in de
>rechterbenedenhoek van het scherm toont de kostenteller.
>
>Kan iemand me vertellen hoe ik er moet voor zorgen dat dit schermpje
>steeds zichtbaar blijft ???

Voeg bij de declarations het volgende toe (declare op 1 regel!):

Declare Sub SetWindowPos Lib "User" (ByVal h1%, ByVal h2%, ByVal x%,
ByVal y%, ByVal cx%, ByVal cy%, ByVal f%)

Const HWND_TOPMOST = -1
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

En vervolgens gebruik je de volgende code om het window always-on-top
te maken (in form_load bijv.). Vul voor XXXformname de naam in van het
form, waarop het van toepassing moet zijn (let op! op 1 regel!):

SetWindowPos XXXformname.hWnd, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOACTIVATE Or SWP_SHOWWINDOW

-- 
Matthijs