How to Utilizzo della barra delle applicazioni direttamente da Visual Basic

Traduzione articoli Traduzione articoli
Identificativo articolo: 176085 - Visualizza i prodotti a cui si riferisce l?articolo.
Questo articolo Ŕ stato precedentemente pubblicato con il codice di riferimento I176085
Espandi tutto | Chiudi tutto

In questa pagina

Sommario

In questo articolo viene spiegato come sfruttare la barra delle applicazioni di Windows con Visual Basic. Quest'ultimo inserisce un'icona scelta dall'utente sulla barra delle applicazioni che visualizza una descrizione personalizzata al passaggio del mouse e che consente di ripristinare l'applicazione se selezionata con un clic o di visualizzare un menu di scelta rapida se selezionata con il pulsante destro del mouse. Tutto ci˛ Ŕ possibile grazie alla capacitÓ di Visual Basic di gestire direttamente le richiamate e quindi di sfruttare a pieno la funzione Shell_NotifyIcon esportata da Shell32.dll.

Informazioni

L'esempio che segue pu˛ essere aggiunto a qualsiasi progetto Visual Basic comprendente almeno un form e un modulo standard.

Procedura di esempio

  1. Aggiungere il seguente codice alla sezione delle dichiarazioni di un modulo standard del progetto:
          'user defined type required by Shell_NotifyIcon API call
          Public Type NOTIFYICONDATA
           cbSize As Long
           hwnd As Long
           uId As Long
           uFlags As Long
           uCallBackMessage As Long
           hIcon As Long
           szTip As String * 64
          End Type
    
          'constants required by Shell_NotifyIcon API call:
          Public Const NIM_ADD = &H0
          Public Const NIM_MODIFY = &H1
          Public Const NIM_DELETE = &H2
          Public Const NIF_MESSAGE = &H1
          Public Const NIF_ICON = &H2
          Public Const NIF_TIP = &H4
          Public Const WM_MOUSEMOVE = &H200
          Public Const WM_LBUTTONDOWN = &H201     'Button down
          Public Const WM_LBUTTONUP = &H202       'Button up
          Public Const WM_LBUTTONDBLCLK = &H203   'Double-click
          Public Const WM_RBUTTONDOWN = &H204     'Button down
          Public Const WM_RBUTTONUP = &H205       'Button up
          Public Const WM_RBUTTONDBLCLK = &H206   'Double-click
    
          Public Declare Function SetForegroundWindow Lib "user32" _
          (ByVal hwnd As Long) As Long
          Public Declare Function Shell_NotifyIcon Lib "shell32" _
          Alias "Shell_NotifyIconA" _
          (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
    
          Public nid As NOTIFYICONDATA
     
  2. Aggiungere il seguente codice a qualsiasi form del progetto che si desidera corrisponda all'icona della barra delle applicazioni per l'applicazione:
          Private Sub Form_Load()
           'the form must be fully visible before calling Shell_NotifyIcon
           Me.Show
           Me.Refresh
           With nid
            .cbSize = Len(nid)
            .hwnd = Me.hwnd
            .uId = vbNull
            .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
            .uCallBackMessage = WM_MOUSEMOVE
            .hIcon = Me.Icon
            .szTip = "Your ToolTip" & vbNullChar
           End With
           Shell_NotifyIcon NIM_ADD, nid
          End Sub
    
          Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
       _
             Single, Y As Single)
          'this procedure receives the callbacks from the System Tray icon.
          Dim Result As Long
          Dim msg As Long
           'the value of X will vary depending upon the scalemode setting
           If Me.ScaleMode = vbPixels Then
            msg = X
           Else
            msg = X / Screen.TwipsPerPixelX
           End If
           Select Case msg
            Case WM_LBUTTONUP        '514 restore form window
             Me.WindowState = vbNormal
             Result = SetForegroundWindow(Me.hwnd)
             Me.Show
            Case WM_LBUTTONDBLCLK    '515 restore form window
             Me.WindowState = vbNormal
             Result = SetForegroundWindow(Me.hwnd)
             Me.Show
            Case WM_RBUTTONUP        '517 display popup menu
             Result = SetForegroundWindow(Me.hwnd)
             Me.PopupMenu Me.mPopupSys
           End Select
          End Sub
    
          Private Sub Form_Resize()
           'this is necessary to assure that the minimized window is hidden
           If Me.WindowState = vbMinimized Then Me.Hide
          End Sub
    
          Private Sub Form_Unload(Cancel As Integer)
           'this removes the icon from the system tray
           Shell_NotifyIcon NIM_DELETE, nid
          End Sub
    
          Private Sub mPopExit_Click()
           'called when user clicks the popup menu Exit command
           Unload Me
          End Sub
    
          Private Sub mPopRestore_Click()
           'called when the user clicks the popup menu Restore command
           Me.WindowState = vbNormal
           Result = SetForegroundWindow(Me.hwnd)
           Me.Show
          End Sub
     
  3. Creare le seguenti impostazioni di proprietÓ nello stesso form in cui Ŕ stato aggiunto il codice sopra riportato:
       ProprietÓ        Impostazione richiesta per l'esempio
       ---------------------------------------------------------------
       Icon           = Icona da visualizzare sulla barra delle applicazioni
       Minbutton      = True
       ShownInTaskbar = False
     
  4. Aggiungere le seguenti voci di menu allo stesso form utilizzando l'Editor dei menu:
       Didascalia   Nome           Attivato  Visibile   Posizione
       ---------------------------------------------------------
       &SysTray     mPopupSys      True      False    Livello principale
       &Restore     mPopRestore    True      True     Un rientro
       &Exit        mPopExit       True      True     Un rientro
     
╚ possibile aggiungere tutte le voci di menu desiderate.

FlessibilitÓ della barra delle applicazioni

╚ possibile modificare la descrizione visualizzata sull'icona della barra delle applicazioni cambiando la seguente riga nella procedura Form_Load:
   .szTip = "Your ToolTip" & vbNullChar
 
Sostituire "Your ToolTip" con il testo da visualizzare.

╚ possibile cambiare l'icona visualizzata sulla barra delle applicazioni modificando la seguente riga nella procedura Form_Load:
   .hIcon = Me.Icon
 
Sostituire Me.Icon con qualsiasi icona del progetto.

╚ possibile modificare le impostazioni della barra delle applicazioni in qualsiasi momento dopo l'uso della costante NIM_ADD riassegnando i valori nella variabile nid e utilizzando la seguente variazione della chiamata API Shell_NotifyIcon:
   Shell_NotifyIcon NIM_MODIFY, nid.
 
Tuttavia, se si desidera che la richiamata venga ricevuta da un form diverso, sarÓ necessario eliminare l'icona corrente utilizzando dapprima Shell_NotifyIcon NIM_Delete, nid, in quanto la funzione NIM_Modify non accetta un nuovo Hwnd oppure aggiungere un'altra icona alla barra delle applicazioni per il nuovo form utilizzando Shell_NotifyIcon NIM_ADD, nid dopo aver riempito il tipo nid con i nuovi form Hwnd. ╚ anche possibile dichiarare copie diverse del tipo nid per ciascun form per il quale visualizzare un'icona sulla barra delle applicazioni di Windows e modificarle nell'evento activate di ciascun form con la sequenza NIM_DELETE e NIM_ADD.

Riferimenti

Per informazioni sull'utilizzo della barra delle applicazioni da Visual Basic 4.0 o versioni precedenti, vedere il seguente articolo della Knowledge Base (informazioni in lingua inglese):
149276 How to Use Icons with the Windows 95 System Tray

ProprietÓ

Identificativo articolo: 176085 - Ultima modifica: venerdý 20 gennaio 2006 - Revisione: 4.0
Le informazioni in questo articolo si applicano a:
  • Microsoft Visual Basic Control Creation Edition
Chiavi:á
kbgrpvbdb kbvbp500 kbvbp600bug KB176085
LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.
Dichiarazione di non responsabilitÓ per articoli della Microsoft Knowledge Base su prodotti non pi¨ supportati
Questo articolo Ŕ stato scritto sui prodotti per cui Microsoft non offre pi¨ supporto. L?articolo, quindi, viene offerto ?cosý come Ŕ? e non verrÓ pi¨ aggiornato.

Invia suggerimenti

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com