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

هذا هو الكود

ضع هذا الكود فى ال General Decleration

Private 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
' Constants for methods associated with tray icons
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
' Constants for determining event associated with tray icon
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205

Dim tCurrentTxt As String
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim t As NOTIFYICONDATA

ثم ضع على الفورم الرئيسية Picture Box

واعطه اسم picHook

ثم اجعل الأيقونه التى تريدها أن تظهر هى أيقونة الفورم

حتى تظهر هذه الأيقونه بجوار الساعة

ثم ضع هذا الكود فى form_Load

    With t
        .cbSize = Len(t)
        .hwnd = picHook.hwnd

        .uId = 1&
        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .ucallbackMessage = WM_MOUSEMOVE
        .hIcon = Me.Icon
        .szTip = "Zino Reminder..." & Chr$(0)
        Shell_NotifyIcon NIM_ADD, t
    End With

أخي الكريم eng2002 كود جميل بالفعل شكرا لك..و لكن فيه بعض الإشكالات بعد إذنك..

مشكلة الأيقونة محلولة و الحمد لله..و لكن البرنامج يبقى موجود أي أنه ظاهر بينما رمزة في بجوار الساعة أنا أقصد لو يختفي البرنامج عند تصغيرة و عند النقر على الرمز يتكبر من جديد و إذا في إمكان يكون في قائمة صغيرة تظهر عند النقر على الرمز بالزر الأيمن للفأرة ..

لحظة أعتقد مشكلة الاختفاء يمكن التغلي عليها بالأمر:

Me.Visible = False

و لكن بقي مشكلة الظهور يعني كيف ستظهر من جديد

و شكرا

إيـاس

السلام عليكم ورحمة الله وبركاته

ريح نفسك وجرب الاداة دى

حدد الايكونة فى خاصية Icon واكتب فى حدث تحميل الفورم Tray1.Create ولحذف الايكونة اكتب Tray1.Destroy :rolleyes:

MBTray.rar

أخي الكريمGHOST2010 شكرا لك

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

أخي إياس تفضل هذا الكود إن شاء الله راح يفيدك وسوف تدعيلي إن شاء الله

أولا : ضع هذا الكود في مويدل

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)

وفي الختام أرجو أن تدعو لي ولوالدي

وإذا ما فهمت راح أفهمك وأرجو إني ما ثقلت عليك

أخي الكريم ail_fahad777 الحقيقة كود رائع اشتغل 100% و قمت بتعديل بإضافة بسيطة ليكتمل الكود ليصبح كالتالي:

Dim nfIconData As NOTIFYICONDATA

Private Sub Command1_Click()
Me.Hide
With nfIconData
       .hwind = Form1.hWnd
       .uID = Form1.Icon
       .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
       .uCallbackMessage = WM_MOUSEMOVE
       .hIcon = Me.Icon.Handle
       .szTip = "ÇáÑÌÇÁ ÇáÏÚÇÁ áí æáæÇáÏí" & Chr$(0)
       .cbsize = Len(nfIconData)
End With
Call shell_notifyicon(NIM_ADD, nfIconData)

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case (X \ Screen.TwipsPerPixelX)
'ÓæÝ íÊã ÊßÈíÑ ÇáÈÑäÇãÌ ÚäÏ ÇáÖÛØ Úáì ÇáÕæÑÉ ÖÛØ æÇÍÏÉ ÝÞØ
Case &H202
Me.Visible = True
Me.WindowState = vbNormal
Call shell_notifyicon(NIM_DELETE, nfIconData)
Case &H205
' mnu_File ÇÓã ÇáÞÇÆãÉ ÇáÊí ÓæÝ ÊÙåÑ ÚäÏ ÇáäÞÑ Úáì ÇáÑãÒ ÈÇáÒÑ ÇáÅíãä
PopupMenu mnb
End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call shell_notifyicon(NIM_DELETE, nfIconData)
End Sub

Private Sub mnuthe_Click()
Me.Visible = True
Me.WindowState = vbNormal
Call shell_notifyicon(NIM_DELETE, nfIconData)
End Sub

شكرا لك و لكل الأخوة الذين شاركوا معنا :lol:

كود رائع أخ eias فأنا لا أحب الأدوات

وشكرا للأخ eias على تكملة الكود

شكرا لك اخى eng2002 ;)

رائع اخى ail_fahad777 على هذا الكود الممتاز

بس لو حد يعرف ازاى اطلع قائمه صغيره عن الضغط ؟

أحبابي الكود يعطي خطأ في السطر

PopupMenu mnb

ما المطلوب

للرفع

مرحبا

عدلت الكود السابق بدون موديال

وأيضاً عند تحميل الفورم تظهر الايقونه بجوار الساعه

وعند تصغير الشاشة تكون متواجده الايقونه بجوار الساعه

وعند الظغط على الايقونه بجوار الساعه تظهر الشاشه وأيضاً الأيقونه باقي بجوار الساعه

المهم لا اطيل عليكم انظرو الملف في المرفقات وسلام ،،،

________________________________.zip