قوائم مخصصة على الفورم باستخدام كومندبار مع اضافة قوائم فرعية (اختياري)

[ابو حمادة]

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

استاذي الغالى عبدالله باقشير 

كل عام وانت بخير وعي سعيد عليك وعلى الاسرة وكل المسلمين 

استفسار حول هذا الموضوع لو ممكن

انا استخدمت الملف وعدلت عليه ويوجد قائمه فرعيه بها عدة اسماء 

المطلوب

هل من الممكن عند اختيار اسم من القائمه الفرعيه يتم نقل هذا الاسم لـ تكست بوكس (TextBox1)

انا حولت اطبق هذا ولم استطع

هل دا ممكن تنفيذه ولا لاء

ولك منى تحياتى

 

 

[ابو حمادة]

في ٢٣‏/٥‏/٢٠١٣ at 16:36, عبدالله باقشير said:

السلام عليكم

 

قوائم مخصصة على الفورم باستخدام كومندبار مع اضافة قوائم فرعية (اختياري)

 

القوائم الرئيسية
هي النطاقات المسمى باسم الليبلات
النطاق الاول: Lbl_ST_1
النطاق الثاني: Lbl_ST_2
النطاق الثالث: Lbl_ST_3
النطاق الرابع: Lbl_ST_4

اذا اردت زيادة قائمة اخرى اضف جدول آخر وسميه Lbl_ST_5
واضف ليبل آخر بنفس التسمية  واعمل له كودين مشابهين لاكواد الليبلات الاخرى مع تغيير الرقم الى 5

 

مثال :

الكود الاول

Private Sub Lbl_ST_5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
kh_AddBar sNeme & 5
End Sub

الكود الثاني

Private Sub Lbl_ST_5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
kh_Set1 sNeme & 5
End Sub

وهكذا اذا اردت اضافة ليبل آخر

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


يمكنك ايضا التحكم في النطاقات بادخال ما تريده من اكواد او الحذف او الاضافة .

================================================

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

http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=58279

 

================================================

 

المرفق 2003-2010

قوائم مخصصة على الفورم باستخدام كومندبار+2.rar
 

السلام عليكم استاذي الغالى

كل عام وانت بخير

انا استخدمت هذا الفورم وعدلت عليه كما اريد وعملت قائمة ومنها قائمة فرعيه 

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

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

اتمنى الرد

[ابو حمادة]

في ٢٣‏/٥‏/٢٠١٣ at 16:36, عبدالله باقشير said:

السلام عليكم

 

قوائم مخصصة على الفورم باستخدام كومندبار مع اضافة قوائم فرعية (اختياري)

 

القوائم الرئيسية
هي النطاقات المسمى باسم الليبلات
النطاق الاول: Lbl_ST_1
النطاق الثاني: Lbl_ST_2
النطاق الثالث: Lbl_ST_3
النطاق الرابع: Lbl_ST_4

اذا اردت زيادة قائمة اخرى اضف جدول آخر وسميه Lbl_ST_5
واضف ليبل آخر بنفس التسمية  واعمل له كودين مشابهين لاكواد الليبلات الاخرى مع تغيير الرقم الى 5

 

مثال :

الكود الاول

Private Sub Lbl_ST_5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
kh_AddBar sNeme & 5
End Sub

الكود الثاني

Private Sub Lbl_ST_5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
kh_Set1 sNeme & 5
End Sub

وهكذا اذا اردت اضافة ليبل آخر

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


يمكنك ايضا التحكم في النطاقات بادخال ما تريده من اكواد او الحذف او الاضافة .

================================================

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

http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=58279

 

================================================

 

المرفق 2003-2010

قوائم مخصصة على الفورم باستخدام كومندبار+2.rar
 

لو سمحت استاذي عبد الله 

استفسار لو تكرمت

انا طبقت هذا العمل وبصراحه مجهود رائع وجميل جدا 

القامة الفرعيه عندي عباره عن عدة اسماء للعاملين

هل من الممكن عند اختيار اسم يتم نقل الاسم الذي اختارته الى (Textbox1) هل دا ممكن

اتمنى الرد 

 

تم تعديل يونيو 28, 2018 بواسطه ابو حمادة

[زياد عبد الجليل]

عمل ممتاز استاذ عبد الله بارك الله فيك وزادك الله من علمه

لدي طلب بسيط هو كيف يتم برمجة عناصر الكومند بار اي عندما اضغط على اختيار الحفظ  كيف ندرج الكود thisworkbook.save و شكرا لك