Lenguaje De Programación .net

CONTROL ListView
Muestra una lista de elementos con iconos. Puede utilizar una vista de lista para crear una interfaz de usuario similar al panel derecho del Explorador de Windows.
MODOS DE VISTA DEL ListView: la propiedad VIEW establece los modos de vista.
* LargeIcon muestra iconos grandes junto al texto de los elementos; si el control es lo suficientemente grande, los elementosaparecen en varias columnas.
* SmallIcon es igual, pero muestra iconos pequeños.
* List muestra iconos pequeños, pero siempre en una sola columna.
* Details muestra los elementos en varias columnas.
PROPIEDADES Y MÉTODOS
GridLines: Muestra las líneas de la cuadrícula alrededor de elementos y subelementos.
FullRowSelect: Indica si al resaltarse el elemento, resaltan los subelementos.Columns.Add: Adiciona columnas mostradas en la vista detalle.
Items.Count: Cantidad de elementos del listview.
Items.RemoveAt : Elimina un elemento del listView de la posición indicada.

APLICACIÓN I: Desarrolle una aplicación que genere elementos aleatorios en un LsitView.

Public Class Form01
Private Sub FRM01_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
'Personalizar el ListView
With ListView1
.View = View.Details 'MOSTRAR DETALLES
.GridLines = True 'MOSTRAR LINEAS
.FullRowSelect = True 'SELECCIONAR FILA
.BackColor = Color.Turquoise 'Color del Grid
.Columns.Add("COL1", 60, HorizontalAlignment.Center)
.Columns.Add("COL2", 60,HorizontalAlignment.Left)
.Columns.Add("COL3", 60, HorizontalAlignment.Left)
.Columns.Add("COL4", 60, HorizontalAlignment.Left)
.Columns.Add("COL5", 60, HorizontalAlignment.Left)
End With
End Sub
Private Sub btnGenerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerar.Click
Dim f, c, n As IntegerDim LstItem As ListViewItem
'generar números aleatorios
ListView1.Items.Clear() 'limpiar la matriz
Randomize()
For f = 0 To 5
n = CInt(Rnd() * 100) 'Generar número
LstItem = ListView1.Items.Add(n) 'Agregar elemento
For c = 0 To 5
n = CInt(Rnd() * 100) 'Generarnúmero
LstItem.SubItems.Add(n) 'Agregar subelementos
Next c
Next f
End Sub
Private Sub btnSuma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuma.Click
Dim suma As Integer = 0 'Suma todos los elementos
Dim f, c As Integer
For f = 0 To 5
For c = 0 To 5
suma =suma + Val(Me.ListView1.Items(f).SubItems(c).Text)
Next
Next
LBLSTOTAL.Text = suma
End Sub
Private Sub btnMAYOR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMAYOR.Click
Dim f, c As Integer
Dim Mayor As Integer = 0
For f = 0 To 5
For c = 0 To 5
IfVal(Me.ListView1.Items(f).SubItems(c).Text) > Mayor Then
Mayor = Val(Me.ListView1.Items(f).SubItems(c).Text)
End If
Next
Next
Me.LBLMAYOR.Text = Mayor
End Sub
End Class
APLICACIÓN#2: Desarrollo un proyecto que permita mostrar una lista de clientes en el CboClientes y productos en el CboProductos. Al seleccionar un producto, deberá mostrar elprecio del producto seleccionado.
* Botón Agregar : Agrega un producto al ListView, validando que el producto no se repita y se haya seleccionado una cantidad.
* Botón Eliminar : Elimina un elemento del ListView.
* Botón Cancelar : Borra todos los elementos del ListView.
‘CODIGO EN VB.NET
Public Class FrmVentas
Dim Suma As Double = 0 'sumador de Importes
Private Sub...