导航

« VB.NET openFileDialog vb.net (2008)单击ListView列标题实现项排序功能  »

CheckedListBox 全选 反选 vb.net 分享

VB.NET

Windows 窗体 CheckedListBox 控件扩展了 ListBox 控件。它几乎能完成列表框可以完成的所有任务,并且还可以在列表中的项旁边显示复选标记。两种控件间的其他差异在于,复选列表框只支持 DrawMode.Normal,并且复选列表框只能有一项选中或未选中任何项。注意选定的项在窗体上突出显示,与已选中的项不同。

以下代码演示了CheckedListBox 的全选与反选 

 

折叠ASP/Visual Basic Code复制内容到剪贴板
  1. Private Sub chkAll_CheckedChanged(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles chkAll.CheckedChanged  '全选控件代码   
  2.         If chkAll.Checked = True Then  
  3.             For u As Integer = 0 To CheckedListBox1.Items.Count - 1   
  4.                 CheckedListBox1.SetItemChecked(u, True)   
  5.             Next  
  6.   
  7.   
  8.         Else  
  9.             For u As Integer = 0 To CheckedListBox1.Items.Count - 1   
  10.                 CheckedListBox1.SetItemChecked(u, False)   
  11.             Next  
  12.   
  13.         End If  
  14.     End Sub  
  15.   
  16.     Private Sub chkOpp_CheckedChanged(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles chkOpp.CheckedChanged  '反选控件代码   
  17.         For u As Integer = 0 To CheckedListBox1.Items.Count - 1   
  18.             CheckedListBox1.SetItemChecked(u, Not (CheckedListBox1.GetItemChecked(u)))  '反选   
  19.         Next  
  20.   
  21.     End Sub  

 

  • 顶一下





原创文章如转载,请注明:转载自落日故乡

本文链接地址:http://www.spersky.com/post/CheckedListBoxvb.html

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

内容搜索


常用链接

最新评论及回复

Powered By Z-Blog

Copyright spersky All Rights Reserved.Theme Moonlight,Calf modified.