[VB6] AlwaysOnTop

Hi,

wer von euch kann mir bitte sagen, wie ich bei einer Form unter VB die AlwaysOnTop-Eigenschaft aktivieren kann? (Das Formular soll ständig zu sehen sein, allerdings dabei nicht aktiv sein. Ich möchte es sehen, während ich mit einer anderen Anwendung unter WIndows arbeite…)

thanks,
Thomas

Hi,

wer von euch kann mir bitte sagen, wie
ich bei einer Form unter VB die
AlwaysOnTop-Eigenschaft aktivieren kann?

Gar nicht, da es diese Eigenschaft nicht gibt. Gleichwohl ist es möglich. Füge folgendes in ein .BAS-Modul ein:

Declare Funktion SetWindowPos ....
Public Const SWP\_SHOWWINDOW = &H40
Public Const HWND\_TOPMOST = -1

In den Code

SetWindowPos formOben.hwnd, HWND\_TOPMOST, LeftPixel, TopPixel, WidthPixel, HeightPixel, SWP\_SHOWWINDOW

(Besorg die volle Fkts-deklaration aus dem API-Viewer)

Tip: Um die VB-Twips in Pixel umzurechen durch die Sreen.TwipsperpixelAchse-Eigenschaft teilen (left / screen.twipsperpixelX)

cu, holli