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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة من طرف أيمن الإبراهيم في الإثنين فبراير 03, 2014 7:20 pm

اهلا وسهلا بكم في منتدى مصر التقني
----------------------------
منذو فترة ابحث عن كود لوضع ايقونة برنامجك بجانب الساعة وحمدلله وجدت طلبي واشكر استاذ احمد على مساعدة ولكن ع ما اعتقد هذا حل مختلف
----------------------------
نقوم بفتح الفجوال بيسك
ثم مشروع جديد    ونقوم باضافة موديول  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
avatar
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف أيمن الإبراهيم في الأربعاء فبراير 05, 2014 9:55 pm

لدي سؤال  Very Happy  Very Happy  Very Happy  Very Happy 
قمت بتنفيذ الكود وتم وضع ايقونة بجانب الساعة بنجاح ولكن احاول ان اقو بفتح البرنامج لا استطيع تكبير البرنامج ما الحل وشكرا
avatar
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف أيمن الإبراهيم في الثلاثاء فبراير 18, 2014 9:00 pm

ارجو المساعدة في سؤال السابق كيف يمكنني تكبير نافذة البرنامج بعد تصغيرها وتظهر بجانب الساعة وشكورين
avatar
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى