🚀 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 ???
>
>Wanneer momenteel een ander programma full-screen wordt gebruikt,
>verdwijnt m'n tellertje onverbiddelijk naar de achtergrond.
>
>Reeds hartelijk dank bij voorbaat,
>
>Roger Volckaert
>
>roger.volckaert@skynet.be

Roger,

Ik gebruik de volgende code (ergens van het net geplukt):

In de declarations van een module:

'Use the declaration and constants along with the code
'in Form_Load to make a window remain on top.

Declare Function SetWindowPos Lib "User" (ByVal h%, ByVal hb%, ByVal X%, ByVal
Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2

Form_Load ( )
  'Form always on top.
  'Change the zero's to position the window.
  Dim R as Integer
  R = SetWindowPos(frmMyForm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  ...
End Sub

HTH
--
Ludo Joris
RUCA - University of Antwerp, Belgium
lujo@ruca.ua.ac.be