Come creare un Controllo ActiveX che nasconde la TaskBar

Questo tip mostra come nascondere realmente la Windows Taskbar, non muovendola al di fuori del Desktop, e richiamando le API in futuro puoi creare un Controllo ActiveX che fa questo lavoro.

Per prima crea crea un nuovo progetto Controllo ActiveX, aggiungi ad esso un modulo, proprio come per una normale applicazione .exe e metti in questo le seguenti dichiarazioni API.

Dichiarazioni:

Declare Function ShowWindow Lib _
"user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Declare Function FindWindow Lib _
"user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

Ora devi settare alcune proprietā dell'UserControl1.

Name="TaskBar"
BorderStyle=1-Fixed Single
CanGetFocus=False
EditAtDesignTime=False
InvisibleAtRuntime=True
Picture= Scegline una (questa č la figura che apparirā sul Form quando selezioni il controllo dalla ToolBox)
ToolBoxBitmap= Scegline una (questa č la figura che apparirā nella ToolBox)


Ridimensiona l'UserControl alla grandezza della picture.

Inserisci il seguente codice nell'UserControl:

'Crea la property TaskBar.Show
Public Property Let Show(ByVal VShow As Boolean)
TBwnd& = FindWindow("Shell_traywnd", "")
If VShow = True Then
   
'se TaskBar.Show=true mostra la TaskBar
    ShowWnd& = ShowWindow(TBwnd&, 1)
Else
   
'altrimenti nasconde la TaskBar
    ShowWnd& = ShowWindow(TBwnd&, 0)
End If
End Property


Salva il tuo progetto con il nome TaskBar e dal menu File scegli 
"Crea TaskBar.ocx".

Ora per provare il Controllo creiamo una nuova applicazione .exe.
Mettiamo 2 CommandButton nel Form1, con i caption "Mostra TaskBar" e "Nascondi TaskBar".
Aggiungiamo ora il nostro Controllo, clicchiamo sul menu Progetto-Componenti (o con il tasto destro del mouse sulla Toolbox).
Normalmente tutti i Controlli ActiveX (.ocx) sono collocati nella cartella Window\System e dovrebbero apparire direttamente nella lista, altrimenti clicca sul pulsante Sfoglia e seleziona il percorso\TaskBar.ocx, e conferma.
Il controllo dovrebbe apparire nella ToolBox con la figura che hai selezionato per la ToolBoxBitmap.

Inserisci il Controllo nel form insieme ai 2 CommandButton ed aggiungi il seguente codice negli eventi click dei CommandButton:

Private Sub Command1_Click()
taskbar1.Show = True
End Sub

Private Sub Command2_Click()
taskbar1.Show = False
End Sub


Esegui l'applicazione (F5) e clicca sui pulsanti.

Testato su: Windows 98, Windows Me, xxxxxxxxxxxx