كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل

اهلا وسهلا بكم في منتدى مصر التقني
----------------------------------------------------
بعد البحث الطويل وجدت طلبي وهو وضع ايقونة برنامجك بجانب الساعة جديد كامل واردت مشاركته في منتدى الرائع
أولا : ضع هذا الكود في مويدل

الكود:: [color=#003399][/color] Option Explicit Declare Function shell_notifyicon Lib "shell32.dll" Alias _ "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Public Const WM_LBUTTONDBLCLK = &H203 Public Const WM_MBUTTONDBLCLK = &H209 Public Const WM_MBUTTONDOWN = &H207 Public Const WM_LBUTTONUP = &H202 Public Const WM_LBUTTONDOWN = &H201 Public Const WM_RBUTTONDBLCLK = &H206 Public Const WM_RBUTTONDOWN = &H204 Public Const WM_RBUTTONUP = &H205 Public Const WM_MOUSEMOVE = &H200 Public Const NIF_ICON = &H2 Public Const WM_COMMNOTIFY = &H44 Public Const NIF_MESSAGE = &H1 Public Const NIF_TIP = &H4 Public Const NIM_ADD = &H0 Public Const NIM_DELETE = &H2 Public Const MAX_TOOLTIP As Integer = 64 Type NOTIFYICONDATA cbsize As Long hwind As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * MAX_TOOLTIP End Type

ثانيًا : تقوم بكتابة هذا الكود في قسم جنرال

الكود:: Dim nfIconData As NOTIFYICONDATA

ثالثًا : ضع هذا الكود في Form_Load

الكود:: Me.Hide With nfIconData .hwind = Form1.hWnd .uID = Form1.Icon .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = Form1.Icon.Handle .szTip = "الرجاء الدعاء لي ولوالدي" & Chr$(0) .cbsize = Len(nfIconData) End With Call shell_notifyicon(NIM_ADD, nfIconData)

رابعًا : ضع هذا الكود في حدث Form_MouseMove

الكود:: Select Case (X \ Screen.TwipsPerPixelX) 'سوف يتم تكبير البرنامج عند الضغط على الصورة ضغط واحدة فقط Case &H202 Me.Visible = True Me.WindowState = vbNormal Case &H205 ' mnu_File اسم القائمة التي سوف تظهر عند النقر على الرمز بالزر الإيمن PopupMenu mnu_File End Select

خامسًا : ضع هذا الكود في حدث Form_Unload

الكود:: Call shell_notifyicon(NIM_DELETE, nfIconData)

---------------------------------------------------------------

ولكن اذا بالامكان من الاخوة شرح اكواد المستخدمة ومشكورين

من طرف السنى الخميس مارس 06, 2014 6:31 am

جزاكم الله خيرا اخى الفاضل

من طرف dia trya الجمعة مايو 08, 2020 11:38 am

الله يحفظك ويحفط والديك يا رب

من طرف mal0042002 الجمعة نوفمبر 06, 2020 11:35 am

ألف شكررررررررررررررررررررر

1	#موقع_لي_نور_الإلكتروني
2	#java
3	#datagridview
4	#سكن
5	#عقار
6	#عقارات
7	#استثمار
8	#الامارات
9	#الشارقة
10	#javafx

كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل

كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل

رد: كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل

رد: كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل

رد: كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل

مواضيع ذات صلة