VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb.net 教程 3-4 窗体编程 公共控件9 ListView 4

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
继续上一节讲解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
还可以增加时指定列标题的宽度:
 
 
 
或者指定宽度并制定对齐方式:
 
 
 
按下“添加列标题”后,就可以看到第二个ListViewSubItem会立即显示出来:
 
 
 
 
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/72804026

相关教程