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

كيف أضيف خاصية collection إلى الأداة؟

مغلق
بدأه أحمد العلي في 12 نوفمبر 2005 · 11 رد · 1,051 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أعضاء المنتدى الكرام :

أقوم بتصميم أداة وواجهتني مشكلة إضافة أزرار , فقمت بعمل خاصية buttons هي عبارة عن collection فكتبت الكود التالي:

Private _buttons As Label.ControlCollection
Public Property Buttons() As Label.ControlCollection
        Get
            Return _buttons
        End Get
        Set(ByVal Value As Label.ControlCollection)

            _buttons = Value
        End Set
    End Property

ولكن هذا الكود يقوم بعمل خاصية buttons هي عبارة عن collection وعند إضافة الأزرار وضغط okلا يتم إضافة أي زر

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

#2

ياريت توضح اكثر ويفضل يكون بمثال

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

002.gif

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#3
اقتباس
أقوم بتصميم أداة وواجهتني مشكلة إضافة أزرار

هل المشكلة تحدث أثناء الـ Design Time أم الـ Runtime ؟؟

لو كانت أثناء الـ Runtime فلماذا لا تستخدم (Controls.Add(YourButton في الـ Class الخاص بالـ Control .

رأس الحكمة الإيمان بالله

#4

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

بالنسبة للمثال فأنا أفضل أن لا اعرض الأداة إلا عند الإنتهاء منها

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

يعني واضح أن المشكلة وقت التصميم

#5
محمد عبد العليم كتب:
هل المشكلة تحدث أثناء الـ Design Time أم الـ  Runtime ؟؟

لو كانت أثناء الـ Runtime فلماذا لا تستخدم (Controls.Add(YourButton في الـ Class الخاص بالـ Control .

حاول تستخدم هذه الطريقة ... (( لأنها الأكثر ضماناً.. عندما تريد اضافة اي control إلى control ثاني ))

#6

أي طريقة أرجو إيضاح الطريقة فأنا لم أفهم شيء

#7

يا جماعة أنا من لما كنت في منتدى الـVB6 ماكنت أحصل على إجابات شافية لأسئلتي و هنا نفس الشي

يعني معقول سؤالي صعب لهذه الدرجة

أريد الحل إذا ما حصلت عالحل بطق :unsure: :s :blink: :angry:

#8

فعلاً هالسؤال رح يقضي علي

#9

صبرك اخي احمد عسى حد يدلك على الحل :

حسب ما فهمت من الأخوه انه يمكنك استخدام Controls.Add(YourButton) في الـ Class الذي تريد ان يضهر علية هذا الزر فهي تقوم بعمل إضافة للز أو اي كائن في النافذة بعد ان تعرف طبعا الزر وتحدد قياساته و موقعه

التخصص : نظم معلومات - جامعة سبأ - اليمن

من مواضيعي :

السلسلة الذهبية في تعلم البرمجة [شرح عن الإجراءات والدوال function وبناء الـ Classes] .

#10

للأسف لم أفهم كثيراً

يا ريت يا شباب إذا حد يوضحلي الكود الذي يجب كتابته أو يعطيني مثال لأني ما فهمت وين أضع الـcontrols.add

أتمنى يا شباب تردو علي لأن هالسؤال فعلاً مهم بالنسبة لي

#11

عندما تريد اضافة control عن الطريق الكود و ليس عن الطريق الـ Designer (بمعنى ليس عن طريق سحب و إفلات الـ control الذي تريده من الـ Toolbox الى الـ Form) يمكنك هذا بهذه الطريقة:

Private Sub AddDynamicButton()
           Dim runTimeButton as new Button
           runTimeButton.Text  = "This is a Dynamic Control" 
           Me.Controls.Add(runTimeButton)
End Sub

رأس الحكمة الإيمان بالله

#12

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

سأحول تطويع الكود الذي كتبته في الأداة و إن وصلت إلى الحل الصريح سأكتبه هنا بالتأكيد

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

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