Formato de un ListView

En este post cargaremos un Listview en modo de ejecución, como se ve en la imagen:

El codigo para esto es el siguiente:

Private Sub Form2_Load(ByVal sender As System.Object,_
ByVal e As System.EventArgs)Handles MyBase.Load
 'formato del ListView1
 With ListView1
     .View = View.Details
     .GridLines = True
     .FullRowSelect = True
     .CheckBoxes = True
     .Columns.Add("IdCliente", 80, _
                    HorizontalAlignment.Left)
     .Columns.Add("NombreCompañia", 220, _
                    HorizontalAlignment.Left)
 End With
'Aqui viene mas codigo de como insertar los datos al ListView
End Sub

Propiedades utilizadas:

1. La propiedad .View nos muestra el listviewcomo se va mostrar el listview.


2. La propiedad .GridLines no muestra un formato de grillas, como un el de un DataGridView.


3. La propiedad .FullRowSelect no permite seleccionar varios items del listview.


4. La propiedad .CheckBoxes permite insertar checkboxs a listview.


5. La propiedad .Columns.Add(encabezado,longitud,alineación) nos permite agregar columnas al listview dandole un encabezado o titulo,la longitud y la alineación del contenido de la columna.

Guardar datos en un ListBox

Como anteriormente ya deje un post para ver como se guardan datos en un ComboBox; ahora veremos como guardar datos en un listbox.

Primeramente veremos las propiedades mas comunes que utilizaremos y son:

• DataSource: nos permite guardas valores de un DataTable


• DisplayMenber: nos permite guardar un capo al igual que el combobox


• ValueMenber: nos permite guardar otro campo.

Aplicacion: Mostrar los productos por categoria en un DataGridView para eso guarderemos los productos en un listbox y al hacer click en uno de ellos mostrarlos.

Nota: Utilizaremos una conexion a SqlClient

'importamos los elementos
Imports System.data
Imports System.Data.SqlClient   'Proveedor de Sql Server

Public Class Form1
   'Paso 1: Creando la cadena de conexion
   Dim cad as tring = "Server=(local);IntegratedSecurity=SSPI;Database=Neptuno"
   Dim cn As New SqlConnection(cad)

'evento load del form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Paso 2: Listando los datos en el ListBox
    Dim strsql As String = "Select idproducto,nombreproducto From productos"
    Dim da As New SqlDataAdapter(strsql, cn)
    'creando una tabla en memoria
    Dim tbl As New DataTable
    'copiando los datos del DataAdapter al DataTable
    da.Fill(tbl)
    'Mostrando los datos en el ListBox
    ListBox1.DataSource = tbl
    ListBox1.DisplayMember = "nombreproducto"
    ListBox1.ValueMember = "idproducto"
    LBLCANTIDAD.Text = ListBox1.Items.Count
End Sub
End Class

Funciones y procedimeintos en vb.net

Los procedimientos som proceso que no devuelven un valor especifico, esta es la sintaxis:

Sub N0mbredelProcedimiento()
cuerpo
End sub

Aqui les va un ejemplo: Crear un procedimiento que permita limpiar los TextBox de un formulario.

Sub limpiar()
   Dim obj As Object
   For Each obj In Me.Controls
      If TypeOf obj Is TextBox Then
          obj.text = ""
      End If
   Next
End Sub

El For Each nos ayuda a buscar los objetos que son TextBox y los limpia.

NOTA: Los TextBox que esten dentro de de un groupbox no se limpiaran por que los toma fuera del formulario.

En cambio las funciones davuelven un valor específico y puede recibir parametros.

EJEMPLO: Crear una funcion que devuelven la suma de dos numeros que se reciben como parametros.

Function suma(ByVal x As Integer,ByVal y As Integer) As Integer
     Dim suma As Integer
     suma = x + y
     Return suma
End Function

Los parametros son: x, y (valores enteros) y el valor a retornar es: suma.