Rubrik: System/Windows | VB-Versionen: VB.NET | 26.02.08 |
Offene Anwendungen minimieren/wiederherstellen Mit dieser .NET Klasse lassen sich alle offenen Anwendungsfenster minimieren und auch wiederherstellen. | ||
Autor: Heinz Prelle | Bewertung: | Views: 9.290 |
www.visual-basic5.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Heute stellen wir Ihnen eine kleine .NET Klasse vor, mit der sich alle offenen Anwendungsfenster in einem Rutsch minimieren oder auch wiederherstellen lassen.
Klassenmodul:
Public Class ShellApplication Private Const Minimize As String = "MinimizeAll" Private Const UndoMinimize As String = "UndoMinimizeAll" Private _index As Integer Public Sub New(ByVal Index As Integer) Me._index = Index End Sub Public Sub MinimizeAllOpenWindow() Try Dim tp As Type = Type.GetTypeFromProgID("Shell.Application") Select Case Me._index Case 1 ' offene Anwendungen minimieren Dim Instance As Object = Activator.CreateInstance(tp) tp.InvokeMember(Minimize, Reflection.BindingFlags.InvokeMethod, _ Nothing, Instance, Nothing) Case 2 ' offene Anwendungsfenster wiederherstellen Dim Instance As Object = Activator.CreateInstance(tp) tp.InvokeMember(UndoMinimize, Reflection.BindingFlags.InvokeMethod, _ Nothing, Instance, Nothing) End Select Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") End Try End Sub End Class
Beispiel für den Aufruf der Klasse:
' offene Anwendungsfenster minimieren With New ShellApplication(1) .MinimizeAllOpenWindow() End With
' Anwendungsfenster wiederherstellen With New ShellApplication(2) .MinimizeAllOpenWindow() End With
Wie Sie sehen wird die Aktion (Minimieren oder Wiederherstellen) über den Parameter beim New-Aufruf der ShellApplication-Klasse gesteuert. 1 bedeutet hierbei minimieren und 2 wiederherstellen.