Criando Um System Tray

[' SecreT ~* 28]

• O que é System Tray

 

System Tray é deixar o programa do lado do relógio, como no botão hide

 

 

 

•Como fazer isso?

Calma, eu vou explicar.

 

Primeiro: Crie um módulo

 

Segundo: Coloque esse código no módulo

:

 

 

 

Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

 

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) 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 VBGTray As NOTIFYICONDATA

 

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_LBUTTONUP = &H202

 

Public Const WM_RBUTTONUP = &H205

 

Public Const WM_MOUSEMOVE = &H200

 

 

 

Terceiro: Coloque esse código no Form_MouseMove

 

 

 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

 

Static lngMsg As Long

 

Static blnFlag As Boolean

 

Dim result As Long

 

lngMsg = X / Screen.TwipsPerPixelX

 

If blnFlag = False Then

 

blnFlag = True

 

Select Case lngMsg

 

Case WM_RBUTTONUP

 

result = SetForegroundWindow(Me.hwnd)

 

VBGTray.cbSize = Len(VBGTray)

 

VBGTray.hwnd = Me.hwnd

 

VBGTray.uId = vbNull

 

Call Shell_NotifyIcon(NIM_DELETE, VBGTray)

 

Me.WindowState = 0

 

Form1.Visible = True

 

Dim b As String

 

b = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)

 

sndPlaySound b, Flags&

 

End Select

 

blnFlag = False

 

End If

 

End Sub

 

 

 

Quarto: Coloque este código no Form_Resize

 

 

 

Private Sub Form_Resize()

 

If Me.WindowState = 1 Then

 

Call GoSystemTray

 

End If

 

End Sub

 

 

 

Quinto: Coloque este código

 

 

Private Sub GoSystemTray()

 

VBGTray.cbSize = Len(VBGTray)

 

VBGTray.hwnd = Me.hwnd

 

VBGTray.uId = vbNull

 

VBGTray.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

 

VBGTray.ucallbackMessage = WM_MOUSEMOVE

 

VBGTray.hIcon = Me.Icon

 

VBGTray.szTip = Me.Caption & vbNullChar

 

Call Shell_NotifyIcon(NIM_ADD, VBGTray)

 

App.TaskVisible = False

 

Me.Hide

 

End Sub

 

 

 

Sexto: Coloque isto no botão hide

 

 

 

Private Sub hide_Click()

 

Call GoSystemTray

 

End Sub

 

 

 

Créditos:

 

Daniel Prince

[Ice~ 4]

Cara gostei do tópico bem organizado, tambem está bastante explicativo, método parece ser simples, vou tentar aqui, valeu por compartilhar conosco, continue assim.

 

 

 

Abrasz.

[Boy Fenix 1]

num entendi nada ' explica melhor ??

Quando eu coloco o codigos da erro no private ...

so Ctrl C e Ctrl V, ai num da para entender mesmo affê

[~OwneR~ 8]

@Boy Fenix

É uma pergunta boba mas... você está testando isso em Delphi ou VB?? Se for em Delphi esse é o problema. Se for em VB ignore esse post -q

[Boy Fenix 1]

Delphi mas consegui ja

[DarkSj 0]

isso é de VB ou de delphi?:eek:

[~OwneR~ 8]

@Boy Fenix

Por isso... o código é de VB =S

 

@DarkSj

Visual Basic...