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

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

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

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

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

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

ولكن اذا بالامكان من الاخوة شرح اكواد المستخدمة ومشكورين
avatar
أيمن الإبراهيم
........
........

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

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

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

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

جزاكم الله خيرا اخى الفاضل
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

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

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


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