VB.Net程序代码：Hashtable与ListView结合使用测试例子

最新推荐文章于 2025-05-31 16:57:51 发布

原创最新推荐文章于 2025-05-31 16:57:51 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#listview #vb.net #测试 #button #string #integer

2.VB.Net 专栏收录该内容

120 篇文章

订阅专栏

本文展示了一个使用Hashtable与ListView组件结合的例子。通过VB.NET代码实现了数据填充与更新的功能，具体包括向Hashtable添加数据项、将数据展示在ListView中及更新ListView子项。

在自动更新程序中看到的有用的代码段。测试一下Hashtable与ListView结合使用。

Public Class FrmHashTB Dim ht As New Hashtable Dim al As ArrayList Dim i As Integer Private Sub FrmHashTB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load al = New ArrayList For i = 0 To 8 '添加了4个string Dim fileList(3) As String fileList(0) = String.Concat("i", i) fileList(1) = String.Concat("ix2=", i * 2) ht.Add(i, fileList) '初始化ht 添加到listview中。 Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For i = 0 To ht.Count - 1 Dim fileArray() As String = CType(ht(i), String()) ListView1.Items.Add(New ListViewItem(fileArray)) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For i = 0 To ht.Count - 1 'lsv.Items(i).SubItems.Add(i.ToString) ListView1.Items(i).SubItems(3).Text = 50 Next End Sub Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged If Me.ListView1.SelectedItems.Count > 0 Then MsgBox(String.Format("text:{0},subtext(0):{1}", Me.ListView1.SelectedItems.Item(0).Text, Me.ListView1.SelectedItems(0).SubItems(0).Text)) 'Me.ListView1.Items(0).Text = Me.ListView1.Items(0).SubItems(0).Text End If End Sub End Class