منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

مُساهمة من طرف dia trya الجمعة مايو 08, 2020 11:38 am

الله يحفظك ويحفط والديك يا رب
dia trya
dia trya
..
..

تاريخ التسجيل : 16/06/2016
المساهمات : 12
النقاط : 16
التقيم : 0
الدولة : الجزائر
الجنس : ذكر

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

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

مُساهمة من طرف mal0042002 الجمعة نوفمبر 06, 2020 11:35 am

ألف شكررررررررررررررررررررر
mal0042002
mal0042002
..
..

تاريخ التسجيل : 05/11/2020
المساهمات : 26
النقاط : 26
التقيم : 0
الدولة : اليمن
الجنس : ذكر

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

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

مُساهمة من طرف الطاهر المغربي الثلاثاء يونيو 20, 2023 10:44 am

مشكور
الطاهر المغربي
الطاهر المغربي
..
..

تاريخ التسجيل : 19/02/2023
المساهمات : 12
النقاط : 12
التقيم : 0
الدولة : الجزائر
الجنس : ذكر

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

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

مُساهمة من طرف الطاهر المغربي الثلاثاء يونيو 20, 2023 10:49 am

ألف شكررررررررررررررررررررر
الطاهر المغربي
الطاهر المغربي
..
..

تاريخ التسجيل : 19/02/2023
المساهمات : 12
النقاط : 12
التقيم : 0
الدولة : الجزائر
الجنس : ذكر

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

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

ََ

مواضيع ذات صلة


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