mugen如何修改技能:VB ListView 控件设置
来源:百度文库 编辑:偶看新闻 时间:2024/04/27 14:41:49
Private Sub Form_Load() 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) = "2008-01-01" ListView1.ListItems(X).SubItems(3) = "(无)" '------------------------------------------------------- ListView1.ListItems.Clear '清空列表 ListView1.ListItems.Add , , "1" ListView1.ListItems(1).SubItems(1) = "00:00:00" ListView1.ListItems(1).SubItems(2) = "2008-01-01" ListView1.ListItems(1).SubItems(3) = "(无)" ListView1.ListItems.Add , , "2" ListView1.ListItems(2).SubItems(1) = "00:00:01" ListView1.ListItems(2).SubItems(2) = "2008-01-01" 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
VB中listview控件。急,在线等!!
vb中控件listview的详细使用
vb中的listview控件如何用啊?
VB里找不到TreeView和ListView控件!
VB中的treeview和listview控件如何使用?
listview控件的使用
谁会用vb里面的listview这个控件啊?告诉我好吗?
VB中如何在LISTVIEW控件中添加己知路径的文件
到底如何在VB中使用Listview控件动态显示数据库中的很多数据?
在vb中如何控制listview控件中显示的内容不能变化
vb中的WinSock控件如何设置代理.
vb中listview拖放item
VB-请教LISTVIEW 两问!
DELPHI7 LISTVIEW控件添加项目问题?
vfp 中listview控件怎么用?
delphi 中如何使用listview控件
vb 控件!!!!!!!!!
VB控件~~~
VB中怎么让一个ListView控件分好几列显示,分几列显示以后怎么在不同的列上显示数据?
VB问题,请问如何设置picturebox控件为透明
VB问题,请问如何设置picturebox控件为透明
VB中datagrid控件怎么设置来增加行数啊?
在vb里如何打印listview
如何从listview中提取数据[VB]