System Tray -

[EdsonJunior 966]

Descrição:

Codigo para colocar seu programa na Bandeja do Windows, mais conhecido como System Tray.

Codigo:

  Citar

Crie um Module e coloque o seguinte codigo:

Mostrar mais  

Option Explicit


Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias _

"Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As _

NOTIFYICONDATA) As Long


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


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 NIF_DOALL = NIF_MESSAGE Or NIF_ICON Or NIF_TIP


Public Const WM_MOUSEMOVE = &H200

Public Const WM_LBUTTONDBLCLK = &H203


Public Sub CriarIcone(hWnd As Long, Icone As Long, ToolTip As String)

Dim IconeTray As NOTIFYICONDATA

IconeTray.cbSize = Len(IconeTray)

IconeTray.hWnd = hWnd

IconeTray.uID = 1&

IconeTray.uFlags = NIF_DOALL

IconeTray.uCallbackMessage = WM_MOUSEMOVE

IconeTray.hIcon = Icone

IconeTray.szTip = ToolTip & Chr$(0)

Call Shell_NotifyIcon(NIM_ADD, IconeTray)

End Sub


Public Sub DeletarIcone(hWnd As Long)

Dim IconeTray As NOTIFYICONDATA

IconeTray.cbSize = Len(IconeTray)

IconeTray.hWnd = hWnd

IconeTray.uID = 1&

Call Shell_NotifyIcon(NIM_DELETE, IconeTray)

End Sub

  Citar

No Evento Form_Load do Form coloque o seguinte codigo:

Mostrar mais  

CriarIcone Me.hWnd, Me.Icon, "Seu Programa em Tray"

Me.Hide

  Citar

No Evento Form_MouseMove do Form coloque o seguinte codigo:

Mostrar mais  

Dim Msg As Long

Msg = X / Screen.TwipsPerPixelX


If Msg = WM_LBUTTONDBLCLK Then

Me.Show

DeletarIcone Me.hWnd

End If

Agora ao Iniciar o Form, o icone ficará registrado na bandeja, e ao clicar duas vezes no icone da bandeja o form irá aparecer novamente.

Créditos:

EneMy

[Renan 13]

Obrigado por trazer esse código ao TibiaBots.net

É essencial para programas que ficam sempre abertos no PC, ocupa menos espaço na barra de tarefas né, rs.

[EdsonJunior 966]

  Em 23/12/2010 em 13:01, Renan disse:

Obrigado por trazer esse código ao TibiaBots.net

É essencial para programas que ficam sempre abertos no PC, ocupa menos espaço na barra de tarefas né, rs.

Expand   Mostrar mais  

Sim sim...

Eu gosto de programas que tem tray, pq a maior parte do meu tempo é no serviço, tudo que eu faço, é no serviço...

no tray ngm flagra ;p

[Renato 659]

System Tray pro bot é mais fácil, mto mais.

E já temos o código (;

Valeu mesmo assim e REP +