سوال در مورد Tray کردن آیکون برنامه

[ebham33]

با سلام چگونه می توان آیکون برنامه را Tray کرد و سپس پیغام هایی را هم در آن قسمت نشان داد؟

[Tasiyan]

MBTray 1.2.0 (http://barnamenevis.org/forum/showpost.php?p=392152&postcount=5)
:لبخند:

[butterfly8528]

سلام .

یک PictureBox بزار رو فرمت و آیکون مرد نظرت رو توش نمایش بده و کد زیر رو تو یک ماژول بریز :



'in module
Option Explicit
Public 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 NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIM_MODIFY = &H1
Public Const LB_ITEMFROMPOINT = &H1A9
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONUP = &H205
Public IC As NOTIFYICONDATA




و این کد ها رو هم تو فرمت بزار :



'in Form

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Call SysTray
Me.Hide
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Msg As Long
Msg = X / Screen.TwipsPerPixelX
Select Case Msg
Case WM_LBUTTONDOWN
Me.WindowState = vbNormal
Me.Show
Case WM_RBUTTONUP
'PopupMenu mnuFile
End Select
End Sub

Private Sub SysTray()
With IC
.cbSize = Len(IC)
.hwnd = Picture1.hwnd
.uID = 1&
.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
.uCallbackMessage = &H200
.hIcon = Picture1.Picture
.szTip = "www.11208528.blogfa.com"
End With
Shell_NotifyIcon NIM_ADD, IC
End Sub



موفق باشی .