Como usar a barra de tarefas diretamente a partir do Visual Basic

Traduções deste artigo Traduções deste artigo
ID do artigo: 176085 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Este artigo demonstra como aproveitar ao máximo a bandeja de sistema do Windows, ou área de notificação da barra de tarefas, usando o Visual Basic. Ele coloca um ícone de sua escolha em área de notificação da barra de tarefas exibirá uma dica de ferramenta de sua escolha quando o mouse rested sobre ele, irá restaurar o aplicativo quando clicado e exibirá um menu pop-up quando clicou com o botão direito do mouse. Isso é todas as possíveis devido à capacidade do Visual Basic diretamente manipular retornos de chamada, portanto, tirando total proveito da função Shell_NotifyIcon que é exportada pelo Shell32.dll.

Mais Informações

O exemplo a seguir pode ser adicionado a qualquer projeto Visual Basic que tenha pelo menos um formulário e um módulo padrão.

Exemplo passo a passo

  1. Adicione o seguinte código à seção declarações de um módulo padrão no seu projeto:
          '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. Adicione o seguinte código para qualquer formulário em seu projeto que você deseja responder a System Tray Icon ou Notification Icon, para o seu aplicativo:
          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
           Dim Result As Long
           Me.WindowState = vbNormal
           Result = SetForegroundWindow(Me.hwnd)
           Me.Show
          End Sub
    					
  3. Tornar as seguintes configurações de propriedade no mesmo formulário ao qual você adicionou o código acima:
       Property         Required Setting for Taskbar Notification Area example
       -----------------------------------------------------------------------
       Icon           = The icon you want to appear in the system tray.
       Minbutton      = True
       ShownInTaskbar = False
    					
  4. Adicione os seguintes itens de menu para o formulário mesmo usando o Editor:
       Caption      Name          Enabled   Visible   Position
       ---------------------------------------------------------
       &SysTray     mPopupSys      True      False    Main Level
       &Restore     mPopRestore    True      True     Inset one
       &Exit        mPopExit       True      True     Inset one
    					
Você pode adicionar itens de menu adicionais conforme necessário.

Flexibilidade de área de notificação da barra de tarefas

Você pode modificar dicas de ferramentas aparece sobre a notificação de ícone alterando a seguinte linha no procedimento Form_Load:
   .szTip = "Your ToolTip" & vbNullChar
				
substituir "Sua dica de ferramenta" com o texto que você deseja que apareça.

Você pode modificar o ícone que aparece na área de notificação da barra de tarefas, alterando a seguinte linha no procedimento Form_Load:
   .hIcon = Me.Icon
				
Me.Icon substituir com qualquer ícone no seu projeto.

Você pode alterar as configurações de área de notificação da barra de tarefas a qualquer momento após o uso da constante NIM_ADD reatribuindo valores da variável nid e, em seguida, usando a seguinte variação da chamada de API Shell_NotifyIcon:
   Shell_NotifyIcon NIM_MODIFY, nid.
				
Contudo, se desejar que um formulário diferente para receber o retorno de chamada, você precisa para excluir o ícone atual primeiro usando "Shell_NotifyIcon NIM_Delete, nid" como a função NIM_Modify não aceitará um Hwnd nova ou será precisará adicionar outro ícone para o systray para usar o novo formulário "Shell_NotifyIcon NIM_ADD, nid" após reabastecimento o tipo de nid com a nova forma Hwnd. Você também pode declarar cópias separadas do tipo nid para cada formulário que você deseja exibir um ícone na bandeja do sistema Windows e alterá-las em cada formulário Ativar o evento usando a seqüência NIM_DELETE e NIM_ADD.

Referências

Para obter mais informações sobre usar bandeja do sistema ou usando a área de notificação da barra de tarefas do Visual Basic 4.0 ou anterior, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
149276Como usar ícones com o Windows 95/98/Me barra de tarefas Área de notificação

Propriedades

ID do artigo: 176085 - Última revisão: sexta-feira, 29 de setembro de 2006 - Revisão: 2.5
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic Control Creation Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
Palavras-chave: 
kbmt kbbug kbhowto KB176085 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 176085

Submeter comentários

 

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