كود لوضع ايقونة برنامجك بجانب الساعة
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة
صفحة 1 من اصل 1 • شاطر
كود لوضع ايقونة برنامجك بجانب الساعة
اهلا وسهلا بكم في منتدى مصر التقني
----------------------------
منذو فترة ابحث عن كود لوضع ايقونة برنامجك بجانب الساعة وحمدلله وجدت طلبي واشكر استاذ احمد على مساعدة ولكن ع ما اعتقد هذا حل مختلف
----------------------------
نقوم بفتح الفجوال بيسك
ثم مشروع جديد ونقوم باضافة موديول module من قائمة اضافات لكتابة كود عام للبرنامج
ثم قم بكتابة الكود التالي في موديول
----------------------------
منذو فترة ابحث عن كود لوضع ايقونة برنامجك بجانب الساعة وحمدلله وجدت طلبي واشكر استاذ احمد على مساعدة ولكن ع ما اعتقد هذا حل مختلف
----------------------------
نقوم بفتح الفجوال بيسك
ثم مشروع جديد ونقوم باضافة موديول module من قائمة اضافات لكتابة كود عام للبرنامج
ثم قم بكتابة الكود التالي في موديول
- الكود:
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 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_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201 'Button down
Public Const WM_LBUTTONUP = &H202 'Button up
Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
Public Const WM_RBUTTONDOWN = &H204 'Button down
Public Const WM_RBUTTONUP = &H205 'Button up
Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
Public Declare Function SetForegroundWindow Lib "user32" _
(ByVal hWnd As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32" _
Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public nid As NOTIFYICONDATA
- الكود:
Private Sub Form_Load()
Me.Show
Me.Refresh
With nid
.cbSize = Len(nid)
.hWnd = Me.hWnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
.szTip = "Your ToolTip" & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
End Sub
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End Sub
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كود لوضع ايقونة برنامجك بجانب الساعة
لدي سؤال
قمت بتنفيذ الكود وتم وضع ايقونة بجانب الساعة بنجاح ولكن احاول ان اقو بفتح البرنامج لا استطيع تكبير البرنامج ما الحل وشكرا
قمت بتنفيذ الكود وتم وضع ايقونة بجانب الساعة بنجاح ولكن احاول ان اقو بفتح البرنامج لا استطيع تكبير البرنامج ما الحل وشكرا
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
رد: كود لوضع ايقونة برنامجك بجانب الساعة
ارجو المساعدة في سؤال السابق كيف يمكنني تكبير نافذة البرنامج بعد تصغيرها وتظهر بجانب الساعة وشكورين
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
أمس في 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
أمس في 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد