麻烦大家给些listview控件的简单列子啊

Dim i As Integer

Private Sub Command1_Click()

i = i + 1

    ListView1.ListItems.Add 1, , "待发", , i '状态

    ListView1.ListItems.Item(1).SubItems(1) = "赵六" '姓名

    ListView1.ListItems.Item(1).SubItems(2) = "111111111" '手机

    ListView1.ListItems.Item(1).SubItems(3) = "林翠路" '地址



End Sub



Private Sub Form_Load()

i = 0

    ListView1.View = lvwReport '显示风格

    ListView1.Appearance = ccFlat '平面显示

    ListView1.BorderStyle = ccNone '外框风格

    ListView1.LabelEdit = lvwManual '不允许即时编辑标签

    ListView1.MultiSelect = True '允许多选

    ListView1.GridLines = True '显示网格线

    ListView1.FullRowSelect = True '整行选取

    ListView1.FlatScrollBar = False '使用三维的滚动条

    ListView1.ColumnHeaders.Clear '清除默认列标头

    ListView1.ColumnHeaderIcons = ImageList1 '设置列标头图象集合

    ListView1.Icons = ImageList1

    ListView1.SmallIcons = ImageList1

'以下为列标头设置

    ListView1.ColumnHeaders.Add , , "状态", ListView1.Width / 4

    ListView1.ColumnHeaders.Add , , "姓名", ListView1.Width / 4, lvwColumnCenter

    ListView1.ColumnHeaders.Add , , "手机", ListView1.Width / 4, lvwColumnCenter

    ListView1.ColumnHeaders.Add , , "地址", ListView1.Width / 4, lvwColumnCenter



'以下为添加数据

    ListView1.ListItems.Add , , "待发", , 1 '状态

    ListView1.ListItems.Item(1).SubItems(1) = "张三" '姓名

    ListView1.ListItems.Item(1).SubItems(2) = "123456789" '手机

    ListView1.ListItems.Item(1).SubItems(3) = "学院路" '地址

    ListView1.ListItems.Add , , "待发", , 2 '状态

    ListView1.ListItems.Item(2).SubItems(1) = "李四" '姓名

    ListView1.ListItems.Item(2).SubItems(2) = "987654321" '手机

    ListView1.ListItems.Item(2).SubItems(3) = "学清路" '地址

    ListView1.ListItems.Add , , "待发", , 3 '状态

    ListView1.ListItems.Item(3).SubItems(1) = "王五" '姓名

    ListView1.ListItems.Item(3).SubItems(2) = "999999999" '手机

    ListView1.ListItems.Item(3).SubItems(3) = "清华东路" '地址



End Sub

补充：VB ,  基础类

上一个：vb怎么把右上角的控制按钮移到左上角
下一个：msflexgrid表格中打对钩表示选定