---

Hallo zusammen,

wie kann ich erreichen das ein von mir geschriebenes Programm (VB6)bei der Ausführung stehts im Vordergrund ist?
Ich habe ein kleines GUI und möchte dies gern in einer Bildschirmecke "parken" um jederzeit schnell darauf zugreifen
zu können.

Mfg

Stephan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stephan,

mach einfach Folgendes:

' Deklaration vorweg
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
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const HWND_TOP = 0
Const HWND_BOTTOM = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

' Fenster topmost setzen
SetWindowPos Me.hWnd, _
HWND_TOPMOST, _
0, _
0, _
0, _
0, _
SWP_NOSIZE Or SWP_NOMOVE

' Fenster nicht topmost setzen
SetWindowPos Me.hWnd, _
HWND_NOTOPMOST, _
0, _
0, _
0, _
0, _
SWP_NOSIZE Or SWP_NOMOVE

Sollte so klappen. Kann man aber auch noch schöner verpacken.
Keep hacking.

Gruß, Armin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

SWOnTop.zip

Hallo Armin,

zuerst mal Dankeschön für Deinen Tip. Ich denke dieser ist aber für Fortgeschrittene VB Entwickler geeignet (betrifft mich nicht).
Ich bin gestern über ein Steuerelement gestolpert das mir exakt die Funktionalität bringt die ich will. Ich hänge das ganze hier mal
rein (gezipped / 15Kb), vielleicht findets noch jemand so toll wie ich.

Gruss

Stephan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stephan,

Dein Beispiel funktioniert wirklich super - ich habe dann mal versucht diesen Befehl in eines meiner Programme einzubauen und habe es nicht geschafft.

(Kein Wunder bei meinen Programmierkünsten )

VB kennt diesen OnTop Befehl nicht - kannst du mir erklären wie du das gemacht hast!

Gruß
Mike

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Mike,

du musst das Steuerelement mit Deiner VB-Entwicklungsumgebung bekannt machen (installieren). Dazu halte dich einfach an die Installationsanweisungen in der readme.txt.
Bei mir hat es dann gut geklappt obwohl ich von VB auch kaum Žne Ahnung habe.

Gruss Stephan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP