VideoCurso 16 VB.NET - Listview

Pin It

El dia de hoy veremos el uso de listview o lista de vista tambien conocido con el nombre de grilla . El listview tiene un parecido con las cuadros de excel .

Listview parte 1

Listview parte 2

BOTON AGREGAR :

Private Sub btnagregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnagregar.Click



Dim contadordefilas As Integer = lvestudiantes.Items.Count

lvestudiantes.Items.Add(txtalumno.Text)


lvestudiantes.Items.Item(contadordefilas).SubItems.Add(txtprofesor.Text)
lvestudiantes.Items.Item(contadordefilas).SubItems.Add(txtcurso.Text)
lvestudiantes.Items.Item(contadordefilas).SubItems.Add(txtpromedio.Text)


If Val(lvestudiantes.Items.Item(contadordefilas).SubItems(3).Text) >= 5 Then
lvestudiantes.Items.Item(contadordefilas).SubItems.Add("SI APRUEBA")

Else
lvestudiantes.Items.Item(contadordefilas).SubItems.Add("NO APRUEBA")
End If



End Sub

CALCULO DE EL NUMERO DE FILAS EN UN LISTVIEW

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(lvestudiantes.Items.Count)
End Sub

AGREGANDO UN VALOR EN CUALQUIER CELDA

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


For i = 0 To 6

'PRIMERA COLUMNA
lvestudiantes.Items.Add("")
'SEGUNDA COLUMNA
lvestudiantes.Items.Item(i).SubItems.Add("")
'TERCERA COLUMNA
lvestudiantes.Items.Item(i).SubItems.Add("")
'CUARTA COLUMNA
lvestudiantes.Items.Item(i).SubItems.Add("")
'QUINTA COLUMNA
lvestudiantes.Items.Item(i).SubItems.Add("")

Next

lvestudiantes.Items.Item(2).SubItems(2).Text = "Fisica"


End Sub