[sniperjawadino]

(01-08-20, 11:02 PM)ابراهيم ايبو كتب :

(01-08-20, 11:02 PM)ابراهيم ايبو كتب : السلام عليكم اخي Sniper
واضحى مبارك
نعرف متغير من نوع TextBox ثم نسند له النص اينما كان سيتم تعبئة النص داخله

كود :

Dim kk As TextBox = TextBox1
       kk.Text = "hello"

أخي ابراهيم شكرا لك
تقبل الله أضحيتك 
هاد الكود جميل و مختصر و ياريته يعمل
لكن لا يمكن جعل TextBox1 الهدف في متغير String 
هدا هو هدفي الأكبر

---

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

كود :

Dim txt As TextBox = Me.Controls.OfType(Of Panel).First().Controls("TextBox2")

       txt.Text = "123"

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

كود :

    Dim txt As TextBox
       For Each p As Control In Me.Controls
           txt = p.Controls("TextBox2")
           If txt IsNot Nothing Then Exit For
       Next

       txt.Text = "123"

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