如何实现listview 删除行上的多选和全选,并可以把选中的内容移动,删除

来源：蜘蛛抓取(WebSpider) 时间：2012-06-02 18:08 标签： listview 删除行
最有价值的Android应
android视频教程，资
有问必答，在问与答中
App源码交易，定制App
覆盖全国几百万开发者
100,000,0 开发者
920,000 学习者
爱开网服务
爱开网官方微信
爱开网微博
C&&&&&&&Powered by&&技术支持：迪恩网络&&android UI界面设计-安卓界面开发-android100学习网 -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
您的访问请求被拒绝 403 Forbidden - ITeye技术社区
您的访问请求被拒绝
亲爱的会员，您的IP地址所在网段被ITeye拒绝服务，这可能是以下两种情况导致：
一、您所在的网段内有网络爬虫大量抓取ITeye网页，为保证其他人流畅的访问ITeye，该网段被ITeye拒绝
二、您通过某个代理服务器访问ITeye网站，该代理服务器被网络爬虫利用，大量抓取ITeye网页
请您点击按钮解除封锁&VB6之ListView控件实现单选、多选、更新选定列内容(图..._ListView-免费论文
欢迎来到网学网学习，获得大量论文和程序！
VB6之ListView控件实现单选、多选、更新选定列内容(图..._ListView
【ListView栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。整理了ListView-VB6之ListView控件实现单选、多选、更新选定列内容(图..._ListView的相关内容供大家参考，祝大家在新的一年里和顺利！&&&&&&&&6之ListView控件实现单选、多选、更新选定列内容&&&&&&&&&&&&&&数据库编程中经常用到ListView控件实现选择后更新选定列内容的操作，通过该，读者可以更好的理解ListView控件的属性及方法。从而使数据库操作更加友好，直观。&&&&&很多读者在使用该控件的时候都会遇到第一列填充不了内容的情况。该情况是因为ListView控件的第一列（图中红色方框所示）和后面的列（图中蓝色方框所示）表示方法不一样。&&&&&红色方框部分用ListView1.ListItems.Add方法表示并添加。&蓝色方框部分用itmX.SubItems(i)方法表示并添加。起始索引为1&。&&&&&&&&&本文将详细讲述ListView1实现上图所示功能。&&&&&本文的数据库链接已经定义在标准模块中。具体代码如下：&&&&&Public&Function&cnn()&As&ADODB.Connection&&&&&Set&cnn&=&New&ADODB.Connection&&&&&&&&&cnn.Open&"Provider=SQLOLEDB.1;Pass=ldg730108;Persist&Security&Info=TUser&ID=Initial&Catalog=Data&Source=172.30.76.249"&&&&&End&Function&&&&&&&&&&一、将数据库内容添加到ListView1控件中&&&&&请注意设置ListView1的view、Checkboxs属性。Form_Load具体代码如下：&&&&&Private&Sub&Form_Load()&&&&&&&&&'设置ListView1的样式为报表样式&&&&&ListView1.View&=&lvwReport&&&&&'设置ListView1可以复选&&&&&&&&&ListView1.Checkboxes&=&True&&&&&&&&&&&&&&'声明一个记录集&&&&&&&&&Dim&rs&As&ADODB.Recordset&&&&&'设置一个新的记录集&&&&&&&&&Set&rs&=&New&ADODB.Recordset&&&&&'打开表wink&&&&&&&&&rs.Open&"select&*&from&wink",&cnn,&adOpenKeyset,&adLockOptimistic&&&&&&&&&&&&&&'设置ListView1的列标题&&&&&Dim&clmX&As&ColumnHeader&&&&&&&&&Set&clmX&=&ListView1.ColumnHeaders.Add(,&,&"Id",&ListView1.Width&/&6)&&&&&Set&clmX&=&ListView1.ColumnHeaders.Add(,&,&"Name",&ListView1.Width&/&6)&&&&&Set&clmX&=&ListView1.ColumnHeaders.Add(,&,&"Sex",&ListView1.Width&/&6)&&&&&Set&clmX&=&ListView1.ColumnHeaders.Add(,&,&"Age",&ListView1.Width&/&6)&&&&&&&&&Set&clmX&=&ListView1.ColumnHeaders.Add(,&,&"Address",&ListView1.Width&/&6)&&&&&Set&clmX&=&ListView1.ColumnHeaders.Add(,&,&"Birth",&ListView1.Width&/&6)&&&&&&&&&&&&&&'将数据库内容添加到ListView1中&&&&&Dim&itmX&As&ListItem&&&&&While&Not&rs.EOF&&&&&&&&&&&&&Set&itmX&=&ListView1.ListItems.Add(,&,&rs.Fields("id"))&&&&&&&&&&&&&&&&&&&&&&If&Not&IsNull(rs!Name)&Then&&&&&&&&&&&&&&&&&itmX.SubItems(1)&=&rs.Fields("name")&&&&&&&&&End&If&&&&&&&&&&&&&If&Not&IsNull(rs!sex)&Then&&&&&&&&&&&&&&&&&itmX.SubItems(2)&=&rs.Fields("sex")&&&&&&&&&End&If&&&&&&&&&&&&&If&Not&IsNull(rs!age)&Then&&&&&&&&&&&&&&&&&itmX.SubItems(3)&=&rs.Fields("age")&&&&&&&&&End&If&&&&&&&&&&&&&If&Not&IsNull(rs!address)&Then&&&&&&&&&&&&&&&&&itmX.SubItems(4)&=&rs.Fields("address")&&&&&&&&&End&If&&&&&&&&&&&&&If&Not&IsNull(rs!birth)&Then&&&&&&&&&&&&&&&&&itmX.SubItems(5)&=&rs.Fields("birth")&&&&&&&&&End&If&&&&&&&&&&&&&'移动到下一条记录。&&&&&&&&&rs.MoveNext&&&&&Wend&End&Sub&&&&&二、实现单选功能&&&&&将选定的单元格内容输出到Text1控件中。请读者注意第一示方法为ListView1.ListItems(i).SubItems(1)。&&&&&Private&Sub&Command1_Click()&&&&&'单选&&&&&&&&For&i&=&1&To&ListView1.ListItems.Count&&&&&&&&&&&&'如果复选框打“√”则把打对号行的第一列内容显示在文本框中。&&&&&&&&If&ListView1.ListItems(i).Checked&=&True&Then&&&&&&&&Text1.Text&=&ListView1.ListItems(i).SubItems(1)&&&&&&&&End&If&&&&Next&End&Sub&&&&&三、实现全选功能&&&&&&&&&通过循环将所有ListView1.ListItems(i).Checked属性设置为true。&&&&&&&&&Private&Sub&Command2_Click()&&&&&'循环至ListView1的总记录数&&&&&&&&&For&i&=&1&To&ListView1.ListItems.Count&&&&&&&&&'全选&&&&&&&&&&&&&ListView1.ListItems(i).Checked&=&True&&&&&&Next&&&&&End&Sub&&&&&四、实现全不选功能&&&&&通过循环将所有ListView1.ListItems(i).Checked属性设置为false。&&&&&Private&Sub&Command3_Click()&&&&&'循环至ListView1的总记录数&&&&&&&&&For&i&=&1&To&ListView1.ListItems.Count&&&&&&&&&'全不选&&&&&&&&&&&&&ListView1.ListItems(i).Checked&=&False&&&&&Next&End&Sub&&&&&五、实现更新选定列功能&重头戏来了。&&&&&通过循环将已经选择的内容放置在数组中。VB6中无可变数组，只好定义了一个100个元素的数组。读者可以根据自己的实际情况进行定义。但不要定义过大以减少资源消耗。&&&&&通过循环将选定的行的指定列进行更新数据库操作。该实例是将选定列的性别进行更新。读者可以根据自己的实际情况更新一列或若干列内容。&&&&&Private&Sub&Command4_Click()&&&&&'多选&&&&&&&&&&&&&&'定义一个100个元素的一维数组&&&&&Dim&tmpArry(100)&As&String&&&&&'循环获得第i行，第一列的内容&&&&&Dim&j&As&Integer&&&&&j&=&-1&&&&&&&&&For&i&=&1&To&ListView1.ListItems.Count&&&&&&&&&&&&&If&ListView1.ListItems(i).Checked&Then&&&&&&&&&&&&&j&=&j&+&1&&&&&&&&&&&&&&&&&tmpArry(j)&=&ListView1.ListItems(i).SubItems(1)&&&&&&&&&End&If&&&&&Next&&&&&&&&&&&&&&'循环更新第i行，第一列内容&&&&&Dim&rs2&As&ADODB.Recordset&&&&&Set&rs2&=&New&ADODB.Recordset&&&&&For&k&=&0&To&j&&&&&&&&&&&&&rs2.Open&"select&*&from&wink&where&name&=&'"&&;&tmpArry(k)&&;&"'",&cnn,&adOpenKeyset,&adLockOptitic&&&&&&&&&&&&&rs2.Fields("sex")&=&Text2.Text&&&&&&&&&rs2.Update&&&&&&&&&rs2.Close&&&&&Next&&&&&&&&&&&&&&'刷新ListView1控件中的内容&&&&&ListView1.ListItems.Clear&&&&&Call&Form_Load1&&
【】【】【】【】【】
All Rights Reserved 版权所有?网学网 提供大量原创论文 参考论文 论文资料 源代码 管理及投稿 E_mail：
郑重声明： 本网站论文均来自互联网，由本站会员上传或下载，仅供个人交流、学习、参考之用，版权归原作者所有
请下载完后24小时之内删除，任何人不得大幅抄录、在期刊上发表或作为商业之用。如涉及版权纠纷，本网站不承担任何法律及连带责任。

我要回帖

更多关于 listview 删除行 的文章

 

随机推荐