Contar los elementos de una listview

Imports System.IO Public Class Form1 Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter() Dim ligne As Integer Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Using fs As New System.IO.FileStream("sauvegarde.txt", IO.FileMode.Create) bf.Serialize(fs, New ArrayList(ListView1.Items)) End Using End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Button1.Text = "Agregar ítem" Button2.Text = "Eliminar ítem" Button3.Text = "Abrir Form2" Button4.Text = "Guardar datos" Label4.Text = "Ítems seleccionados" 'El ListView1 existe ListView1.View = View.Details ListView1.CheckBoxes = True ListView1.Columns.Add("Nombre", 80, HorizontalAlignment.Left) ListView1.Columns.Add("Apellido", 80, HorizontalAlignment.Left) ListView1.Columns.Add("Año de nacimiento", 100, HorizontalAlignment.Left) Try If File.Exists("sauvegarde.txt") Then Using fs As New System.IO.FileStream("sauvegarde.txt", IO.FileMode.Open) ListView1.Items.AddRange(bf.Deserialize(fs).ToArray(GetType(ListViewItem))) End Using End If Catch End Try End Sub 'agregar ítem Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If Textnom.Text = "" Or Textprenom.Text = "" Or Textnaissance.Text = "" Then Exit Sub Dim MyLine As ListViewItem = New ListViewItem(New String() {Textnom.Text, Textprenom.Text, Textnaissance.Text}) ListView1.Items.Add(MyLine) End Sub 'eliminar ítem Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click If ListView1.SelectedItems.Count > 0 Then ListView1.Items.RemoveAt(ligne) End If End Sub 'selección de línea Private Sub ListView1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListView1.SelectedIndexChanged If ListView1.SelectedItems.Count > 0 Then ligne = ListView1.SelectedItems(0).Index End If End Sub 'verificación por ítem Private Sub ListView1_ItemChecked(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked If ListView1.Items.Count > 0 Then ' si listview1 no está vacío For j = 0 To ListView1.Items.Count - 1 ' colorear según estado de verificación por ítem ListView1.Items(j).ForeColor = IIf(ListView1.Items(j).Checked = False, Color.Black, Color.Red) Next j Label4.Text = ListView1.CheckedItems.Count & " seleccionado" & IIf(ListView1.CheckedItems.Count > 1, "s", "") 'contar los ítems seleccionados End If End Sub 'abrir Form2 Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click Form2.ShowDialog() End Sub 'guardar datos Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click Using fs As New System.IO.FileStream("sauvegarde.txt", IO.FileMode.Create) bf.Serialize(fs, New ArrayList(ListView1.Items)) End Using End Sub End Class 

Imports System.IO Public Class Form2 Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter() Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 'El ListView1 existe ListView1.View = View.Details ListView1.CheckBoxes = True ListView1.Columns.Add("Nombre", 80, HorizontalAlignment.Left) ListView1.Columns.Add("Apellido", 80, HorizontalAlignment.Left) ListView1.Columns.Add("Año de nacimiento", 100, HorizontalAlignment.Left) ListView1.Items.Clear() Try If File.Exists("sauvegarde.txt") Then Using fs As New System.IO.FileStream("sauvegarde.txt", IO.FileMode.Open) ListView1.Items.AddRange(bf.Deserialize(fs).ToArray(GetType(ListViewItem))) End Using End If Catch End Try End Sub End Class

 Dim ligne As Integer 'selección línea Private Sub ListView1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListView1.SelectedIndexChanged If ListView1.SelectedItems.Count > 0 Then ligne = ListView1.SelectedItems(0).Index End If End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim variable1 As String = ListView1.Items(ligne).Text Dim variable2 As String = ListView1.Items(ligne).SubItems(1).Text Dim variable3 As String = ListView1.Items(ligne).SubItems(2).Text ' Haz lo que quieras con las variables End Sub