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

كيف أمنع هذه القائمة المنسدلة

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

لقد قمت بعمل أزرار في فلاش واستخدمها في الفيجوال بيزيك

ولكن المشكلة أنه عند الضغط على الزر الأيمن للفأرة على الزر تظهر قائمة منسدلة خاصة بفلاش

كيف يمكنني إلغاء ظهور هذه القائمة المنسدلة ؟؟؟؟؟؟

علماً بأنني أستخدم فلاش 5

وجزاكم الله خيراً ونفعنا بعلمكم ..

#2

بص ياعم

لو عايز تعمل ازرار او اى اداة اعملها بالفيبى

يعنى تصمم الشكل على الفلاش

وتحفظه على شكل صورة

وتصمم الاداة بالصور دى

شفت الموضوع سهل ازاى :lol: :lol:

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

feed.1.gif

#3

والله يا أخي أنا حاولت كثيرا جدا في إلغاء تلك القائمة..

جربت عمل Hook علي رسائل الماوس ولكن لم أجد مقبض لاداة ShockWave .

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

علي العموم ما زلت أحاول في إيجاد طريقة لها .وإن شاء الله أوصل لشيئ

لأنه لا غني عن استخدام زراير وقوالب فلاش في برنامجنا..

#4

لو انت عاوز تستعمل الازرار من غير كود ( اكشن سكريبت ) بتاع الفلاش ..احفظ شكل الزر بالامتداد gif بدلا من swf

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#5

شكراً للجميع

ولكن الحفظ على شكل صورة يحرمك الكثير من مميزات فلاش من حركة وصوت

#6

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

الاخ :- TreasureMaster :)

يتيح لك الفلاش إستخدام كثير من أوامر الأكشن (h)

ويمكنك إستخدام أمر

ShowMenu

هذا الامر يخفي القائمه التي تطهر عند الضغط بالزر الايمن في فيلم الفلاش

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

True

أو

False

وهناك الكثير بل من أهم هذا الأوامر

FullScreen

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

AllowScale

هذا الامر عند تنفيذه يجعل فيلم الفلاش ينعرض بنفس الطول والعرض

اللي انت صممت الفيلم بيها يعني عند الضغط على زر التكبير اللي فوق

المفروض ان فيلم الفلاش يكبر مع العرض لكن مع هذا الامر يبقى ثابت

Exec

يقوم بتشغيل الملفات ذات الامتداد exe

Quit

هذا الامر يقوم باقفال فيلم الفلاش عند تنفيذه

وأى إستفسار أنا فى الخدمة إن شاء الله :D

▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒

لاتناسب الوحدة سوى الله

إعجاب المرء بنفسه دليل على صغر عقله

الحكمة عشرة أجزاء تسعة منها الصمت والعاشرة قله الكلام

قال لقمان لولده : شيئان إذا حفظتهما لا تُبالي بما ضيَّعت بعدهما ، درهمك لمعاشك ودينك لمعادك

zadt.gif

▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒

WWW.ZADTECH.COM _*_*_*_*_*_*_*_MRZAD_1@HOTMAIL.COM

#7

عزيزي MR_ZAD

جهد عظيم مشكور ورأي جيد ولكن به عيب واحد

هو أنه يمنع ظهور القائمة لكنة يظهر أحد عناصرها وهو MacroMedia ولا أظن أنه يمكن منعها من خلال فلاش

أتمنى من يعرف الطريقة أن يقوم بعرضها فالأمر هام فالكل يحتاج إلى فلاش في برمجه !!!!!!!!!

#8

بسم الله الرحمن الرحيم

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

الاخ العزيز TreasureMaster يمكن ذلك بإذن الله تعالى ... و الطريقة التي فكر فيها الاخ العزيز Pharaonic_Guy هي الطريقة السليمة فالامر بحاجة الى Hooking على الاداه و بما انها لا تحتوي على خاصية hWnd اي انها لا توفر مقبض لمبرمجي الفيجوال بيسك فيمكننا حينها ان نبحث عنه بإنفسنا كي نتحكم فيها بعد ذلك بإذن الله تعالى

و ذلك عن طريق الدالة FindHandle و البحث في العناصر داخل الفورم علما بأن الفئة ClassName التي صممت بها الاداه تحمل الاسم MacromediaFlashPlayerActiveX .... و بعد العثور عليها نقوم بعمل Hooking لها بشكل مشابه لـ :

Private Sub Form_Load()
    Dim Handle As Long
    
    Handle = FindWindowEx(Me.hwnd, 0, "MacromediaFlashPlayerActiveX", vbNullString)
    
    Hook Handle
End Sub

و لا ننسى إلغاء الـ Hooking عند الاغلاق بالشكل :

Private Sub Form_Unload(Cancel As Integer)
    Unhook
End Sub

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

Public Function myWndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
    If Msg <> WM_RBUTTONDOWN And _
       Msg <> WM_RBUTTONUP And _
       Msg <> WM_NCHITTEST Then
        
        myWndProc = CallWindowProc(OldWndProc, hwnd, Msg, wParam, lParam)
    
    End If

End Function

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

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

RgheedNoFlashMenu.zip

مواضيع برمجية تقنية جديدة

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

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

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

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

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

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

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

مواضيع برمجية تقنية قديمة

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

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

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

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

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

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

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

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

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

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

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

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

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

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

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

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

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

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)

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

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

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

#9

السلام عليكم

أخي رغيد الطيب قد ذكر طريقة أخري جميله لمعرفة مقبض ال Class window لنافذة أداة ال ActiveX لل ShockWave ..

وهي أسهل وأفضل من استخدام دالة EnumChildWindows التي ذكرت في هذا المثال

/index.php?showtopic=70517

تحية طيبة لك أخي العزيز..

#10

بسم الله الرحمن الرحيم

اعتذر و الله فلم ارى ان الموضوع قد ثم حله في مكان آخر

اكرر اسفي لك اخي بحق و اشكر جميل خصالك

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

مواضيع برمجية تقنية جديدة

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

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

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

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

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

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

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

مواضيع برمجية تقنية قديمة

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

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

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

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

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

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

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

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

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

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

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

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

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

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

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

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

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

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)

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

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

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

#11

علي ماذا تتأسف أخي العزيز... فقد أعطيتنا طريقة أخري لمعرفة مقبض ال Class Window ..

أي أننا نحن المستفيدين..

وشكرا لك مرة أخري..

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

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