اذهب إلى المحتوى

السؤال

نشر

على تطبيق سطح مكتب، باستخدام Vb.net لدي الكود التالي:

  Dim ta = frmControllerScreen.Controls.Find("txtResponseA", True)
    If ta.Count > 0 Then
        Dim txt As TextBox = ta.First
        txtResponseA = txt.Text
    End If

    Dim tb = frmControllerScreen.Controls.Find("txtResponseB", True)
    If tb.Count > 0 Then
        Dim txt As TextBox = tb.First
        txtResponseB = txt.Text
    End If

    Dim tc = frmControllerScreen.Controls.Find("txtResponseC", True)
    If tc.Count > 0 Then
        Dim txt As TextBox = ta.First
        txtResponseC = txt.Text
    End If

    Dim td = frmControllerScreen.Controls.Find("txtResponseD", True)
    If td.Count > 0 Then
        Dim txt As TextBox = ta.First
        txtResponseD = txt.Text
    End If

ما أريد السؤال عنه إمكانية استعمال متغير بدلالة آخر، حاولت استعمال هذه الطريقة:

    lblAutoChoice1.Text = ("txtResponse" & chrAvailableAnswers.Item(0).ToString.Trim)

فلم أصل إلى حل؟؟

Recommended Posts

  • 0
نشر

يمكنك الولوج إلى الحقول النصية الموجودة على مستوى النافذة عن طريق الدالة :

Me.GetType.GetField

ليصبح محتوى الحقل textReponse كقيمة لـ lblAutoChoice1.Text :

lblAutoChoice1.Text = Me.GetType.GetField("txtResponse" & chrAvailableAnswers.Item(0).ToString, _ 
BindingFlags.Instance Or BindingFlags.NonPublic).GetValue(Me).ToString

انضم إلى النقاش

يمكنك أن تنشر الآن وتسجل لاحقًا. إذا كان لديك حساب، فسجل الدخول الآن لتنشر باسم حسابك.

زائر
أجب على هذا السؤال...

×   لقد أضفت محتوى بخط أو تنسيق مختلف.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   جرى استعادة المحتوى السابق..   امسح المحرر

×   You cannot paste images directly. Upload or insert images from URL.

  • إعلانات

  • تابعنا على



×
×
  • أضف...