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

اذهب الى الأسفل

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

مُساهمة من طرف أيمن الإبراهيم في الأربعاء مارس 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
الجنس : ذكر

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

الرجوع الى أعلى الصفحة


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