منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بسم الله الرحمان الرحيم

وصلاة والسلام على سيدنا محمد

وبعد/

رغم

انيي حاولت بكافة الطرق ولم افلح

وطرقت بابكم

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 

اكتب مثال للكود للتعديل عليه بدلا من الصورة
عموما من الواضح انك عندك مشكلة مع المصفوفة ربما التكست بوكس خالي و ليس به تكست لتحويله الي مصفوفة
وعلي فكرة الكود هذا طويل جدا وممكن تقليصه تماما
أعتقد ان تعريفك للمصفوفة يجب ان يكون عام و ليس بهذا الاسلوب او يكون التعريف خاص ولكن في أول الفورم قبل تنفيذ اي حدث أخر

(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 

أعتذر انا مضطر أن امشي معك خطوة خطوة بالكود لأني لا اعلم ماذا تريد من الكود تحديدا

PHP كود :

Public Class Form1

    Private strings As List(Of String) = New List(Of String)()

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim s As String = RichTextBox1.Text
        If Not String.IsNullOrEmpty(s) Then
            For Each value As String In s.Split("#"c)
                ' إضافة البيانات الي مصفوفة عامة
                strings.Add(value)
                ' إضافة البيانات الي الليست بوكس
                ListBox1.Items.Add(value)
            Next
        End If

        RichTextBox1.Text = Nothing
        ' الباقي لم أفهمه رجاء التوضيح ما1ا تريد أ نتفعل هنا لاحقا
    End Sub

End Class 

(18-12-16, 04:07 AM)silverlight كتب : [ -> ]أعتذر انا مضطر أن امشي معك خطوة خطوة بالكود لأني لا اعلم ماذا تريد من الكود تحديدا

PHP كود :

Public Class Form1 Private strings As List(Of String) = New List(Of String)() Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim s As String = RichTextBox1.Text If Not String.IsNullOrEmpty(s) Then For Each value As String In s.Split("#"c) ' إضافة البيانات الي مصفوفة عامة strings.Add(value) ' إضافة البيانات الي الليست بوكس ListBox1.Items.Add(value) Next End If RichTextBox1.Text = Nothing ' الباقي لم أفهمه رجاء التوضيح ما1ا تريد أ نتفعل هنا لاحقا End Sub End Class

اخي انا سوف اقوم بعمل مثل هذا البرنامج الرجاء

فتح البرنامج

وسوف تعرف ماالمطلوب

Download

لا أستطيع تنزيل الملف

عموما هذا تعديل بسيط علي الكود اعلاه
اعتقد انك تريد إعادة ملأ التكست بوكس بالبيانات لكن بدون #

PHP كود :

Public Class Form1

    Private stringsWithoutSeparator As List(Of String) = New List(Of String)()
    Private Const separator As Char = "#"c

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ' ناخذ نسخة من بيانات التكست الموجود في التكست بوكس
        Dim s As String = RichTextBox1.Text
        ' نتأكد ان البيانات لها قيمة بالفعل حتي نستخدمها 
        If Not String.IsNullOrEmpty(s) Then
            For Each value As String In s.Split(separator)
                If Not String.IsNullOrEmpty(value) Then
                    ' إضافة البيانات الي مصفوفة عامة
                    stringsWithoutSeparator.Add(value)
                    ' إضافة البيانات الي الليست بوكس
                    ListBox1.Items.Add(value)
                End If

            Next
        End If

        RichTextBox1.Text = Nothing
        ' الباقي لم أفهمه رجاء التوضيح ماذا تريد أ نتفعل هنا لاحقا
        Dim textboxString As String = ""
        For Each v As String In stringsWithoutSeparator
            textboxString += v
        Next

        textboxString.TrimEnd()

        RichTextBox1.Text = textboxString

    End Sub

End Class 

(18-12-16, 04:24 AM)silverlight كتب : [ -> ]لا أستطيع تنزيل الملف

عموما هذا تعديل بسيط علي الكود اعلاه
اعتقد انك تريد إعادة ملأ التكست بوكس بالبيانات لكن بدون #

PHP كود :

Public Class Form1 Private stringsWithoutSeparator As List(Of String) = New List(Of String)() Private Const separator As Char = "#"c Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click ' ناخذ نسخة من بيانات التكست الموجود في التكست بوكس Dim s As String = RichTextBox1.Text ' نتأكد ان البيانات لها قيمة بالفعل حتي نستخدمها If Not String.IsNullOrEmpty(s) Then For Each value As String In s.Split(separator) If Not String.IsNullOrEmpty(value) Then ' إضافة البيانات الي مصفوفة عامة stringsWithoutSeparator.Add(value) ' إضافة البيانات الي الليست بوكس ListBox1.Items.Add(value) End If Next End If RichTextBox1.Text = Nothing ' الباقي لم أفهمه رجاء التوضيح ماذا تريد أ نتفعل هنا لاحقا Dim textboxString As String = "" For Each v As String In stringsWithoutSeparator textboxString += v Next textboxString.TrimEnd() RichTextBox1.Text = textboxString End Sub End Class

اخي انا مابدي افرغ كل RichTextBox1 انا فقط اريد ان اخد 10 نكات فقط
1
2
3
4
5
6
7
8
9
10

بضغط
ع Button يأخد من RichTextBox الي listbox
وبضغط مرة اخري تمسح listbox وتأتي نكات جديدة لListbox

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

3asfa~mdmra

silverlight

3asfa~mdmra

silverlight

3asfa~mdmra

silverlight

3asfa~mdmra