• 0
N_ELMASRY

قوائم منسدلة بضغطة زر

سؤال

الأخوة الأفاضل

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

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

فخطرت لى فكرة وضع زر فوق القائمة وعند الضغط عليه تظهر محتويات القائمة ونجح الأمر كما بالمثال المرفق ولكن ...

بعد الضغط على الزر تظهر محتويات القائمة ويختفى الزر خلف القائمه.

والمطلوب: أن يظل الزر فوق القائمه دائمًا بحيث لايظهر شكل القائمة المنسدله دومًا ..... فهل أجد فكرة تساعد فى انجاز هذا الامر ...

ولكم جزيل الشكر والتقدير

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

https://msdn.microsoft.com/en-us/library/office/ff836880.aspx

Test.rar

تم تعديل بواسطه N_ELMASRY
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

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

في نظري استخدام عنصر التحكم Web Brwoser Control وتصميم صفحة HTML أفضل من محاكاة ذلك على نموذج أكسس.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الحل باستخدام list box

البرنامج بعد التعديل..

 

Test.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
15 ساعه مضت , Gaham said:

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

في نظري استخدام عنصر التحكم Web Brwoser Control وتصميم صفحة HTML أفضل من محاكاة ذلك على نموذج أكسس.

جزاك الله خيرًا على الاستجابة، ولوممكن إيضاح لفكرة حضرتك .....

 

14 ساعه مضت , raz8081 said:

الحل باستخدام list box

البرنامج بعد التعديل..

 

Test.rar

جزاك الله خيرًا وجارى التجربة ....

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
8 ساعه مضت , N_ELMASRY said:

جزاك الله خيرًا على الاستجابة، ولوممكن إيضاح لفكرة حضرتك .....

 

جزاك الله خيرًا وجارى التجربة ....

اهلا وسهلا .. الفكرة ببساطة وضعت list box تحت الـــ button . وبعدها جعلت خاصية رؤية الــــ list غير مفعلة لاخفائها في البداية وعند الضغط على الـــــ button يتم تفعيل رؤية الليست .

Me.List20.Visible = True

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
5 ساعه مضت , raz8081 said:

اهلا وسهلا .. الفكرة ببساطة وضعت list box تحت الـــ button . وبعدها جعلت خاصية رؤية الــــ list غير مفعلة لاخفائها في البداية وعند الضغط على الـــــ button يتم تفعيل رؤية الليست .

Me.List20.Visible = True

آسف، السؤال بخصوص التوضيح كان للأخ Gaham

فكرتك جميله ولكنى حاولت إخفاء القائمة عند عدم التركيز ولكنى لم استطع الوصل لما اريد ولكنها ساعدتنى بعد تجربتها للوصول لفكرة أخرى وهى:

أن جعلت قيمة ارتفاع القائمة المنسدلة يساوى صف ووضعتها عند الحد السفلى للزر بحيث لاتظهر فى النموذج نهائيًا، كما بالمثال المرفق

وأكرر شكرى وتقديرى لك أخى الكريم على الاهتمام

 

TestFinal.rar

تم تعديل بواسطه N_ELMASRY
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
19 ساعه مضت , N_ELMASRY said:

آسف، السؤال بخصوص التوضيح كان للأخ Gaham

فكرتك جميله ولكنى حاولت إخفاء القائمة عند عدم التركيز ولكنى لم استطع الوصل لما اريد ولكنها ساعدتنى بعد تجربتها للوصول لفكرة أخرى وهى:

أن جعلت قيمة ارتفاع القائمة المنسدلة يساوى صف ووضعتها عند الحد السفلى للزر بحيث لاتظهر فى النموذج نهائيًا، كما بالمثال المرفق

وأكرر شكرى وتقديرى لك أخى الكريم على الاهتمام

 

TestFinal.rar

اهلا وسهلا بك عزيزي ...

فعلا فكرتك جميلة جدا ...

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وده إضافة لأحد الأخوة فى منتدى 

حيث عند الضغط على الزر تظهر القائمة وعند الضغط عليه مرة أخرى يقوم بإخفائها

وأيضًا إضافة أخرى من أخ تقدم بفكرة جميله حيث يقوم الزر بأخذ اسم العنصر الذى تم اختياره من القائمة 

كالتالى: 

Private Sub cmb_Committe_AfterUpdate()
btn_DropCommittee.Caption = cmb_Committe
End Sub

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

Test2.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .