vb.net Checklistbox 如何把选中的值移动到另个一checklistbox里面并且在原有的里面删除

前端之家收集整理的这篇文章主要介绍了vb.net Checklistbox 如何把选中的值移动到另个一checklistbox里面并且在原有的里面删除前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

如何把checklistBox里面的多个值选中并且移动到另个checklistBox框去,然后把选中的值在原有的checklistBox框里面删除

具体代码如下:

下面的代码是在添加删除button的click事件里面写的,大家可以根据自己的需要写到你要用到的地方。

本人测试OK

说明点,代码离得循环要从大到小

  1. Private Sub btnadd_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnadd.Click
  2. Try
  3. Dim j As Integer
  4. Dim s As String
  5. For j = clBox1.Items.Count - 1 To 0 Step -1
  6. s = clBox1.Items.Count
  7. If clBox1.GetItemChecked(j) = True Then
  8. clBox2.Items.Add(clBox1.Items(j).ToString)
  9. clBox1.Items.RemoveAt(j)
  10. End If
  11. Next
  12. Catch ex As Exception
  13. MsgBox(ex.Message)
  14. End Try
  15. End Sub
  16.  
  17. Private Sub btndelete_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btndelete.Click
  18. Try
  19. Dim j As Integer
  20. For j = clBox2.Items.Count - 1 To 0 Step -1
  21. If clBox2.GetItemChecked(j) = True Then
  22. clBox1.Items.Add(clBox2.Items(j).ToString)
  23. clBox2.Items.RemoveAt(j)
  24. End If
  25. Next
  26. Catch ex As Exception
  27. MsgBox(ex.Message)
  28. End Try
  29. End Sub

猜你在找的VB相关文章