تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إضافة فيئات الى مصفوفه الرجاء المساعده
#1
السلام عليكم ورحمة الله وبركاته

هل من الممكن إضافة فيئات لمصفوفه والتحكم بها من المصفوفه يعني مثلآ
كود :
Dim txt1, txt2 As New TextBox
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txt1.Text <> "" Then
            'اضف الفئه الى مصفوفه
        End If
    End Sub
وبحيث استطيع التحكم ب txt1 مثل اللست تأخذ item معين
الرد }}}}
تم الشكر بواسطة:
#2
لم أفهم المطلوب تحديداً لكن لو تريد إنشاء مصفوفة
كود :
Dim strArr As String() = New String() {}
أو
كود :
Dim strArr As String() = {"Item1", "Item2", "Item3"}
و للإضافة
كود :
ReDim Preserve strArr(strArr.Length)
strArr(strArr.Length - 1) = "ItemToAdd"
للتعديل
كود :
strArr(0) = "Edited Item At 0 Index"

أما لو أردت إنشاء List (و أنصحك بها لسهولة التعامل معها)

كود :
Dim strLst As New List(Of String)
للإضافة
كود :
strLst.Add("ItemToAdd")
للتعديل
كود :
strLst(0) = "Edited Item At 0 Index"
الرد }}}}
تم الشكر بواسطة:
#3
لا اخي لنفترض ان عندي هذي المتغيرات
كود :
Dim txt0 As New TextBox
    Dim txt1 As New TextBox
    Dim txt2 As New TextBox
    Dim txt3 As New TextBox
    Dim txt4 As New TextBox
واردت وضع شرط لجميع النصوص بحيث النص الي ما فارغ ينضاف الى مصفوفه
كود :
If txt1.Text <> "" Then
            'add txt1 to Array
        End If
وعند استدعاء النصوص يتم من خلال الرقم في المصفوفه يعني مثلآ
كود :
Array.Item(0).Text = ""
حيث رقم 0 تمثل الفئه نفسها وهي ال txt1
وبمعنى اصح كأني عرفت النصوص بهالشكل
كود :
Dim txt(5) As TextBox
لكن ما اريد تكون بهالشكل
الرد }}}}
تم الشكر بواسطة:
#4
هل هذا هو المقصود؟
كود :
Dim strArr As String() = {"A", "B", "C"}
Dim str As String = String.Concat(strArr) 'Now str = "ABC"
الرد }}}}
تم الشكر بواسطة:
#5
جزاك الله خير اخي على ردك
انا ماصرحت عن string صرحت عن صندوق نص
[COLOR="#0000FF"]Dim txt0 As New TextBox
Dim txt1 As New TextBox
Dim txt2 As New TextBox
Dim txt3 As New TextBox
[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#6
كود :
[b][SIZE=4][COLOR=#000080]
Dim strArr As String() = {txt0.Text, txt1.Text, txt2.Text, txt3.Text}
Dim str As String = String.Concat(strArr)[/COLOR][/SIZE][/b]
الرد }}}}
تم الشكر بواسطة:
#7
لا اخي ما هذا طلبي
Array.Item(0).Text = "aaa"
يعني الـ txt1,txt2,txt3,......الخ هي المصفوفه وليس نصها واعتقد يتم عمل ذلك في Collection
الرد }}}}
تم الشكر بواسطة:
#8

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





شوف هذا المثال (المعذرة غير متفرغ للمتابعة)

PHP كود :
Public Class Form1

    
Private txt As New List(Of TextBox)

    Private 
Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Dim tb 
As New TextBox
        txt
.Add(tb)

        
txt.Item(0).Text "AboRead"

        
MsgBox(txt.Item(0).Text)

    
End Sub

End 
Class 





السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#9
[COLOR="#800000"]جزاك الله خير استاذي ابو رائد وهو المطلوب
وجزاك الله خير اخوي Aly El-Haddad على المساعده[/COLOR]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] السلام عليكم عندي مشكلة في الكود بتاع شاشة دخول الرجاء المساعدة aldegef 1 104 16-04-17, 04:36 AM
آخر رد: عبـدالله
  مشكله فى الكود ارجو المساعده نبيل كونكت 0 50 14-04-17, 09:16 PM
آخر رد: نبيل كونكت
  الرجاء الرد العاجل zinab ali 4 116 09-04-17, 12:36 AM
آخر رد: zinab ali
  برجاء المساعده من حضراتكم mohamedfisal2016 5 156 30-03-17, 03:38 PM
آخر رد: حريف برمجة
  [VB.NET] الرجاء المساعدة.. Ahmed.M.A 2 145 25-03-17, 03:06 PM
آخر رد: Ahmed.M.A
  [VB.NET] الانتقال من windows application إلى web application (((تم إضافة درس))) اليوم مبتدئة وغداً محترفة 6 392 14-03-17, 02:36 PM
آخر رد: اليوم مبتدئة وغداً محترفة
  مشكله فى ترقيم الفواتير برده ارجو المساعده نبيل كونكت 0 85 11-03-17, 09:06 AM
آخر رد: نبيل كونكت
Exclamation [سؤال] كود واحد موقف شغلي كله برجاء المساعده metalsoft 4 1,248 08-03-17, 03:01 PM
آخر رد: Basel_hmd
  الرجاء النظر لهذا السؤال بخصوص الإندكس abdulla2 1 93 08-03-17, 08:33 AM
آخر رد: مساعدة
  [سؤال] هل بالإمكان إضافة google maps إلى الفورم farhat 0 83 06-03-17, 09:29 AM
آخر رد: farhat

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


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