الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سوالين واحد عن السيستم تري والاخر عن ...

مغلق
بدأه Abu Sabreen في 1 مايو 2005 · 10 رد · 1,627 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني لقد حملت قبل مدة الاداة mbtray.ocx من المنتدى لوضع ايقونة لبرنامجي على السيستم تري وبالفعل نجحت وذلك عن طريق

الامر

Tray1.Create

ولكن انا اريد اظهار قائمة عند الضغط على الجانب الايمن من الماوس

وبالفعل تخطيت هذه المرحلة وذلك عن طريق كتابة الكود في حدث الmouse down للاداة mbtray

if button = 2 then me,popupmenu (thenameofmenu)

و عند الضغط على الجانب الايمن للماوس تظهر القائمة بشكل طبيعي ولكن.......

اذا لم اختر اي من بند من بنود القائمة فان القائمة لا تختفي

بمعنى انه اذا تم الضغط على الجانب الايمن للماوس ولم اختر اي بند فان القائمة سوف تظل ظاهرة

فهل هنالك حل لهذه المشكلة؟

والسؤال الثاني هو

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

انا استخدمت الكود التالي لاظهار البالون وبالفعل ظهر ولكن ليس على السيستم تري وانما على text 

mctooltips1.Balloon = True
mctooltips1.Activate = True
mctooltips1.AddToolTip Text1.hWnd, "Abo Sabreen Messenger v2.1"
mctooltips1.BackColor = picColor(0).BackColorn
 mctooltips1.Title = "Hello to my program"
 mctooltips1.TitleIcon = 2

اي كيف احدد مقبض الايقون على السيستم تري

مع العلم اني صار لي اكثر من اسبوع ابحث عن هذين السؤالين

وتم طرحهما في موقع اجنبي

اتمنى ان اجد الاجابة من اعضاء منتدانا الحبيب

والسلام

الاداة الاولى هي لاضافة الايقونة على السيستم تري

والثانية لاظهار باللون ال اكس بي

MBTray.rar

mctooltips.rar

من دروسي :

درس مبسط لفهم ال VB6.... Resource File

تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)

الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry

من برامجي :

Abo Sabreen Messenger v2.1 العملاق

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

مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.

#2

up>>>>

من دروسي :

درس مبسط لفهم ال VB6.... Resource File

تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)

الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry

من برامجي :

Abo Sabreen Messenger v2.1 العملاق

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

مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.

#3

upppppppppppppp

Baloon tip.rar

systray.rar

من دروسي :

درس مبسط لفهم ال VB6.... Resource File

تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)

الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry

من برامجي :

Abo Sabreen Messenger v2.1 العملاق

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

مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.

#4

ايه ياجماعة مفيش حد عارف الحل.......انا كمان عندى نفس المشكلة :(

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

UP UP UP

#6

السلام عليكم

أولاً : أنا لم استعمل mbtray.ocx ولكن أظن أن الحل المرفق يفيد

ثانياً : يفترض الكود المدرج أنك أضفت icon إلى System tray وأن عنصر التحكم PictureBox هو المسؤول عن الأحداث(events)

Private Declare Function SetForegroundWindow _
Lib "user32" (ByVal hwnd As Long) As Long

'put this code before calling you popup menu

Result = SetForegroundWindow(Me.hwnd)

'the following is a code context example ,assuming that you already have your 
'application icon on the system tray

Private Sub Picture1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        DoEvents
           Result = SetForegroundWindow(Me.hwnd)
           Me.PopupMenu Me.mnuShell 'mnuShell is the name of the menu to be popup'ed

    End If
End Sub

للأمانة : هذا الكود من الموقع www.vbcode.com

#7

شكرا لك اخي امير على تفاعلك مع الموضوع

ولكن لقد تاخرت فقد تم حل المشكلتين

على العموم شكرا لك

من دروسي :

درس مبسط لفهم ال VB6.... Resource File

تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)

الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry

من برامجي :

Abo Sabreen Messenger v2.1 العملاق

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

مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.

#8

السلام عليكم

ياريت توضح لنا طريقة توصلك للحل........

#9
lazreg كتب:
السلام عليكم

ياريت توضح لنا طريقة توصلك للحل........

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#10

السلام عليكم ممكن لو حد فيكم يعرف الطريقة باستخدام هذه الاداة لانها لايمكن ان نستخدمها مع systemtray

لانها تتعامل مع مقبض كل اداة hwnd هل من حل يا أخوان ارجو المساعدة بشكل سريع

#11

السلام عليكم

ارجو من الاخوة مساعدتي بهذه الاداة لاني اريد ان استخرج بالون من الايقونة بـ السيستم ترى ولم اتمكن لانها لازم تمرر مقبض الاداة فكيف لي ان اعرف مقبض الايقونة لبرنامجي مع العلم ان استخدم الاداتين معا

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

هذا الموضوع مغلق.

مواضيع مشابهة