以下使用listview的代码，为何会抛异常？

Question

Private Sub listctrl_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ListView1.View = View.Details
        ListView1.Columns.Add("Type", 100)
        ListView1.Columns.Add("Name", 100)
        Dim vi As ListViewItem = ListView1.Items.Add("record1")
        vi.SubItems(0).Text = "123"
        vi.SubItems(1).Text = "567" ‘就这句，为什么SubItems只有一个元素，我要设置第二列的文本该如何做？    End Sub环境vs2005

Answer 1

Private Sub listctrl_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ListView1.View = View.Details
        ListView1.Columns.Add("Type", 100)
        ListView1.Columns.Add("Name", 100)
        ListView1.Columns.Add("Demo", 100)
        Dim vi As ListViewItem = ListView1.Items.Add("record1")
        vi.SubItems(0).Text = "123"
        vi.SubItems(1).Text = "567" 
         vi.SubItems(2).Text = "Demo" 
    End Sub

Answer 2

楼上，vi.SubItems(1).Text = "567" 这里还是抛异常，vi.SubItems.Count为1。是我别的地方没处理好？

Answer 3

给你一个实例参考一下
    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.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) = "清华东路" '地址