|
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 'Adesso devi impostare alcune proprieta' per il controllo utente Name="TaskBar" BorderStyle=1-Fixed Single CanGetFocus=False EditAtDesignTime=False InvisibleAtRuntime=True Picture= Choose one ToolBoxBitmap=Choose one 'Aggiusta le dimensioni del controllo utente. 'Inserisci il seguente codice nel controllo utente: 'Crea la proprieta' 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 nascondi la taskbar ShowWnd& = ShowWindow(TBwnd&, 0) End If End Property 'Salva il progetto con il nome TaskBar e, dal menu File, scegli 'la voce "Crea TaskBar.ocx". 'Adesso devi testare il controllo quindi crea un progetto per 'una normale applicazione eseguibile ad inserisci due 'CommandButton sul Form1, con le caption "Mostra" e "Nascondi". 'Adesso devi cercare il controllo appena creato; dal menu 'Progetto scegli Componenti (oppure fai click con il tasto 'destro sulla Casella degli Strumenti). Di norma tutti i 'controlli ActiveX (.ocx) si trovano nella cartella 'windows\system e compaiono direttamente nella lista, 'altrimenti clicca sul pulsante "Sfoglia..." e seleziona il 'percorso completo per il controllo che hai precedentemente 'creato, quindi conferma la scelta. Il controllo dovrebbe 'comparire adesso nella Casella degli Strumenti con il simbolo 'che avevi impostato per la relativa proprieta' ToolBoxBitmap. 'Inserisci il controllo nel form, insieme ai 2 CommandButton e 'aggiungi il seguente codice all'evento click dei CommandButton Private Sub Command1_Click() taskbar1.Show = True End Sub Private Sub Command2_Click() taskbar1.Show = False End Sub 'Manda in esecuzione l'applicazione (F5) e premi 'alternativamente i pulsanti. |