Edicion del ListView en ejecución
Despues de tratar de meter datos a un DataGrid sin muchos resultados, decidi usar un ListView k a mi manera de ver tiene mejor aspecto que el DataGrid k solo son celdas =), aki un pequeño ejemplo con el ListView
Diseñar el Formulario
Al evento Load
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘agregar datos al combo
Me.cbProducto.Items.Add(”Azucar”)
Me.cbProducto.Items.Add(”Arroz”)
Me.cbProducto.Items.Add(”Leche”)
Me.cbProducto.Items.Add(”Chocolate”)
‘configurar el DataView
Me.lvwDetalle.View = View.Details ‘para ver como una factura
Me.lvwDetalle.GridLines = True ‘permite ver las lineas del DataView
Me.lvwDetalle.FullRowSelect = True ‘para seleccionar los lementos relacionados
‘limpiar los items y columnas
Me.lvwDetalle.Items.Clear()
Me.lvwDetalle.Columns.Clear()
‘agregar las cabezeras al DataView
Me.lvwDetalle.Columns.Add(”N°”, 25, HorizontalAlignment.Center)
Me.lvwDetalle.Columns.Add(”Producto”, 112, HorizontalAlignment.Center)
Me.lvwDetalle.Columns.Add(”Cant.”, 45, HorizontalAlignment.Center)
Me.lvwDetalle.Columns.Add(”Precio”, 50, HorizontalAlignment.Center)
Me.lvwDetalle.Columns.Add(”Sub-Total”, 70, HorizontalAlignment.Center)
End Sub
Validar al txtCantidad para no ingresar valores nulos.
Private Sub txtCantidad_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCantidad.KeyUp
If Len(Me.txtCantidad.Text) > 0 Then
Me.btnAgregar.Enabled = True
Else
Me.btnAgregar.Enabled = False
End If
End Sub
Ahora la btnAgregar le agregamos el siguiente código para que lo ponga en el ListView.
Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
Static intX As Integer
Static intPrecio As Double
‘MsgBox(x)
‘rellenar datos al ListView
Me.lvwDetalle.Items.Add(intX + 1)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(Me.cbProducto.Text)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(Me.txtCantidad.Text)
Select Case Me.cbProducto.SelectedIndex
Case 0
Me.lvwDetalle.Items.Item(intX).SubItems.Add(”3.00″)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(FormatNumber(3.0 * Me.txtCantidad.Text, 2))
intPrecio = intPrecio + (3.0 * Me.txtCantidad.Text) ‘guardar el precio
Case 1
Me.lvwDetalle.Items.Item(intX).SubItems.Add(”4.00″)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(FormatNumber(4.0 * Me.txtCantidad.Text, 2))
intPrecio = intPrecio + (4.0 * Me.txtCantidad.Text) ‘guardar el precio
Case 2
Me.lvwDetalle.Items.Item(intX).SubItems.Add(”2.00″)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(FormatNumber(2 * Me.txtCantidad.Text, 2))
intPrecio = intPrecio + (2.0 * Me.txtCantidad.Text) ‘guardar el precio
Case 3
Me.lvwDetalle.Items.Item(intX).SubItems.Add(”1.00″)
Me.lvwDetalle.Items.Item(intX).SubItems.Add(FormatNumber(1.0 * Me.txtCantidad.Text, 2))
intPrecio = intPrecio + (1.0 * Me.txtCantidad.Text) ‘guardar el precio
End Select
‘volver a la normalidad el formulario
Me.cbProducto.SelectedIndex = 0
Me.txtCantidad.Clear()
Me.btnAgregar.Enabled = False
‘mostrar el precio
Me.lblPrecio.Text = “S/. ” & FormatNumber(intPrecio, 2)
‘agregar 1 al contador
intX = intX + 1
End Sub
… y luego ejecutar
