[malek369]

السلام عليكم 
انا اقوم بعمل برنامج , وفي البرنامج احتاج لاستخراج الرقم او الاسم من لست بوكس 
بمعنى اخر مثلا هذه قائمة
محمد
1
علي
2
3
ياسر
مالك
اريده ان يقوم بوضع الارقام على حدى والاسماء على حدى
هكذا
ارقام          اسم
1              محمد
2              علي
3              ياسر
                مالك
الرجاء مساعدتي وشكرا لكم

[baha]

وعليكم السلام ورحمة الله وبركاته

كود :

        For i = 0 To ListBox1.Items.Count - 1
            If IsNumeric(ListBox1.Items(i)) Then
                'numbers
                ListBox2.Items.Add(ListBox1.Items(i))
            Else
                'String
                ListBox3.Items.Add(ListBox1.Items(i))
            End If
        Next

تمنياتي لك وللجميع التوفيق

[malek369]

اخوي مشكور بس طلعت عندي مشكلة ( System.FormatException: 'تنسيق سلسلة الإدخال غير صحيح.' )

[malek369]

السلام عليكم اخي 
انا بعمل ببرنامج تمام هلا هي الكود

كود :

Private Function dodo(ByVal value As String) As Boolean

       Dim checksum As Integer = 0
       Dim doubleflag As Boolean = (value.Length Mod 2 = 0)

       Dim digit As Char
       Dim digitvalue As Integer
       For Each digit In value
           digitvalue = Integer.Parse(digit)
           If doubleflag Then
               digitvalue *= 2
               If digitvalue > 9 Then
                   digitvalue -= 9
               End If
           End If
           checksum += digitvalue
           doubleflag = Not doubleflag

       Next
       Return (checksum Mod 10 = 0)


   End Function

هلا بدي عن طريق list box يصير ياخد رقم رقم ويتاكدلي ازا العملية تمام يحفظ كل الي بطابقو الشروط ويحطهم بمستند نص وازا ما طابق ما يعملو اشي 

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


       Dim i As Integer

       For i = 0 To ListBox1.Items.Count - 1
           If dodo(ListBox1.Items(i)) Then

               MsgBox("Oky")

           Else

               MsgBox("Non")
           End If

       Next

هاد الكود ما اشتغل معي بيعطيني مشكلة 

بزبط هون

كود :

digitvalue = Integer.Parse(digit)

وبكتبلي عليها System.FormatException: 'تنسيق سلسلة الإدخال غير صحيح.'
فياريت احمد منكم يا غوالي يساعدني في حل هالمشكلة وشكرا الكم احلى منتدى بالكون

[علي بنيان]

السلام عليكم 

اخي توجد دوال تكدر من خلالها تفحص المتغير او العنصر شنو نوعه منها الدالة Isnumeric وهذه الدالة تفحص هل العنصر الحالي هو عدد او غير ذلك 

لاحظ الكود ادناه

 

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each i As Object In ListBox1.Items
            If IsNumeric(i) = True Then
                ListBox2.Items.Add(i)
            Else
                ListBox3.Items.Add(i)
            End If
        Next
    End Sub 


[علي بنيان]

اخي هذا السؤال مو مكرر ؟؟

---

http://vb4arb.com/vb/showthread.php?tid=32308

[asemshahen5]

تم دمج الموضوعين .

[علي بنيان]

اخي عاصم بلا امراً عليك , عندي مواضيع نزلتها سهواً في اقسام المنتدى القديم ممكن حضرتك تنقلها للقسم المناسب

هذه المواضيع :

http://vb4arb.com/vb/showthread.php?tid=32286

http://vb4arb.com/vb/showthread.php?tid=32284

http://vb4arb.com/vb/showthread.php?tid=32297

واكون ممنون

[asemshahen5]

ده من اختصاص المشرف العام انا اختصاصي منتدى الفيجوال بيزك دوت نت و منتدى السي شارب .

[علي بنيان]

(02-12-19, 12:55 AM)asemshahen5 كتب : ده من اختصاص المشرف العام انا اختصاصي منتدى الفيجوال بيزك دوت نت و منتدى السي شارب .

اشكرك اخي الغالي