Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB.NET 2010] Nascondere le icone del desktop
Forum - C# / VB.NET - [VB.NET 2010] Nascondere le icone del desktop

Avatar
perfection6989 (Normal User)
Rookie


Messaggi: 38
Iscritto: 14/06/2009

Segnala al moderatore
Postato alle 19:34
Domenica, 09/01/2011
Questo topic è stato chiuso dal moderatore

Come faccio a nascondere le icone del desktop in Windows 7?
C'è qualche istruzione che mi può essere d'aiuto?

PM
Avatar
DeviorDen (Normal User)
Newbie


Messaggi: 5
Iscritto: 09/01/2011

Segnala al moderatore
Postato alle 19:41
Domenica, 09/01/2011
nel senso nascondere i file o solo non farle vedere? se è solo non farle vedare fai tasto destro sul desktop e poi visualizza è poi togli la spunta da mostra icone :)

PM
Avatar
perfection6989 (Normal User)
Rookie


Messaggi: 38
Iscritto: 14/06/2009

Segnala al moderatore
Postato alle 19:44
Domenica, 09/01/2011
il risultato che voglio ottenere è quello ma attraverso codice....:_doubt:

PM
Avatar
perfection6989 (Normal User)
Rookie


Messaggi: 38
Iscritto: 14/06/2009

Segnala al moderatore
Postato alle 20:22
Domenica, 09/01/2011
risolto da solo :k:
Codice sorgente - presumibilmente VB.NET

  1. Imports System.Runtime.InteropServices
  2.  
  3. Public Class Form1
  4.  
  5.  
  6.     <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
  7.     Private Shared Function FindWindow( _
  8.         ByVal lpClassName As String, _
  9.         ByVal lpWindowName As String) As IntPtr
  10.     End Function
  11.  
  12.     <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
  13.     Private Shared Function GetWindow( _
  14.         ByVal hWnd As IntPtr, _
  15.         ByVal uCmd As UInteger) As IntPtr
  16.     End Function
  17.  
  18.     Private Enum GetWindowCmd As UInteger
  19.         GW_HWNDFIRST = 0
  20.         GW_HWNDLAST = 1
  21.         GW_HWNDNEXT = 2
  22.         GW_HWNDPREV = 3
  23.         GW_OWNER = 4
  24.         GW_CHILD = 5
  25.         GW_ENABLEDPOPUP = 6
  26.     End Enum
  27.  
  28.     <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
  29.     Private Shared Function ShowWindow( _
  30.         ByVal hwnd As IntPtr, _
  31.         ByVal nCmdShow As Int32) As Boolean
  32.     End Function
  33.  
  34.     Private Enum SW As Int32
  35.         Hide = 0
  36.         Normal = 1
  37.         ShowMinimized = 2
  38.         ShowMaximized = 3
  39.         ShowNoActivate = 4
  40.         Show = 5
  41.         Minimize = 6
  42.         ShowMinNoActive = 7
  43.         ShowNA = 8
  44.         Restore = 9
  45.         ShowDefault = 10
  46.         ForceMinimize = 11
  47.         Max = 11
  48.     End Enum
  49.  
  50.     <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
  51.     Private Shared Function IsWindowVisible(ByVal hwnd As IntPtr) As Boolean
  52.     End Function
  53.  
  54.    
  55.  
  56.  
  57.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  58.         Dim hWnd As IntPtr = FindWindow("ProgMan", Nothing) 'Nasconde le icone del desktop
  59.         hWnd = GetWindow(hWnd, GetWindowCmd.GW_CHILD)
  60.  
  61.         If IsWindowVisible(hWnd) Then
  62.             ShowWindow(hWnd, SW.Hide)
  63.         Else
  64.             ShowWindow(hWnd, SW.ShowNoActivate)
  65.         End If
  66.     End Sub
  67.  
  68.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  69.         Dim hWnd As IntPtr = FindWindow("Shell_traywnd", Nothing) 'Nasconde solo la Trayicon bar
  70.         hWnd = GetWindow(hWnd, GetWindowCmd.GW_CHILD)
  71.  
  72.         If IsWindowVisible(hWnd) Then
  73.             ShowWindow(hWnd, SW.Hide)
  74.         Else
  75.             ShowWindow(hWnd, SW.ShowNoActivate)
  76.         End If
  77.  
  78.     End Sub
  79.  
  80.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  81.         Dim hWnd As IntPtr = FindWindow("Shell_TrayWnd", Nothing) 'Nasconde tutta la barra delle applicazioni
  82.  
  83.  
  84.         If IsWindowVisible(hWnd) Then
  85.             ShowWindow(hWnd, SW.Hide)
  86.         Else
  87.             ShowWindow(hWnd, SW.ShowNoActivate)
  88.         End If
  89.     End Sub
  90. End Class



PM