منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
احتاج الى مساعدة في list box - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : احتاج الى مساعدة في list box (/showthread.php?tid=32311)

الصفحات: 1 2

احتاج طريقة لمعرفة اذا كان رقم او اسم من لست بوكس - malek369 - 01-12-19

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

RE: احتاج طريقة لمعرفة اذا كان رقم او اسم من لست بوكس - baha - 01-12-19

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

كود :
        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



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


RE: احتاج طريقة لمعرفة اذا كان رقم او اسم من لست بوكس - malek369 - 01-12-19

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

احتاج الى مساعدة في list box - malek369 - 01-12-19

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

كود :
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: 'تنسيق سلسلة الإدخال غير صحيح.'
فياريت احمد منكم يا غوالي يساعدني في حل هالمشكلة وشكرا الكم احلى منتدى بالكون

RE: احتاج طريقة لمعرفة اذا كان رقم او اسم من لست بوكس - علي بنيان - 01-12-19

السلام عليكم 

اخي توجد دوال تكدر من خلالها تفحص المتغير او العنصر شنو نوعه منها الدالة 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 


RE: احتاج الى مساعدة في list box - علي بنيان - 01-12-19

اخي هذا السؤال مو مكرر ؟؟
http://vb4arb.com/vb/showthread.php?tid=32308

RE: احتاج الى مساعدة في list box - asemshahen5 - 01-12-19

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

RE: احتاج الى مساعدة في list box - علي بنيان - 01-12-19

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

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

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

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

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

واكون ممنون

RE: احتاج الى مساعدة في list box - asemshahen5 - 02-12-19

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

RE: احتاج الى مساعدة في list box - علي بنيان - 02-12-19

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

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