本文整理匯總了VB.NET中System.Windows.Forms.ListViewItem.Selected屬性的典型用法代碼示例。如果您正苦於以下問題：VB.NET ListViewItem.Selected屬性的具體用法？VB.NET ListViewItem.Selected怎麽用？VB.NET ListViewItem.Selected使用的例子？那麽, 這裏精選的屬性代碼示例或許可以為您提供幫助。您也可以進一步了解該屬性所在類System.Windows.Forms.ListViewItem的用法示例。
在下文中一共展示了ListViewItem.Selected屬性的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: InitializeListView
Private Sub InitializeListView()
' Set up the inital values for the ListView and populate it.
Me.ListView1 = New ListView
Me.ListView1.Dock = DockStyle.Top
Me.ListView1.Location = New System.Drawing.Point(0, 0)
Me.ListView1.Size = New System.Drawing.Size(292, 130)
Me.ListView1.View = View.Details
Me.ListView1.FullRowSelect = True
Dim breakfast() As String = New String() {"Continental Breakfast", "Pancakes and Sausage", _
"Denver Omelet", "Eggs & Bacon", "Bagel & Cream Cheese"}
Dim breakfastPrices() As String = New String() {"3.09", "4.09", "4.19", _
"4.79", "2.09"}
PopulateMenu("Breakfast", breakfast, breakfastPrices)
End Sub
Private Sub PopulateMenu(ByVal meal As String, _
ByVal menuItems() As String, ByVal menuPrices() As String)
Dim columnHeader1 As New ColumnHeader
With columnHeader1
.Text = meal & " Choices"
.TextAlign = HorizontalAlignment.Left
.Width = 146
End With
Dim columnHeader2 As New ColumnHeader
With columnHeader2
.Text = "Price"
.TextAlign = HorizontalAlignment.Center
.Width = 142
End With
Me.ListView1.Columns.Add(columnHeader1)
Me.ListView1.Columns.Add(columnHeader2)
Dim count As Integer
For count = 0 To menuItems.Length - 1
Dim listItem As New ListViewItem(menuItems(count))
listItem.SubItems.Add(menuPrices(count))
ListView1.Items.Add(listItem)
Next
' Use the Selected property to select the first item on
' the list.
ListView1.Focus()
ListView1.Items(0).Selected = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
' Create new values for the ListView, clear the list,
' and repopulate it.
Dim lunch() As String = New String() {"Hamburger", _
"Grilled Cheese", "Soup & Salad", "Club Sandwich", "Hotdog"}
Dim lunchPrices() As String = New String() {"4.09", "5.09", _
"5.19", "4.79", "2.09"}
ListView1.Clear()
PopulateMenu("Lunch", lunch, lunchPrices)
Button1.Enabled = False
End Sub