VB6之ListView控件实现单选、多选、更新选定列内容(图例,源码,注释).doc

VB6之ListView控件实现单选、多选、更新选定列内容(图例,源码,注释).doc

  1. 1、本文档共4页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB6之ListView控件实现单选、多选、更新选定列内容(图例,源码,注释)

VB6之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;Password=ldg730108;Persist Security Info=True;User ID=ldg;Initial Catalog=ldg;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 IsNu

文档评论(0)

xcs88858 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档