- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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)