Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge

VB6: Fenster will nicht oben bleiben :-(

Enno / 5 Antworten / Flachansicht Nickles

Hi Freaks,

hab ein Problemchen, und zwar möchte ich, daß ich zu einem Hauptfenster ein weiteres Fenster schaffe, daß aber wie eine Toolbox im Vordergrund bleibt, auch, wenn man am Hauptfenster weiterarbeitet. Kann irgendwie nicht die Einstellung finden, vbModal ist es zumindest nicht. Freue mich auf Eure Antworten!!

ENNO

bei Antwort benachrichtigen
count.negative Enno „VB6: Fenster will nicht oben bleiben :-(“
Optionen

Mit Form2.Show kannst Du ganz einfach ein zweites Fenster einbauen. Dessen Eigenschaft BorderStyle setzt Du auf 4, dann hast Du schon ein Werkzeugfenster. Und jetzt ist die Frage was Du weitermachen willst. Soll das Teil immer Oben auf dem Bildschirm zu sehen sein (Stay on Top) dann bau das ein:

Declare Function SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal
hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal
cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) 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

SetWindowPos (Form2.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

bei Antwort benachrichtigen