منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
إضافة فيئات الى مصفوفه الرجاء المساعده - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : إضافة فيئات الى مصفوفه الرجاء المساعده (/showthread.php?tid=9287)



إضافة فيئات الى مصفوفه الرجاء المساعده - 3booody - 16-06-13

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

هل من الممكن إضافة فيئات لمصفوفه والتحكم بها من المصفوفه يعني مثلآ
كود :
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 معين


إضافة فيئات الى مصفوفه الرجاء المساعده - Aly El-Haddad - 16-06-13

لم أفهم المطلوب تحديداً لكن لو تريد إنشاء مصفوفة
كود :
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"



إضافة فيئات الى مصفوفه الرجاء المساعده - 3booody - 16-06-13

لا اخي لنفترض ان عندي هذي المتغيرات
كود :
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
لكن ما اريد تكون بهالشكل


إضافة فيئات الى مصفوفه الرجاء المساعده - Aly El-Haddad - 16-06-13

هل هذا هو المقصود؟
كود :
Dim strArr As String() = {"A", "B", "C"}
Dim str As String = String.Concat(strArr) 'Now str = "ABC"



إضافة فيئات الى مصفوفه الرجاء المساعده - 3booody - 16-06-13

جزاك الله خير اخي على ردك
انا ماصرحت عن string صرحت عن صندوق نص
[COLOR="#0000FF"]Dim txt0 As New TextBox
Dim txt1 As New TextBox
Dim txt2 As New TextBox
Dim txt3 As New TextBox
[/COLOR]


إضافة فيئات الى مصفوفه الرجاء المساعده - Aly El-Haddad - 17-06-13

كود :
[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]



إضافة فيئات الى مصفوفه الرجاء المساعده - 3booody - 17-06-13

لا اخي ما هذا طلبي
Array.Item(0).Text = "aaa"
يعني الـ txt1,txt2,txt3,......الخ هي المصفوفه وليس نصها واعتقد يتم عمل ذلك في Collection


إضافة فيئات الى مصفوفه الرجاء المساعده - @@أبورائد@@ - 17-06-13


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





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

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 





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



إضافة فيئات الى مصفوفه الرجاء المساعده - 3booody - 17-06-13

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