السلام عليكم ورحمة الله وبركاته
هل من الممكن إضافة فيئات لمصفوفه والتحكم بها من المصفوفه يعني مثلآ
كود :
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 معين
لم أفهم المطلوب تحديداً لكن لو تريد إنشاء مصفوفة
كود :
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"
لا اخي لنفترض ان عندي هذي المتغيرات
كود :
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
لكن ما اريد تكون بهالشكل
هل هذا هو المقصود؟
كود :
Dim strArr As String() = {"A", "B", "C"}
Dim str As String = String.Concat(strArr) 'Now str = "ABC"
جزاك الله خير اخي على ردك
انا ماصرحت عن string صرحت عن صندوق نص
[COLOR="#0000FF"]Dim txt0 As New TextBox
Dim txt1 As New TextBox
Dim txt2 As New TextBox
Dim txt3 As New TextBox[/COLOR]
كود :
[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]
لا اخي ما هذا طلبي
Array.Item(0).Text = "aaa"
يعني الـ txt1,txt2,txt3,......الخ هي المصفوفه وليس نصها واعتقد يتم عمل ذلك في Collection
السلام عليكم ورحمة الله وبركاته
شوف هذا المثال (المعذرة غير متفرغ للمتابعة)
PHP كود :
Public Class Form1
Private txt As New List(Of TextBox)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tb As New TextBox
txt.Add(tb)
txt.Item(0).Text = "AboRead"
MsgBox(txt.Item(0).Text)
End Sub
End Class
السلام عليكم ورحمة الله وبركاته
[COLOR="#800000"]جزاك الله خير استاذي ابو رائد وهو المطلوب
وجزاك الله خير اخوي Aly El-Haddad على المساعده[/COLOR]