Postada em 04/09/2008 08:57 hs
Bom dia.
Peguei uma dica aqui no site para colocar icone do programa na barra de tarefas. Funcionou corretamente, mas eu gostaria de saber como faço para restaurar meu aplicativo novamente ao invés de fecha-lo como acontece nessa dica. Segue abaixo o codigo da dica.
Título: Colocando o ícone de sua aplicação VB na barra de tarefas do Windows (Tray Icon)
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private 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
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const NIF_DOALL = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_RBUTTONDOWN = &H204
Public Sub CriaIcone()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
Tic.uFlags = NIF_DOALL
Tic.uCallbackMessage = WM_MOUSEMOVE
Tic.hIcon = Me.Icon
Tic.szTip = "Olá , eu estou aqui ..." & vbNullChar
erg = Shell_NotifyIcon(NIM_ADD, Tic)
End Sub
Public Sub ExcluiIcone()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
erg = Shell_NotifyIcon(NIM_DELETE, Tic)
End Sub
Private Sub Form_Load()
CriaIcone
Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
ExcluiIcone
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = X / Screen.TwipsPerPixelX
'Clique duas vezes com o botão direito do mouse sobre o icone exibido
If X = WM_RBUTTONDOWN Then
Me.PopupMenu mnuArquivos
End If
End Sub
Private Sub mnusair_Click()
Unload Me
End Sub
|
