[3asfa~mdmra]

(18-12-16, 03:29 AM)silverlight كتب : اكتب مثال للكود للتعديل عليه بدلا من الصورة
عموما من الواضح انك عندك مشكلة مع المصفوفة ربما التكست بوكس خالي و ليس به تكست لتحويله الي مصفوفة
وعلي فكرة الكود هذا طويل جدا وممكن تقليصه تماما
أعتقد ان تعريفك للمصفوفة يجب ان يكون عام و ليس بهذا الاسلوب  او يكون التعريف خاص ولكن في أول الفورم قبل تنفيذ اي حدث أخر

PHP كود :

  Private Sub HawkEyeButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HawkEyeButton3.Click
        Try
            Dim strArray As String() = Me.RichTextBox1.Text.Split(New Char() {"#"c})
            ListBox1.Items.Add(strArray(1))
            ListBox1.Items.Add(strArray(2))
            ListBox1.Items.Add(strArray(3))
            ListBox1.Items.Add(strArray(4))
            ListBox1.Items.Add(strArray(5))
            ListBox1.Items.Add(strArray(6))
            ListBox1.Items.Add(strArray(7))
            ListBox1.Items.Add(strArray(8))
            ListBox1.Items.Add(strArray(9))
            ListBox1.Items.Add(strArray(10))
            Me.RichTextBox1.Text = Nothing
            Dim i As Integer = 2
            Do While (i <= strArray.GetUpperBound(0))
                Me.RichTextBox1.Text = (Me.RichTextBox1.Text & strArray(i) & "#")
                i += 1
            Loop
        Catch ex As Exception
            MessageBox.Show("End Id Flooder")
        End Try
    End Sub

    Private Sub HawkEyeButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HawkEyeButton4.Click
        x = New agsXMPP.XmppClientConnection
        With x
            Dim strArray As String() = Me.RichTextBox1.Text.Split(New Char() {"#"c})
            .Server = "nimbuzz.com"
            .ConnectServer = "o.nimbuzz.com"
            .Open(strArray(1), password.Text)
            .Resource = ("Nimbuzz_Symbian" & Me.Generatecode())
            .Status = "GAZA LOVE ♥ all"
            .ClientVersion = ("1.0")
            .Port = "5222"
            AddHandler .OnLogin, AddressOf loged
            AddHandler .OnAuthError, AddressOf wrong
        End With
    End Sub