Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

*indietastaturbeiss* VB ist doch sonst nicht so....

SloMoSnail / 1 Antworten / Baumansicht Nickles

Hi!
Ich suche einen blöden einfachen Befehl für VB 5.0!! Der soll bewirken, dass mein Proggi nicht von anderen Fenstern verdeckt wird!! Es hat mich gewundert, dass in den Eigenschaften eines Objektes nicht so etwas wie: "Always on Top: enabled" stand...erfindet mal schnell so einen Befehl *gg*!!
Bye
SloMoSnail

bei Antwort benachrichtigen
Kossi (Anonym) SloMoSnail „*indietastaturbeiss* VB ist doch sonst nicht so....“
Optionen

**Erfind...***

' Globale Deklarationen

Type utRect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Declare Function utSetWindowPos Lib "user32" Alias "SetWindowPos" (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

' Funktion...

Sub utFormOnTop(F As Form, ByVal OnTop%)
Dim R As utRect

Call utGetWindowRect(F.hwnd, R)
If OnTop% Then
Call utSetWindowPos(F.hwnd, HWND_TOPMOST, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, 0)
Else
Call utSetWindowPos(F.hwnd, HWND_NOTOPMOST, R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top, 0)
End If
End Sub

bei Antwort benachrichtigen