Form beim drücken von "Desktop anzeigen" nicht ausblenden

myluki2000 · 14. August 2013, 16:56

Schon wieder ich

Ich habe eine durchsichtige Form, die ich auf den Desktop klebe. Das funzt schon. Nun will ich aber, dass wenn man auf "Desktop anzeigen" (also der Knopf bei Win 7 ganz rechts unten in der Taskbar) die Form nicht ausgeblendet wird.

Ich weiß, das wurde schon zigmal behandelt, aber nie richtig ein "Endstrich" gezogen. Also ich will jetzt einfach, dass hier geklärt wird, ob es funktioniert und wenn ja, dann wie und wenn nicht dann halt nicht

, sodass man dann später auf diesen Thread verlinken kann falls die Frage nochmal auftreten sollte.

Luki-Progger · 14. August 2013, 16:58

vb-paradise.de/programmieren/h…-form-nur-auf-dem-desktop

VB.NET-Quellcode

Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal hWndInsertAfter As Int32, _
ByVal x As Int32, ByVal y As Int32, ByVal cx As Int32, _
ByVal cy As Int32, ByVal wFlags As Int32) As Int32
Const SWP_NOSIZE As Int32 = &H1
Const SWP_NOMOVE As Int32 = &H2
Const SWP_NOZORDER As Int32 = &H4
Const SWP_NOACTIVATE As Int32 = &H10
Const SWP_DRAWFRAME As Int32 = &H20
Const SWP_SHOWWINDOW As Int32 = &H40
Const SWP_HIDEWINDOW As Int32 = &H80
Const HWND_TOPMOST As Int32 = -1 'bringt ein fenster an die oberste stelle
Const HWND_NOTOPMOST As Int32 = -2 'bringt ein fenster an die unterste stelle eines containers
Const HWND_BOTTOM As Int32 = 1 'bringt ein fenster an die unterste position aller fenster

VB.NET-Quellcode

Private Sub frmMain_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
SetWindowPos(Me.Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

RushDen · 14. August 2013, 17:00

Topmost Eigenschaft auf True setzen?

myluki2000 · 14. August 2013, 17:01

Das hab ich wie geschrieben schon, aber durch "Desktop anzeigen" wird die Form trotzdem ausgeblendet!

EDIT: Dann rückt die Form doch in den Vordergrund mit TopMost

vrtz · 14. August 2013, 17:50

Blind geraten:

im VisibleChanged-Event abfragen ob der Auslöser der Minimierungsbutton war, falls nein, die Form wieder anzeigen?

myluki2000 · 14. August 2013, 17:53

Ich will jetzt nichts falsches sagen, aber laut den anderen Threads hört der Desktop-anzeigen Button auf nichts. Heißt, da ändert sich nichts. Die Form denkt also, sie währe noch maximiert...

Bluespide · 14. August 2013, 18:03

VB.NET-Quellcode

Private Sub Form1_Deactivate(sender As Object, e As EventArgs) Handles Me.Deactivate
Activate()
End Sub
Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
If WindowState = FormWindowState.Minimized Then
WindowState = FormWindowState.Normal
End If
End Sub

myluki2000 · 14. August 2013, 18:11

Nope, genau wie in meinem Beitrag oben beschrieben!

RodFromGermany · 14. August 2013, 18:24

Was würdest Du denn dazu sagen, wenn Du den Desktop anzeigen willst und ein paar Programme gehen nicht in den Hintergrund?
Dein Vorhaben widerspricht der Philosophie des Betriebssystems.

myluki2000 · 14. August 2013, 18:48

Es ist ein komplett transparentes Program bis auf ein verschiebbares Panel als Overlay

NscMike · 14. August 2013, 18:59

Mit folgenden Funktionen kannst du ein Programm am Desktop festdocken, sodass es auch beim drücken des "Desktop anzeigen" Buttons oder der Windows-Taste+D nicht minimiert wird.

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
StartDocking(Me)
End Sub
<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
Public Shared Function FindWindow(<MarshalAs(UnmanagedType.LPTStr)> lpClassName As String, <MarshalAs(UnmanagedType.LPTStr)> lpWindowName As String) As IntPtr
End Function
<DllImport("user32.dll")> _
Public Shared Function SetParent(hWndChild As IntPtr, hWndNewParent As IntPtr) As IntPtr
End Function
Public Sub StartDocking(formToDock As Form)
Dim hwndParent As IntPtr = FindWindow("progman", Nothing)
SetParent(formToDock.Handle, hwndParent)
End Sub
Public Sub StopDocking(formToUndock As Form)
Dim hwndParent As IntPtr = FindWindow("screenclass", Nothing)
SetParent(formToUndock.Handle, hwndParent)
End Sub
End Class

myluki2000 · 14. August 2013, 19:05

Funktioniert genau so wenig. Es blendet mein Programm komplett aus.

NscMike · 14. August 2013, 19:08

Also ich hab die Funktion vorher gerade getestet.
Bei mir wird die WinForm definitiv nicht minimiert. Kann das bitte einer bestätigen?

Bluespide · 14. August 2013, 21:35

Jo, funktioniert bei mir auch.

myluki2000 · 15. August 2013, 09:23

Also bei mir nicht... Weder bei meiner bestehenden, noch bei einer neuen Form / Projekt

timonator · 15. August 2013, 16:45

Ich hab es grade ausprobiert, der code funktioniert einwandfrei. :thumbsup:

Du scheinst was falsch zu machen !?

myluki2000 · 16. August 2013, 13:02

Ich habe eine Form ohne borderstyle... Liegts vielleicht daran?

timonator · 16. August 2013, 15:57

Negativ ! Das funktioniert mit, als auch ohne Borders !

Erstelle dir doch mal ein Testprojekt, mit ausschließlich NscMikes code.

myluki2000 · 20. August 2013, 19:03

Hab ich, funzt aber nicht...

caesar94 · 22. August 2013, 13:45

Gerade getestet, der Code von NscMike funktioniert einwandfrei.

Form beim drücken von "Desktop anzeigen" nicht ausblenden

Form beim drücken von "Desktop anzeigen" nicht ausblenden

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

8 Benutzer haben hier geschrieben