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会立即显示出来:

 

 

VB.NET 中连接 SQL Server 并将数据显示在 ListView 控件中,可以按照以下步骤进行: 1. 添加 SQL Server 数据库连接 在 Visual Studio 中,选择“项目”菜单,然后选择“添加新项”。在“添加新项”对话框中,选择“数据”类别,然后选择“数据集”模板。在“数据集”对话框中,选择“新建连接”按钮,然后输入 SQL Server 数据库的连接信息。完成后,单击“确定”按钮。 2. 设计 ListView 控件 在 Windows 窗体中,拖放 ListView 控件窗体中,并设置列标题和列宽度,以便显示从 SQL Server 检索到的数据。 3. 编写代码 在窗体的代码文件中,使用以下代码连接到 SQL Server 数据库并将数据填充到 ListView 控件中: ```vb.net Dim connectionString As String = "Data Source=serverName;Initial Catalog=databaseName;User ID=userName;Password=password" Dim sql As String = "SELECT * FROM tableName" Dim connection As New SqlConnection(connectionString) Dim adapter As New SqlDataAdapter(sql, connection) Dim table As New DataTable() connection.Open() adapter.Fill(table) connection.Close() For Each row As DataRow In table.Rows Dim item As New ListViewItem(row("columnName").ToString()) item.SubItems.Add(row("columnName2").ToString()) ' 添加更多列 ListView1.Items.Add(item) Next ``` 在上述代码中,需要将“serverName”、“databaseName”、“userName”、“password”、“tableName”和“columnName”替换为实际的值。此外,需要根据实际情况添加更多的列和子项。 这样,在连接 SQL Server 并检索数据后,ListView 控件将会显示检索到的数据。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值