كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة
صفحة 1 من اصل 1 • شاطر
كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل
اهلا وسهلا بكم في منتدى مصر التقني
----------------------------------------------------
بعد البحث الطويل وجدت طلبي وهو وضع ايقونة برنامجك بجانب الساعة جديد كامل واردت مشاركته في منتدى الرائع
أولا : ضع هذا الكود في مويدل
ثانيًا : تقوم بكتابة هذا الكود في قسم جنرال
ثالثًا : ضع هذا الكود في Form_Load
رابعًا : ضع هذا الكود في حدث Form_MouseMove
خامسًا : ضع هذا الكود في حدث Form_Unload
---------------------------------------------------------------
ولكن اذا بالامكان من الاخوة شرح اكواد المستخدمة ومشكورين
----------------------------------------------------
بعد البحث الطويل وجدت طلبي وهو وضع ايقونة برنامجك بجانب الساعة جديد كامل واردت مشاركته في منتدى الرائع
أولا : ضع هذا الكود في مويدل
- الكود:
[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)
---------------------------------------------------------------
ولكن اذا بالامكان من الاخوة شرح اكواد المستخدمة ومشكورين
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل
جزاكم الله خيرا اخى الفاضل
السنى- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس :
رد: كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل
الله يحفظك ويحفط والديك يا رب
dia trya- ..
- تاريخ التسجيل : 16/06/2016
المساهمات : 12
النقاط : 16
التقيم : 0
الدولة :
الجنس :
رد: كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل
ألف شكررررررررررررررررررررر
mal0042002- ..
- تاريخ التسجيل : 05/11/2020
المساهمات : 26
النقاط : 26
التقيم : 0
الدولة :
الجنس :
الطاهر المغربي- ..
- تاريخ التسجيل : 19/02/2023
المساهمات : 12
النقاط : 12
التقيم : 0
الدولة :
الجنس :
رد: كود لوضع ايقونة برنامجك بجانب الساعة جديد كامل
ألف شكررررررررررررررررررررر
الطاهر المغربي- ..
- تاريخ التسجيل : 19/02/2023
المساهمات : 12
النقاط : 12
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد