VB中各控件的常用属性_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB中各控件的常用属性
上传于|0|0|暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢VB ListView控件各种操作详解
我的图书馆
VB ListView控件各种操作详解
[vb] Private&Sub&Form_Load()&&&&&&'ListView1.SmallIcons&=&ImageList1.Object&'把ImageList1图标列表控件绑定到&ListView1列表控件中来。&&&&&&&&&&ListView1.ListItems.Clear&&&&&&&&&&&&&&&'清空列表&&&&&&ListView1.ColumnHeaders.Clear&&&&&&&&&&&'清空列表头&&&&&&ListView1.View&=&lvwReport&&&&&&&&&&&&&&'设置列表显示方式&&&&&&ListView1.GridLines&=&True&&&&&&&&&&&&&&'显示网络线&&&&&&ListView1.LabelEdit&=&lvwManual&&&&&&&&&'禁止标签编辑&&&&&&ListView1.FullRowSelect&=&True&&&&&&&&&&'选择整行&&&&&&&&ListView1.ColumnHeaders.Add&,&,&"ID",&500&'给列表中添加列名&&&&&&ListView1.ColumnHeaders.Add&,&,&"本地&IP",&1500&&&&&&ListView1.ColumnHeaders.Add&,&,&"本地端口",&1200&&&&&&ListView1.ColumnHeaders.Add&,&,&"协议",&550&&&&&&ListView1.ColumnHeaders.Add&,&,&"远程&IP",&1500&&&&&&ListView1.ColumnHeaders.Add&,&,&"远程端口",&900&&&&&&ListView1.ColumnHeaders.Add&,&,&"当前状态",&900&&&&&&ListView1.ColumnHeaders.Add&,&,&"连接时间",&900&&&&&&'-------------------------------------------------------&&&&&&Dim&X&&&&&&X&=&ListView1.ListItems.Count&+&1&&&&&&ListView1.ListItems.Add&,&,&X&&&&&&ListView1.ListItems(X).SubItems(1)&=&"00:00:00"&&&&&&ListView1.ListItems(X).SubItems(2)&=&""&&&&&&ListView1.ListItems(X).SubItems(3)&=&"(无)"&&&&&&'-------------------------------------------------------&&&&&&ListView1.ListItems.Clear&&&&&&&&&&&&&&&'清空列表&&&&&&ListView1.ListItems.Add&,&,&"1"&&&&&&'ListView1.ListItems.Add&,&,&"1",&,&1&&&'添加图标&后面那个1是ImageList1控件中的图标索引号&&&&&&ListView1.ListItems(1).SubItems(1)&=&"00:00:00"&&&&&&ListView1.ListItems(1).SubItems(2)&=&""&&&&&&ListView1.ListItems(1).SubItems(3)&=&"(无)"&&&&&&&&ListView1.ListItems.Add&,&,&"2"&&&&&&ListView1.ListItems(2).SubItems(1)&=&"00:00:01"&&&&&&ListView1.ListItems(2).SubItems(2)&=&""&&&&&&ListView1.ListItems(2).SubItems(3)&=&"(无)"&&&&&&'-------------------------------------------------------&&&&&&'下列的属性也可以&单击控件右键-&属性&进行设置。&&&&&&ListView1.View&=&lvwReport&&&&&&&&&&&&&&'设置显示方式为列表&&&&&&ListView1.AllowColumnReorder&=&True&&&&&'对行进行程序排列，用鼠标进行排列&&&&&&ListView1.Arrange&=&lvwAutoLeft&&&&&&&&&'图标横排列&&&&&&ListView1.Arrange&=&lvwAutoTop&&&&&&&&&&'图标竖排列&&&&&&ListView1.FlatScrollBar&=&False&&&&&&&&&'显示滚动条&&&&&&ListView1.FlatScrollBar&=&True&&&&&&&&&&'隐藏滚动条&&&&&&ListView1.FullRowSelect&=&True&&&&&&&&&&'选择整行&&&&&&ListView1.LabelEdit&=&lvwManual&&&&&&&&&'禁止标签编辑&&&&&&ListView1.GridLines&=&True&&&&&&&&&&&&&&'显示网络线&&&&&&ListView1.LabelWrap&=&True&&&&&&&&&&&&&&'图标可以换行&&&&&&ListView1.MultiSelect&=&True&&&&&&&&&&&&'可以选择多个项目&&&&&&ListView1.PictureAlignment&=&lvwTopLeft&'图片对齐方式是左顶部，其他有右顶部(1)、左底部(2)、右底部(3)、居中(4)、平铺(5)&&&&&&ListView1.Checkboxes&=&True&&&&&&&&&&&&&'显示复选框&&&&&&'ListView1.DropHighlight&=&ListView1.ListItems.Item(2)&&&'显示系统颜色&&&&End&Sub&&
常用操作：
获取当前行数和列数:
MsgBox "行数：" & ListView1.ListItems.Count & "列数：" & ListView1.ColumnHeaders.Count
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
ListView1.ToolTipText = "行数：" & ListView1.ListItems.Count & "列数：" & ListView1.ColumnHeaders.Count
ListView1.ColumnHeaders.Add , , "备注", 1500
当前选中行:
MsgBox ListView1.SelectedItem.Index
获取复选框的值:
MsgBox ListView1.ListItems(1).Checked
删除指定行:
ListView1.ListItems.Remove 1
去掉鼠标左键点击标签编辑:
labeledit属性改为1
读取某行第一列内容:
ListView1.ListItems(i).Text
读取某行第几列内容 (不包括第一列):
ListView1.ListItems(Num).SubItems (4)
读取当前选中行第一列内容:
ListView1.ListItems(ListView1.SelectedItem.Index).Text
循环查找读取项目:
Dim i As Integer
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Text = 4 Then MsgBox ListView1.ListItems(i).Text '第一列
If ListView1.ListItems(i).SubItems(1) = 4 Then MsgBox ListView1.ListItems(i).SubItems(1) '第二列
清空列表头:
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then PopupMenu CommandLst '按下鼠标右键 显示菜单
当前选中判断:
If ListView1.ListItems.Count && 0 Then N = ListView1.SelectedItem.Index Else MsgBox "当前没有任何主机在线!", vbInformation, "警告:": Exit Sub
If N & 1 Then MsgBox "你没有选中任何主机!", vbInformation, "警告:": Exit Sub
VB设置某行为选中/非选中状态:
ListView.ListItems(i).Selected = True '选中第i行
ListView.ListItems(i).Selected = False '选中第i行
设置ListView& item项颜色
ListView1.ListItems(i).ForeColor = vbRed
ListView1.ListItems(i).ListSubItems.Item(1).ForeColor = vbRed
ListView1.ListItems(i).ListSubItems.Item(2).ForeColor = vbRed
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&vb中常用控件及其功能_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
vb中常用控件及其功能
上传于|0|0|暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩10页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢VB控件大全属性详解
列表框_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB控件大全属性详解
上传于|0|0|文档简介
&&VB控件大全属性详解
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢求VB大神，这个程序怎么写：运用控件数组，编一个数据降序排列的_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：100,587贴子：
求VB大神，这个程序怎么写：运用控件数组，编一个数据降序排列的收藏
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或