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

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
   					

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

   .szTip = "Your ToolTip" & vbNullChar
				

   .hIcon = Me.Icon
				

   Shell_NotifyIcon NIM_MODIFY, nid.
				

Voltar para o início | Submeter comentários