+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : listbox (/showthread.php?tid=30925)
listbox - dasktop - 16-08-19
مرحبا
انا لدي مشروع ويحتوي على اداة 2 اداة listbox
وكل اداة تحتوي على حروف وارقام
كيف نقارن اذا محتويات listbox1 مثل محتويات listbox2
انا كتبت الكود التالي
كود :
If ListBox2.Text = ListBox1.Text Then
MsgBox("good")
Else
MsgBox("no")
End Ifولم ينجح ماهي المشكلة
RE: listbox - سعود - 16-08-19
ان كانت هناك طريقة مدعومة فلا اعلم لكن المحاولة قد تلبي وقد حاولت بالكود التالي:
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim same As Boolean
For i As Integer = 0 To ListBox1.Items.Count - 1
Dim t As String = ListBox1.Items(i)
For ii As Integer = 0 To ListBox2.Items.Count - 1
Dim tt As String = ListBox2.Items(ii)
If tt <> t Then
same = False
Else
same = True
End If
Next
Next
If same = True Then
MsgBox("Same", MsgBoxStyle.Information, "")
Else
MsgBox("NOt same", MsgBoxStyle.Critical, "")
End If
End Sub
RE: listbox - dasktop - 16-08-19
فنان اخي سعود
وسااسميك دكتور الفيوجال بيسك
RE: listbox - سعود - 16-08-19
(16-08-19, 02:42 PM)dasktop كتب : فنان اخي سعود
وسااسميك دكتور الفيوجال بيسك
هههههههه الله يسعدك
