17-11-20, 09:55 PM
ممكن كود فلترة الصنف بواسطة الكمبوبوكس
18-11-20, 10:18 AM
صباح الخير
ارفق مثال ليتم التعديل علية
ارفق مثال ليتم التعديل علية
18-11-20, 04:01 PM
كود :
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