[sofiane-phy]

ممكن كود فلترة الصنف بواسطة الكمبوبوكس

[mmali127]

صباح الخير

ارفق مثال ليتم التعديل علية

[INFLaaTy.cR]

كود :

      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