继续上一节讲解ListView的用法。
上一节谈到了如何编程一个类似于资源管理器显示“详细信息”时的窗口,代码中用了两个列标题“操作名称”和“操作说明”。
那么代码中ListViewItem的Text属性对应的是第一个列标题,
第一个ListViewSubItem的Text对应第二个列标题,
那么更多ListViewSubItem呢?看以下代码:
'添加项目 Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click '操作名称 Dim OptionName As String = TextBox1.Text '操作说明 Dim OptionInfo As String = TextBox2.Text '显示的图标 Dim OptionIcon As Integer = Integer.Parse(ComboBox2.Text) '实例化一个ListViewItem Dim lvItem As New ListViewItem(OptionName,OptionIcon) '实例化一个ListViewSubItem Dim lvSubItem As New ListViewItem.ListViewSubItem() lvSubItem.Text = OptionInfo '将ListViewSubItem添加到ListViewItem lvItem.SubItems.Add(lvSubItem) '实例化一个ListViewSubItem Dim lvSubItem2 As New ListViewItem.ListViewSubItem() lvSubItem2.Text = "图标id" & OptionIcon.ToString '将ListViewSubItem添加到ListViewItem lvItem.SubItems.Add(lvSubItem2) '将ListViewItem加入到ListView中 ListView1.Items.Add(lvItem) End Sub
我们将向一个ListViewItem增加2个ListViewSubItem,那么运行的时候显示如下:
可以看到,并没有显示第二个ListViewSubItem的内容。那么,如何才能显示呢?那就是添加列标题。
这样就可以正确显示了:
'添加列标题 Private Sub Button4_Click(sender As Object,e As EventArgs) Handles Button4.Click ListView1.Columns.Add("使用的图片") End Sub
或者指定宽度并制定对齐方式: