Hallo Chris,
Leider kann ich erst jetzt wieder hier im Thread antworten. Und ohne irgendwem zu nahe treten zu wollen, aber das Problem ist noch
NICHT GELÖST. Von daher frage ich mich schon, warum der Thread als gelöst gekennzeichnet worden ist.
Stefan hatte sich zuletzt noch einmal zu dem Thema geäußert und dadurch ist wohl der Eindruck entstanden, dass mein Beitrag doch die Lösung Deines Problems darstellt. Oft gibt der Fragesteller kein Feedback mehr, wenn seine Frage (doch) beantwortet
wurde. Entschuldige bitte, dass dies in diesem Fall unzutreffend war.
Ich habe den FormBorderStyle auf None gesetzt, da ich ein rahmenloses Fenster erzeugen wollte. Und genau das scheint die Ursache des Problems zu sein
Der FormBorderStyle hat maßgeblich damit zu tun, wie sich das Fenster verhält, wenn die Funktion "Desktop anzeigen" ausgeführt wird. Wenn ein Fenster einen änderbaren Rahmen hat und MinimizeBox = True ist, wird das Fenster
immer minimiert, auch wenn es immer im Vordergrund angezeigt wird. In der Konstellation bekommt man auch das Resize Ereignis und kann gegensteuern. Erst wenn es einen festen bzw. keinen Rahmen hat, bewirkt TopMost = True, dass das Formular sichtbar bleibt,
auch wenn der User den Desktop anzeigen lässt. Ist es nicht immer im Vordergrund, bekommt es auch keine Benachrichtigung, sobald die Funktion "Desktop anzeigen" ausgeführt wird. Das System sendet hier keinen Broadcast oder ähnliches.
Vielmehr scheint es, als würde der ZOrder des Desktops so geändert, dass dieser im Vordergrund erscheint. Auf dem Weg gerät man auch nicht in Konflikt mit Dialogen oder blockierenden Anwendungen.
Einzige Lösung die mir hier noch einfällt und für Deinen Fall auch praktikabel erscheint, dieses Formular als Child des sichtbaren Desktops einzuhängen. Der sichtbare Desktop trägt den Klassennamen "Progman". Einige mag
das an den "Programm Manager" zu Zeiten von Windows 3.1 erinnern, dort ist dieses Konzept wohl auch historisch einzuordnen, denn dieses Fenster stellt den Desktop mit seinen Symbolen dar und dieses wird immer angezeigt. Sein eigenes Formular bekommt
man mit der API Funktion "SetParent" dort als Child angehängt. Dann bleibt es sichtbar, auch wenn der Desktop angezeigt werden soll:
Imports System.Runtime.InteropServices
Public Class Form1
Private m_OldParent As IntPtr
Private Sub AttachToProgman()
Dim lProgMan As IntPtr
lProgMan = NativeMethods.FindWindow("Progman", Nothing)
m_OldParent = NativeMethods.SetParent(Me.Handle, lProgMan)
End Sub
Private Sub DetachFromProgman()
If m_OldParent <> IntPtr.Zero Then
NativeMethods.SetParent(Me.Handle, m_OldParent)
m_OldParent = IntPtr.Zero
End If
End Sub
Private ReadOnly Property IsAttachedToProgman() As Boolean
Get
Return m_OldParent <> IntPtr.Zero
End Get
End Property
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Load
AttachToProgman()
End Sub
Private Sub chkAlwaysOnTop_CheckedChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles chkAlwaysOnTop.CheckedChanged
If Me.chkAlwaysOnTop.Checked Then
If Me.IsAttachedToProgman Then
DetachFromProgman()
Me.TopMost = True
End If
Else
If Not Me.IsAttachedToProgman Then
Me.TopMost = False
AttachToProgman()
End If
End If
End Sub
Private Class NativeMethods
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Friend Shared Function FindWindow(ByVal lpClassName As String, _
ByVal lpWindowName As String) As IntPtr
End Function
<DllImport("user32.dll", SetLastError:=True)> _
Public Shared Function SetParent(ByVal hWndChild As IntPtr, _
ByVal hWndNewParent As IntPtr) As IntPtr
End Function
End Class
End Class
Ab Windows Vista/7 gibt es auch die sogenannten Sidebar Gadgets bzw. Minianwendungen. Diese kommen bereits mit der von Dir gewünschten Funktionalität daher und können optional immer im Vordergrund angezeigt werden.
Erstellen eigener Windows Vista-Sidebar-Minianwendungen
http://msdn.microsoft.com/de-de/magazine/cc163370.aspx
Thorsten Dörfler
Microsoft MVP Visual Basic
vb-faq.de
