وضع ايكونه بجانب الساعه...مشكله

حلت مشكله نقل سورس الاداه بدل استخدام الكود وكانت المشكله من عندي

بس مش عارف اضيف قوائم بحدث رايت كلك للاداه

أفضل شخص ممكن يساعدك هو الأخ محمد

تكررت المشاركة ارجو من المشرفين حذفها .. تحياتي

________________________________.rar

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

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

شكرا لك لكن الذي اريده هوه عند الغضط على الايكونه بالزر الايمن او الايسر تظهر قائمه وتحوي 5 خيارات

المثال الذي معى الاداه الخاصه بالاخ محمد تضهر قائمه بها خيار واحد (خروج) ولن استطيع ان اضع خيارات اخرى لا اعرف كيف حاولت كثيرا ولم انجح

لو بس احد يحاول يعدل النلف الي ارفقته

شكرا لك

الله يوفقك من النظره الاولى باين ان الحل وصل شكرا لك رائع بمعى الكلمه

عندي مشكله لماذا لا يمكن

BorderStyle = 0

ما علاقه الاطار بالكود وامر اخر لو ممكن... ممكن عكس هذا

لاطهار الايقونه

SendCommand NIM_ADD

لاخفائها كيف اذا امكن

؟؟؟؟؟؟؟؟

اقتباس

BorderStyle = 0

لأنه لا يوجد Border له رقم 0

الصوره مرفقه

ام هذا عندي فقط (يبو انك سهوت) المشكلع عند اختاره مو الكود الي وضعه الاخ المزمجر لا عمل

اي يجب اظهار اطار وايضا كيف اخفي الايقونه لو سمحتم

up

ممكن توضح طلبك تماما

بالنسبة لاخفاء الايقونة مع بقاء مكان لها في التراي ازل السطر التالي

NID.hIcon = Icon

ولازالة المكان و الايقونة ازل السطر التالي

NID.hwnd = hwnd

شكرا لك لكود الاخفاء لن اجربه بعد واقصد بالطلب الاخر

انني اريد فورم بدون ايطار يعني ما في كبسات لا تصغير ولا تكبير ولا اغلاق

لذلك استخدم ساتيل بورد 0 ولكن عند وضع الكود الي ارفقته لي ظهر لي اطار

يمكنني تغير نوعه لكن لا يمكن اخفائه ؟؟؟؟؟ هل السبب القائمه وكيف يمكن اخفاؤه؟؟؟

للررررررررررررررررفع

غير الفورم كله من اساسه مع بقاء نفس الادوات

الحل كامل بالمرفقات

دعوااتك

___________4_.rar

شكرا لك لكن نفس الشي الاطار ما يختفي

لاننا بنسخدم القائمه رغم انها مخفيه بالطريقه الاولى

كيف نرفع الاطااااااار مو معقول

خذ هذا كود يعمل 100 %

''Form
Private Sub Form_Resize()
If WindowState = vbMinimized Then
Me.Hide
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 = Me.Caption & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
Else
Shell_NotifyIcon NIM_DELETE, nid
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Sys As Long
Sys = X / Screen.TwipsPerPixelX
Select Case Sys
Case WM_LBUTTONDOWN:
WindowState = vbNormal
Me.Show
End Select
End Sub


''''''''''''''''''''''''''''''''''''''''

'''
'Module


Option Explicit

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
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
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206

Public nid As NOTIFYICONDATA

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

عذرا يعني شو وضيفه الكود لم يفعل اي شي ؟؟؟

ممكن تذكر وضيفته او تحوله لمشروع كامل يبدو انه محتاج اضيفله شي ؟