VB.NETListView控件经验总结

本文向大家介绍VB.NET ListView控件，可能好多人还不了解VB.NET ListView控件，没有关系，看完本文你肯定有不少收获，希望本文能教会你更多东西。

创新互联建站10多年企业网站制作服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,企业网站制作及推广,对宣传片制作等多个行业拥有多年的网站运维经验的网站建设公司。

VB.NET ListView控件在程序开发过程中的使用是非常广泛的。因为其不支持数据库的绑定，所以在数据库程序开发领域无法与datagridview抗衡，但是ListView的确是一个非常好用的控件。下面就把一个简单的VB.NET ListView控件的例子发出来。

 
 
 
  
  
  Public Class heroClass hero 
  
  
  Private s_name As String 
  
  
  Private s_age As Long 
  
  
  Private s_like As String 
  
  
  Public Property myName()Property myName() As String 
  
  
  Get 
  
  
  Return s_name 
  
  
  End Get 
  
  
  Set(ByVal value As String) 
  
  
  s_name = value
  
  
  End Set 
  
  
  End Property 
  
  
  Public Property myAge()Property myAge() As Long 
  
  
  Get 
  
  
  Return s_age 
  
  
  End Get 
  
  
  Set(ByVal value As Long) 
  
  
  s_age = value
  
  
  End Set 
  
  
  End Property 
  
  
  Public Property myLike()Property myLike() As String 
  
  
  Get 
  
  
  Return s_like 
  
  
  End Get 
  
  
  Set(ByVal value As String) 
  
  
  s_like = value
  
  
  End Set 
  
  
  End Property 
  
  
  End Class

VB.NET ListView控件装载数据

 
 
 
  
  
  Private Sub btnLoad_Click()Sub btnLoad_Click(ByVal sender As 
  
  
  System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click 
  
  
  s_flag = True
  
  
  Me.lv1.CheckBoxes = True
  
  
  Dim i As Integer 
  
  
  Const maxCount As Long = 10
  
  
  Dim iItem As ListViewItem 
  
  
  Dim aHero As hero 
  
  
  For i = maxNumber To maxNumber + maxCount - 1 
  
  
  Dim rd As New System.Random(Environment.TickCount * i) 
  
  
  aHero = New her 
  
  
  iItem = New ListViewItem 
  
  
  aHero.myName = firstName & i.ToString 
  
  
  aHero.myAge = System.Math.Round(rd.NextDouble * 100, 0) 
  
  
  aHero.myLike = createLike(i) 
  
  
  iItem.Text = aHero.myName 
  
  
  iItem.Tag = aHero
  
  
  iItem.SubItems.Add(aHero.myAge) 
  
  
  iItem.SubItems.Add(aHero.myLike) 
  
  
  Me.lv1.Items.Add(iItem) 
  
  
  heroList.Add(aHero.myName, aHero) 
  
  
  Next 
  
  
  maxNumber = i
  
  
  If Me.lv1.Items.Count > 0 Then 
  
  
  Me.lv1.Items.Item(0).Checked = True
  
  
  End If 
  
  
  s_flag = False
  
  
  End Sub

名称栏目：VB.NETListView控件经验总结
当前网址：http://www.shufengxianlan.com/qtweb/news36/135736.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容