vb表格控件

vb表格控件


ListView控件
在工具箱中右键，部件
把“MicroSoft Windows Common Controls 6.0”选中，就有了



ListView1.SelectedItem      '是获取被选中的ListItem对象
ListView1.SelectedItem.Text '获取选中的ListItem的text值
ListView1.SelectedItem.Key  '获取选中的ListItem的key 值
ListView1.SelectedItem.bold=true        '粗体
ListView1.SelectedItem.ForeColor=vbred  '设置为红色

ListView1.AllowColumnReorder = True   '对行进行程序排列，用鼠标进行排列
ListView1.Arrange = lvwAutoLeft       '图标横排列
ListView1.Arrange = lvwAutoTop        '图标竖排列
ListView1.FlatScrollBar = False       '显示滚动条
ListView1.FlatScrollBar = True        '隐藏滚动条
ListView1.FullRowSelect = True        '选择整行
ListView1.GridLines = True            '显示网络线
ListView1.LabelWrap = True            '图标可以换行
ListView1.MultiSelect = True          '可以选择多个项目
ListView1.PictureAlignment = lvwTopLeft '图片对齐方式是左顶部，其他有右顶部(1)、左底部(2)、右底部(3)、居中(4)、平铺(5)
ListView1.Checkboxes = True           '显示复选框 【要按两次才能选中】
ListView1.ListItems(1).Checked = 0    '显示第一条记录的复选框【按一次就能选中】
ListView1.ListItems(1).Checked = True '选中第一条记录的复选框
ListView1.ListItems(1).Checked = False'不选中第一条记录的复选框
ListView1.DropHighlight = ListView1: ListItems.Item (2)  '显示系统颜色

ListView1.ListItems(1).Selected = True '选中第一条记录
ListView1.ListItems.Remove (1) '删除第一条记录
总行数=ListView1.ListItems.Count '总行数


ListView1.HideSelection = 0  '=0更新选择项背景 =1不更新选择项背景

'清空记录
For i = ListView1.ListItems.Count To 1 Step -1
   If ListView1.ListItems(i).Checked = True Then
      ListView1.ListItems.Remove (i)
   End If
Next i

'删除被选中行
For i = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(i).Selected = True Then
ListView1.ListItems.Remove (i)
End If
Next i






Private Sub Form_Load()
'使对话框在显示屏中间：
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
ListView1.Width = 7800 '长
'添加列。（标题） 赋值，名称，单元格长度
ListView1.ColumnHeaders.Add , "序号", "序号", 800
ListView1.ColumnHeaders.Add , "名称", "名称", 2000
ListView1.ColumnHeaders.Add , "规格", "规格", 3000
ListView1.ColumnHeaders.Add , "材料", "材料", 1000
ListView1.ColumnHeaders.Add , "数量", "数量", 1000
'添加行
Set itmX = ListView1.ListItems.Add(1, "A2", "A2")
itmX.SubItems(ListView1.ColumnHeaders("名称").SubItemIndex) = "动模板"
itmX.SubItems(ListView1.ColumnHeaders("规格").SubItemIndex) = "160*180*30"
itmX.SubItems(ListView1.ColumnHeaders("材料").SubItemIndex) = "#45"
itmX.SubItems(ListView1.ColumnHeaders("数量").SubItemIndex) = "1"
Set itmX = ListView1.ListItems.Add(1, "A1", "A1")
itmX.SubItems(ListView1.ColumnHeaders("名称").SubItemIndex) = "静模板"
itmX.SubItems(ListView1.ColumnHeaders("规格").SubItemIndex) = "160*180*30"
itmX.SubItems(ListView1.ColumnHeaders("材料").SubItemIndex) = "#45"
itmX.SubItems(ListView1.ColumnHeaders("数量").SubItemIndex) = "1"
'设置
ListView1.View = 3                    '显示表格
ListView1.FlatScrollBar = False       '显示滚动条
ListView1.GridLines = True            '显示网络线
ListView1.FullRowSelect = True        '选择整行
ListView1.HideSelection = 0  '=0更新选择项背景 =1不更新选择项背景
End Sub



'赋值
Label1 = ListView1.SelectedItem.Text
Text2 = ListView1.SelectedItem.SubItems(1)
Text3 = ListView1.SelectedItem.SubItems(2)
Text4 = ListView1.SelectedItem.SubItems(3)
Text5 = ListView1.SelectedItem.SubItems(4)
Text6 = ListView1.SelectedItem.SubItems(5)



_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/