VB.NET - Funzione che visualizza il Desktop chiudendo tutte le finestre aperte (Codice)
Oggi vi voglio mettere a disposizione due funzioni, che serve a ridurre tutte le finestre di Windows da Codice .
Per il primo metodo dobbiamo aggiungere al nostro progetto un nuovo riferimento Microsoft Shell Controls and Automation procedura :
- FAre click su Progetto -> Aggiungi Riferimento.
- Selezionare COM e trovare la voce Microsoft Shell Controls and Automation.
CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET:
'Minimizza tutte le finestre
Public Sub MinWinDesktop()
Dim myShell As New Shell32.Shell
myShell.MinimizeAll()
End Sub
'Massimalizza tutte le finestre
Public Sub MaxWinDesktop()
Dim myShell As New Shell32.Shell
myShell.UndoMinimizeALL()
End Sub
Secondo metodo :
CODICE VISUAL STUDIO 2010 - VISUAL BASIC .NET - VB.NET:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_LWIN = &H5B
''' <summary>
''' Shows the desktop by minimizing all windows
''' </summary>
Public Sub ShowDesktop()
keybd_event(VK_LWIN, 0, 0, 0)
keybd_event(77, 0, 0, 0)
keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
By ImaginSystems & Queen Gin