السلام عليكم
انا اقوم بعمل برنامج , وفي البرنامج احتاج لاستخراج الرقم او الاسم من لست بوكس
بمعنى اخر مثلا هذه قائمة
محمد
1
علي
2
3
ياسر
مالك
اريده ان يقوم بوضع الارقام على حدى والاسماء على حدى
هكذا
ارقام اسم
1 محمد
2 علي
3 ياسر
مالك
الرجاء مساعدتي وشكرا لكم
وعليكم السلام ورحمة الله وبركاته
كود :
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
تمنياتي لك وللجميع التوفيق
اخوي مشكور بس طلعت عندي مشكلة ( System.FormatException: 'تنسيق سلسلة الإدخال غير صحيح.' )
السلام عليكم اخي
انا بعمل ببرنامج تمام هلا هي الكود
كود :
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
ده من اختصاص المشرف العام انا اختصاصي منتدى الفيجوال بيزك دوت نت و منتدى السي شارب .