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

تسميه ديناميكية لعنصر التحكم

بدأه اياد دهشان في 31 ديسمبر 2010 · 3 رد · 425 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخواني

لدي في المرفق ComboBox فيه قيم من 1 حتى 4

و لدي 4 TabControl مخفيه (visible = false)

اسماء هذه ال tabControl هي "Tab1,Tab2,Tabl3,Tab4"

المطلوب هو:

عند اختيار احد الارقام من ال ComboBox فانه سيظهر ال TabControl الخاص به

اي عند اختيار رقم 2 مثلا فانه سيظهر Tab2 و يخفي الباقي

ملاحظة:

سيقول البعض لما لا تستعمل if او Case

ساجيب مسبقا ..افرض ان لدي قيم من 1 حتى 30 و انه لدي 30 tab فهل من المعقول ان اكتب 29 if عند كل عملية ؟؟؟!!

اذا طلبي يستثني عملية ال if و يبحث عن تسمية عنصر التحكم ديناميكيا حسب قيم متغيرة

و شكرا لكم

Dymanic Object Name.zip

#2

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

أهلا أخي اياد

في ComboBox قبل التحديث ضع الكود التالي ووظيفته الدوران على كل tab ليخفيها

Dim Index As Byte
   For Index = 1 To 4
   With Me("Tab" & Index)
   .Visible = False
   End With

Next Index

في ComboBox بعد التحديث ضع الكود التالي ووظيفته البحث عن tab المطلوب حسب قيمة ComboBox ليظهره

Dim Index As Byte
   For Index = 1 To 4
   With Me("Tab" & Index)
   If cmbTabNumber = Index Then
   Me("Tab" & Index).Visible = True
   Exit Sub
 End If
    End With

Next Index

تحياتي

Dymanic Object Name.zip

تم تعديل هذه المشاركة بواسطة محمد أبو عدنان في 31 ديسمبر 2010 في 18:28

27169617.gif
#3

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

اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين

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