clwn.net
当前位置:首页 >> vB中listviEw的用法 >>

vB中listviEw的用法

只是从数据表中添加数据,如果你不从数据中添加数据,将如下代码稍作改动即可 private sub form_load() '整行选择 listview1.fullrowselect = true '显示表头columnheaders listview1.hidecolumnheaders = false '网格行 listview1.gridlines = true '采

什么是ListView控件VB高级控件,高级之处在于它使用了对象的方式组织内容.要使用ListView控件,需要加入组件:Microsoft Windows Common Controls 6.0Windows资源管理器的右半部分,就是一个ListView控件.作用列出并列关系的对象

文本文件 1.txt里面内容是:李佳 22 文秘 13655555555 张奇 24 经理 13755555555 张佳 22 135555555Public Sub LVrefresh(Optional ByVal StandardType As Boolean) Dim intRow As Integer, strTemp As String Dim fileNo As Integer, fileName As

数据库中的数据用ado取 dim rs as new adodb.recordset rs.open sql,cnn dim cols as integer ,col as integer cols=rs.fields.count do until rs.eof dim itm as new listviewitem itm.text=rs(0) for col = 1 to cols-1 itm.subitems(col)=rs(col) & "" next listview1.items.add itm rs.movenext loop rs.close

Dim S as IntegerIf ListView1.ListItems.Count > 0 Then '诺ListView1的行数多余0 For i = 1 to ListView1.ListItems.Count S = S + ListView1.ListItems(i).ListSubItems(1).Text Next iEnd IfMsgbox S

需要配合ImageList使用;先设置它们两个 写入代码就好了 Private Sub Form_Load() ListView1.ListItems.Add , , "编号1233", 1, 1 '这里是图片的编号 ListView1.ListItems.Add , , "编号1233", 1, 1 ListView1.ListItems.Add , , "编号1233", 1, 1 End Sub

可以以数组下标访问.listview.items[i].text; //增加 i := listview1.items.count; with listview1 do begin listitem:=items.add; listitem.caption:= inttostr(i); listitem.subitems.add('第 '+inttostr(i)+' 行'); listitem.subitems.add('第三列内容'); end;

只是从数据表中添加数据,如果你不从数据中添加数据,将如下代码稍作改动即可 Private Sub Form_Load() '整行选择 ListView1.FullRowSelect = True '显示表头ColumnHeaders ListView1.HideColumnHeaders = False '网格行 ListView1.

View设置或返回控件的视图类型 值 说明 1-LvwIcon 图标类型 2-LvwSmallIcon 小图标类型 3-LvwList 列表类型 4-LvwReport 报表类型 Arrange 设置后返回控件的图标排列方式(在图标视图下有效) 值 说明 1-LvwNone 不排列 2-LvwAutoLeft 自动靠

把列表框里的VIEW属性改为LVWREPORT即可

网站首页 | 网站地图
All rights reserved Powered by www.clwn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com