+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن كود فلترة الصنف بواسطة الكمبوبوكس (/showthread.php?tid=36931)
ممكن كود فلترة الصنف بواسطة الكمبوبوكس - sofiane-phy - 17-11-20
ممكن كود فلترة الصنف بواسطة الكمبوبوكس
RE: ممكن كود فلترة الصنف بواسطة الكمبوبوكس - mmali127 - 18-11-20
صباح الخير
ارفق مثال ليتم التعديل علية
RE: ممكن كود فلترة الصنف بواسطة الكمبوبوكس - INFLaaTy.cR - 18-11-20
كود :
Try
If (ProgressBar1.Value <> &H2710) Then
Dim box2 As ListBox = Me.ListBox1
box2.SelectedIndex += 1
If ListBox1.SelectedItem.ToString.Contains("تضع اداة الفلترة") Then
ListBox2.Items.add(ListBox1.SelectedItem.ToString)
End If
End If
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError()
End Try