تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 69 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002

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


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