Listview El control ListView de formularios Windows Forms 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. El control tiene cuatro modos de vista: LargeIcon, SmallIcon, List y Details. El modo LargeIcon muestra iconos grandes junto al texto de los elementos; si el control es lo suficientemente grande, los elementos aparecen en varias columnas. El modo SmallIcon es igual, pero muestra iconos pequeños. El modo List muestra iconos pequeños, pero siempre en una sola columna. El modo Details muestra los elementos en varias columnas. La propiedad clave del control ListView es Items, que contiene los elementos que muestra el control. La propiedad SelectedItems contiene la colección de elementos seleccionados actualmente en el control. Si la propiedad MultiSelect se establece en true, el usuario puede seleccionar varios elementos, por ejemplo, para arrastrar y colocar en otro control varios elementos a la vez. Si la propiedad CheckBoxes se establece en true, el control ListView puede mostrar casillas de verificación junto a los elementos.La propiedad Activation determina el tipo de acción que debe realizar el usuario para activar los elementos de la lista: las opciones son Standard, OneClick y TwoClick. La activación OneClick necesita un solo clic para activar el elemento. La activación TwoClick requiere que el usuario haga doble clic para activar el elemento; un solo clic cambia el color del texto del elemento. La activación Standard requiere que el usuario haga doble clic para activar un elemento, pero la apariencia del elemento no cambia. Empleando la BDD BDventas(Clientes, Fac_cabe, Fac_deta,artículos) realizar el formulario:
Listbox1
LISTVIEW1
Configurando el ListView
Codificacion del Formulario Imports System.data Imports System.Data.SqlClient Public Class Form1 Dim cn As New SqlConnection("Server=localhost;Integrated Security=SSPI;database=ventas") Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Mostrar los empleados Dim da As New SqlDataAdapter("Select cod_emp,nombre from empleado", cn) Dim tbl As New DataTable da.Fill(tbl) ListBox1.DataSource = tbl ListBox1.DisplayMember = "nombre" ListBox1.ValueMember = "cod_emp" Call formatoListview1() End Sub Sub formatoListview1() 'dando formato al listview With ListView1 .Items.Clear() .View = View.Details .Columns.Add("Factura", 80, HorizontalAlignment.Left) .Columns.Add("Sub Total", 80, HorizontalAlignment.Left) .Columns.Add("Igv", 80, HorizontalAlignment.Left) .Columns.Add("Total", 80, HorizontalAlignment.Left) .GridLines = True .FullRowSelect = True End With End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged 'Mostrar las 5 ordenes con mayor igv Try 'controlador de errores Dim codigo As String = ListBox1.SelectedValue Dim cadsql As String = "Select top 5 Num_fact,sub_total,igv,total " & _ " from facturas Where cod_emp=@codigo" Dim cmd As New SqlCommand(cadsql, cn) cmd.CommandType = CommandType.Text cn.Open() cmd.Parameters.Add("@codigo", SqlDbType.Char, 5).Value = codigo
Dim dr As SqlDataReader = cmd.ExecuteReader If dr.HasRows = True Then ListView1.Items.Clear() Dim LstItem As ListViewItem
While dr.Read LstItem = ListView1.Items.Add(dr(0).ToString) LstItem.SubItems.Add(dr(1).ToString) LstItem.SubItems.Add(dr(2).ToString) LstItem.SubItems.Add(dr(3).ToString) End While End If lblcantreg.Text = ListView1.Items.Count Catch ex As Exception Finally cn.Close() End Try End Sub Private Sub ListView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.Click 'Mostrando los datos de la columna With ListView1 Dim factura As String = .Items.Item(.SelectedIndices(0)).Text Dim subtotal As String = .Items.Item(.SelectedIndices(0)).SubItems(1).Text MessageBox.Show(factura & " - " & subtotal) End With End Sub End Class Las Tablas de la base de datos Ventas CREATE TABLE Empleado( cod_emp char(5) Not NULL , nombre varchar(25) Not NULL , cargo varchar(20) NULL , )
CREATE TABLE Facturas ( num_fact char(6) Not Null, cod_emp char(5), cod_cli char(5), sub_total decimal(8,2), igv decimal(8,2), total decimal(8,2), fecha datetime,
) Llenar datos consistentes
AddHandler (Instrucción) Asocia un evento a un controlador de eventos en tiempo de ejecución. AddHandler event, AddressOf eventhandler
Partes event
Nombre del evento que se va a controlar.
Eventhandler Nombre del procedimiento que controlará el evento. Comentarios Las instrucciones AddHandler y RemoveHandler permiten iniciar y detener el controlador del evento en cualquier momento de la ejecución del programa. La firma del procedimiento eventhandler debe coincidir con la firma del evento event. La palabra clave Handles y la instrucción AddHandler permiten especificar que ciertos procedimientos controlen eventos determinados, pero hay diferencias entre ambos. La instrucción AddHandler conecta los procedimientos a los eventos en tiempo de ejecución. Utilice la palabra clave Handles al definir un procedimiento para especificar que controla un evento determinado. Para obtener más información, vea Handles.
En los eventos personalizados, la instrucción AddHandler invoca al descriptor de acceso AddHandler del evento. Para obtener más información sobre eventos personalizados, vea Event (Instrucción). Ejemplo Sub TestEvents() Dim Obj As New Class1 ' Associate an event handler with an event. AddHandler Obj.Ev_Event, AddressOf EventHandler ' Call the method to raise the event. Obj.CauseSomeEvent() ' Stop handling events. RemoveHandler Obj.Ev_Event, AddressOf EventHandler ' This event will not be handled. Obj.CauseSomeEvent() End Sub Sub EventHandler() ' Handle the event. MsgBox("EventHandler caught event.") End Sub Public Class Class1 ' Declare an event. Public Event Ev_Event() Sub CauseSomeEvent()
' Raise an event. RaiseEvent Ev_Event() End Sub End Class RemoveHandler (Instrucción) Quita la asociación entre un evento y un controlador de eventos. RemoveHandler event, AddressOf eventhandler Partes event Nombre del evento que se va a controlar. eventhandler Nombre del procedimiento que controla actualmente el evento. Comentarios Las instrucciones AddHandler y RemoveHandler permiten iniciar y detener el control del evento de un evento específico en cualquier momento de la ejecución del programa. Para los eventos personalizados, la instrucción RemoveHandler llama al descriptor de acceso RemoveHandler del evento. Para obtener más información sobre eventos personalizados, vea Event (Instrucción). Ejemplo Sub TestEvents() Dim Obj As New Class1 ' Associate an event handler with an event. AddHandler Obj.Ev_Event, AddressOf EventHandler ' Call the method to raise the event. Obj.CauseSomeEvent() ' Stop handling events. RemoveHandler Obj.Ev_Event, AddressOf EventHandler ' This event will not be handled. Obj.CauseSomeEvent() End Sub
Sub EventHandler()
' Handle the event. MsgBox("EventHandler caught event.") End Sub
Public Class Class1 ' Declare an event. Public Event Ev_Event() Sub CauseSomeEvent() ' Raise an event. RaiseEvent Ev_Event() End Sub End Class
Veamos un ejemplo con el llenado de datos en un ComboBox, mediante el evento form1_load, y llamando a la vez al evento SelectedIndexChanged del ComboBox. Al momento de llenar el ComboBox1 en el evento Form1_Load, usted evitara llamar al evento SelectedIndexChanged con la finalidad de mostrar datos erróneos, debido a que se esta asignando objetos y campos en sus propiedades. Imports System.Data Imports System.Data.Sqlclient Public Class Form1 Dim cn As New SqlConnection("Server=localhost;Integrated Security=SSPI;database=NorthWind") Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MostrarOrdenes() End Sub Sub MostrarOrdenes() RemoveHandler ComboBox1.SelectedIndexChanged, _ AddressOf ComboBox1_SelectedIndexChanged Dim da As New SqlDataAdapter("Select CustomerID,CompanyName From Customers", cn) Dim tbl As New DataTable
da.Fill(tbl) ComboBox1.DataSource = tbl ComboBox1.DisplayMember = "CompanyName" ComboBox1.ValueMember = "CustomerID" AddHandler ComboBox1.SelectedIndexChanged, _ AddressOf ComboBox1_SelectedIndexChanged End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim da As New SqlDataAdapter("Select OrderID From Orders Where CustomerID='" & ComboBox1.SelectedValue & "'", cn) Dim tbl As New DataTable da.Fill(tbl) ListBox1.DataSource = tbl ListBox1.DisplayMember = "OrderID" End Sub End Class
