تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] الكتابة في التيكس بوكس بالكود
#1
Bug 
السلام عليكم إخواني

هل ممكن الكتابة في التيكس بوكس
بدون أن أعلم مكان تواجده
أعرف فقط إسمه على الفورم  "TextBox1"

هذا الكود يشتغل عند تواجد التيكس في الفورم
لكن عند وضعه في  Panel لا يشتغل
هل هناك أي فكرة إخواني

(لا أعلم إسم البانيل)

كود :
       Dim txt As TextBox = Me.Controls("TextBox1")
       txt.Text = "123"


الرد }}}
#2
استبدل Me باسم البنل .
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , حريف برمجة
#3
(01-08-20, 09:45 PM)asemshahen5 كتب : استبدل Me باسم البنل .

شكرا أخي لكن كما أكدت أنه (لا أعلم إسم البانيل)
اسم البانيل يتغير
الرد }}}
#4
السلام عليكم اخي Sniper
واضحى مبارك
نعرف متغير من نوع TextBox ثم نسند له النص اينما كان سيتم تعبئة النص داخله

كود :
Dim kk As TextBox = TextBox1
       kk.Text = "hello"
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: حريف برمجة , sniperjawadino , DR.YASER , asemshahen5
#5
السلام عليكم اخي 
هل جربت :

كود :
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"
الرد }}}
#6
(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"

هذه فقط ملاحظات أخي
شكرا كثيرا على الأكواد الجميلة اللتي سأضيفها لخزينتي
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , حريف برمجة
#7
كود :
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim txt As TextBox = FindControls(Me, "TextBox1").FirstOrDefault
        If txt IsNot Nothing Then
            txt.Text = "123"
        End If
    End Sub


    Private Function FindControls(ByVal c As Control, ByVal n As String) As IEnumerable(Of Control)
        Dim cs = c.Controls.Cast(Of Control)()
        Return cs.SelectMany(Function(ctrl) FindControls(ctrl, n)).Concat(cs).Where(Function(x) x.Name.Equals(n))
    End Function


End Class
الرد }}}
#8
كود :
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Array.ForEach(FindControls(Me, "TextBox1").OfType(Of TextBox). _
                      ToArray, Sub(txt As TextBox) txt.Text = "123")
    End Sub


    Private Function FindControls(c As Control, n As String) As IEnumerable(Of Control)
        Dim cs = c.Controls.Cast(Of Control)()
        Return cs.SelectMany(Function(ctrl) FindControls(ctrl, n)). _
               Concat(cs).Where(Function(x) x.Name.Equals(n))
    End Function

End Class
الرد }}}
تم الشكر بواسطة: asemshahen5 , sniperjawadino , حريف برمجة
#9
شكرا كثيرا
الأكواد شغالة جيدا

شكرا شكرا شكرا

جزاك الله خير أخي مبارك و جميع الإخوة الكرام
الرد }}}
تم الشكر بواسطة: asemshahen5 , حريف برمجة , حريف برمجة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 142 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  مشكله عند طباعه الباركود الكتابة تظهر بهتة في خيال والنقاط قريبه من بعض غيرت الفونت ahmedhhh2 11 786 30-09-23, 08:31 AM
آخر رد: atefkhalf2004
  كيف انشء حقل بالكود anes 2 275 14-08-23, 04:18 AM
آخر رد: anes
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم