تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل بيسط على الكود
#1
Information 



بسم الله الرحمان الرحيم
وصلاة والسلام على سيدنا محمد
وبعد/

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

PHP كود :
  Private Sub HawkEyeButton3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 (<= 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.ObjectByVal e As System.EventArgsHandles 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 .OnLoginAddressOf loged
            AddHandler 
.OnAuthErrorAddressOf wrong
        End With
    End Sub 
الرد
تم الشكر بواسطة:
#2
اكتب مثال للكود للتعديل عليه بدلا من الصورة
عموما من الواضح انك عندك مشكلة مع المصفوفة ربما التكست بوكس خالي و ليس به تكست لتحويله الي مصفوفة
وعلي فكرة الكود هذا طويل جدا وممكن تقليصه تماما
أعتقد ان تعريفك للمصفوفة يجب ان يكون عام و ليس بهذا الاسلوب  او يكون التعريف خاص ولكن في أول الفورم قبل تنفيذ اي حدث أخر
الرد
تم الشكر بواسطة: 3asfa~mdmra , 3asfa~mdmra , zinom
#3
(18-12-16, 03:29 AM)silverlight كتب : اكتب مثال للكود للتعديل عليه بدلا من الصورة
عموما من الواضح انك عندك مشكلة مع المصفوفة ربما التكست بوكس خالي و ليس به تكست لتحويله الي مصفوفة
وعلي فكرة الكود هذا طويل جدا وممكن تقليصه تماما
أعتقد ان تعريفك للمصفوفة يجب ان يكون عام و ليس بهذا الاسلوب  او يكون التعريف خاص ولكن في أول الفورم قبل تنفيذ اي حدث أخر

PHP كود :
  Private Sub HawkEyeButton3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 (<= 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.ObjectByVal e As System.EventArgsHandles 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 .OnLoginAddressOf loged
            AddHandler 
.OnAuthErrorAddressOf wrong
        End With
    End Sub 
الرد
تم الشكر بواسطة:
#4
أعتذر انا مضطر أن امشي معك خطوة خطوة بالكود لأني لا اعلم ماذا تريد من الكود تحديدا

PHP كود :
Public Class Form1

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

 
   Private Sub Button3_Click(sender As ObjectAs EventArgsHandles Button3.Click
        Dim s 
As String RichTextBox1.Text
        If Not String
.IsNullOrEmpty(sThen
            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 
الرد
تم الشكر بواسطة: 3asfa~mdmra
#5
(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 ObjectAs EventArgsHandles Button3.Click
        Dim s 
As String RichTextBox1.Text
        If Not String
.IsNullOrEmpty(sThen
            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 

اخي انا سوف اقوم بعمل مثل هذا البرنامج الرجاء
فتح البرنامج
وسوف تعرف ماالمطلوب
الرد
تم الشكر بواسطة: zinom
#6
لا أستطيع تنزيل الملف

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


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 ObjectAs EventArgsHandles Button3.Click
        
' ناخذ نسخة من بيانات التكست الموجود في التكست بوكس
        Dim s As String = RichTextBox1.Text
        ' 
نتأكد ان البيانات لها قيمة بالفعل حتي نستخدمها 
        If Not String
.IsNullOrEmpty(sThen
            For Each value 
As String In s.Split(separator)
 
               If Not String.IsNullOrEmpty(valueThen
                    
' إضافة البيانات الي مصفوفة عامة
                    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 
الرد
تم الشكر بواسطة:
#7
(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 ObjectAs EventArgsHandles Button3.Click
        
' ناخذ نسخة من بيانات التكست الموجود في التكست بوكس
        Dim s As String = RichTextBox1.Text
        ' 
نتأكد ان البيانات لها قيمة بالفعل حتي نستخدمها 
        If Not String
.IsNullOrEmpty(sThen
            For Each value 
As String In s.Split(separator)
 
               If Not String.IsNullOrEmpty(valueThen
                    
' إضافة البيانات الي مصفوفة عامة
                    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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [كود] ماهو الخطا في الكود الموضح لكم محمد مسافر 1 31 منذ 7 ساعة مضت
آخر رد: enjoy
  عندي مشكلة بخصوص الكود هدا The program '[13020] MainProj.exe' has exited with code 0 ٍOfelas 1 40 , 12:27 AM
آخر رد: Anas Mahmoud
  [VB.NET] مساعدة في تعديل كود ميدو الفنان 4 133 16-09-20, 06:17 PM
آخر رد: ميدو الفنان
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 202 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [VB.NET] تعديل البيانات من خلال فورم آخر EbrNaj00 6 195 16-09-20, 12:42 AM
آخر رد: EbrNaj00
  المساعدة في التعديل على كود تعديل البيانات في قاعدة سيكوال سيرفر momani33 3 73 15-09-20, 08:10 PM
آخر رد: Anas Mahmoud
  [VB.NET] تعديل في عملية البحث abu7shihab 4 183 11-09-20, 08:20 PM
آخر رد: T 1
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 104 09-09-20, 01:33 PM
آخر رد: momani33
  ماهو الخطاء في هذا الكود عمور2016 1 92 06-09-20, 06:33 PM
آخر رد: حريف برمجة
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 922 05-09-20, 03:36 PM
آخر رد: معاند الحظ

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


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