تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي
#1
سلام عليكم
اريد تعديل ع هذا الكود والرجاء الحار مساعدتي

الكود مراد تنفيذة


النتيجة في قسم language
يجب ان تكون كما في هذه الصورة

 لا تظهر 
r
x
n
بل
ar
en

الكود المراد تعديلة
PHP كود :
Private Sub xml1(ByVal sender As ObjectByVal xml As String)
 
       If MyBase.InvokeRequired True Then
            MyBase
.BeginInvoke(New XmlHandler(AddressOf xml1), New Object() {senderxml})
 
       Else
                xml 
xml.Replace("""""'")
 
               If (xml.IndexOf("from='conference.nimbuzz.com'") <> -1Then
                If 
(xml.IndexOf("<field var='jid' type='jid-single'><value>") <> -1Then
                    Dim str 
As String xml.Substring((xml.IndexOf("<field var='jid' type='jid-single'><value>") + 42))
 
                   str str.Substring(0str.IndexOf("@"))
 
                   Me.ListBox1.Items.Add((str))
 
                   If (xml.IndexOf("<field var='num_users' type='text-single'><value>") <> -1Then
                        Dim str2 
As String xml.Substring((xml.IndexOf("<field var='num_users' type='text-single'><value>") + 49))
 
                       str2 str2.Substring(0str2.IndexOf("</value>"))
 
                       Me.ListBox2.Items.Add((str2))
 
                   End If
 
                   If (xml.IndexOf("<field var='is_member_only' type='boolean'><value>") <> -1Then
                        Dim str3 
As String xml.Substring((xml.IndexOf("<field var='is_member_only' type='boolean'><value>") + 49))
 
                       str3 str3.Substring(0str3.IndexOf("</value>"))
 
                       Me.ListBox3.Items.Add((str3))
 
                   End If
 
                   If (xml.IndexOf("<field var='language' type='text-single'><value>") <> -1Then
                        Dim str4 
As String xml.Substring((xml.IndexOf("<field var='language' type='text-single'><value>") + 49))
 
                       str4 str4.Substring(0str4.IndexOf("</value>").ToString)
 
                       Me.RichTextBox1.SelectionColor Color.Red
                        Me
.RichTextBox1.AppendText(str4 ChrW(13) & ChrW(10))
 
                       Me.RichTextBox1.SelectionStart RichTextBox1.Text.Length
                        Me
.RichTextBox1.ScrollToCaret()
 
                   End If
 
               Else
                    Label1
.Text ListBox1.Items.Count
                    Label1
.Visible True
                    Me
.LabelX3.Text "finished/انتهي"
 
                   Timer1.Enabled False
                    intx 
0
                End 
If
 
               End If
 
           End If
 
   End Sub 
وهي تحديد اللغة كما في صورة اعلاها
وشكرا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد التحكم فى برنامجى عن بعد Lathe1 0 21 أمس, 12:33 PM
آخر رد: Lathe1
  [VB.NET] محتاج التعديل على الكود backgroundworker mysql progressbar dubai.eig 4 80 أمس, 11:38 AM
آخر رد: dubai.eig
  اريد تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 2 103 17-03-19, 10:21 AM
آخر رد: ابو روضة
  اريد ظهور الفورم لمرة واحدة فقط سمير جمال 1 52 17-03-19, 04:12 AM
آخر رد: asemshahen5
  ماذا يعني هذا الخطا الرجاء المساعده alipro 4 175 14-03-19, 02:53 PM
آخر رد: alipro
  اريد انشاء قاعدة بيانات سمير جمال 2 87 14-03-19, 04:29 AM
آخر رد: سمير جمال
  تعديل على كود عرض البيانات مع ايقونة التحميل new_programer 0 86 09-03-19, 05:57 AM
آخر رد: new_programer
  اريد كود التاكد من ان الفورم مفتوحة ام مغلقة سمير جمال 2 115 01-03-19, 07:13 PM
آخر رد: سمير جمال
  تعديل رصيد العميل بعد حفظ الفاتورة mostafa nada 8 213 01-03-19, 05:53 PM
آخر رد: حريف برمجة
  [VB.NET] محتاج تعديل كود DataGridView dubai.eig 3 128 27-02-19, 02:58 AM
آخر رد: elgokr

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


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