PDA

View Full Version : قرار دادن آیکون برنامه در کنار ساعت



habib1352
پنج شنبه 11 اردیبهشت 1382, 22:06 عصر
با سلام
من زمانی که برنامه ام را اجرا کردم وآیکون برنامه در کنار ساعت قرار بگیره و منویی باز بشه تا بتونیم با کمک گزینه ها برناهه رو اجرا کنم در صورت امکان برنامه یا تابعی در این مورد بنویسید یا راهنمائی کنید ممنون

(سیدشریفی)
دوشنبه 15 اردیبهشت 1382, 09:15 صبح
سلام آقا حبیب
من قبلا در این قسمت یک چنین برنامه ای را دریافت کرده ام حال کد آن را در زیر قرار می دهم تا شما و بقیه دوستان از آن استفاده کنند همچنین کد را بهمراه نامه به ایمیلت ارسال نمودم
توجه کنید که در روی فرم منویی طراحی شده و خاصیت دیده شدن آن False شده است تا در روی فرم دیده نشود ولی در روی کلیک آیکون کنار ساعت از این منو استفاده شده است


Option Explicit
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

Const NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const NIM_MODIFY = &H1
Const LB_ITEMFROMPOINT = &H1A9

Const WM_LBUTTONDOWN = &H201
Const WM_RBUTTONUP = &H205
Dim pic_num As Integer '--ãÊÛíÑ äæÚ Âíßæä--

Private IC As NOTIFYICONDATA

Private Sub cmdChange_Click()

'------- ÓÊ ßÑÏä äæÚ Âíßæä ÈÑ ÇÓÇÓ ãÊÛíÑ ãÑÈæØå--------
Select Case pic_num
Case 1
IC.hIcon = picNeu.Picture '--ãÞÏÇÑ Ïåí ÈÑÇí Âíßæä--
Case 2
IC.hIcon = Picture1.Picture '--ãÞÏÇÑ Ïåí ÈÑÇí Âíßæä--
Case 3
IC.hIcon = Picture2.Picture '--ãÞÏÇÑ Ïåí ÈÑÇí Âíßæä--
Case 4
IC.hIcon = Picture3.Picture '--ãÞÏÇÑ Ïåí ÈÑÇí Âíßæä--
Case 5
IC.hIcon = picSymbol.Picture '--ãÞÏÇÑ Ïåí ÈÑÇí Âíßæä--
End Select

'--ß ßÑÏä ÑÓíÏä Âíßæä ÂÎÑí--
If pic_num = 5 Then '--ÇÑ Âíßæä ÂÎÑí ÈÇÔÏ ãÊÛíÑ ãÑÈæØå Èå Çæá ÈÑãíÑÏÏ--
pic_num = 1
Else
pic_num = pic_num + 1
End If

'-------ÏÓÊæÑ ÊÚæíÖ Âíßæä-------
Shell_NotifyIcon NIM_MODIFY, IC

End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()

pic_num = 1 '--ÓÊ ßÑÏä ãÊÛíÑ äæÚ Âíßæä--
picSymbol.Picture = Me.Icon '--ãÞÏÇÑ Ïåí Âíßæä ÈÑÇÈÑ ÈÇ Âíßæä vb--

'---ÓÊ ßÑÏä ãÞÇÏíÑ Âíßæä---
With IC
.cbSize = Len(IC)
.hwnd = picSymbol.hwnd
.uID = 2&
.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
.uCallbackMessage = &H200
.hIcon = picSymbol.Picture
.szTip = "ÈÑäÇãå ÂíßæäåÇí ÓíÓÊã äæÔÊå ÔÏå ÈÇ ÈíÓß" + vbNullChar
End With

'---ÇÖÇÝå ßÑÏä Âíßæä Èå æíäÏæÒ---
Shell_NotifyIcon NIM_ADD, IC

End Sub

Private Sub Form_Unload(Cancel As Integer)
'--Çß ßÑÏä Âíßæä--

Shell_NotifyIcon NIM_DELETE, IC
End

End Sub

Private Sub mnuSystrayBeenden_Click()

Shell_NotifyIcon NIM_DELETE, IC
End

End Sub

Private Sub picSymbol_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
MsgBox "õÔãÇ Ñæí Âíßæä ÈÑäÇãå ßáíß ßÑÏå ÇíÏ", vbMsgBoxRight
Case WM_RBUTTONUP
PopupMenu mnuSystray
End Select

End Sub

naeeme
جمعه 02 خرداد 1382, 21:07 عصر
سلام
آقای سید شریفی! میشه یه مقدار در باره این برنامه توضیح بدین؟؟
اینکه روی فرم چه چیز هایی قرار داره و چه مشخصاتی دارن؟

Ma_mitavanim
چهارشنبه 24 شهریور 1389, 16:54 عصر
سلام دوستان من یک نمونه کد با vb.net گذاشتم که تمام این کارها رو با 2 خط انجام دادم