Hoy quiero mostrarles un ejemplo que me ha servido durante mucho tiempo y aún lo sigo utilizando.
Haremos un ejemplo para exportar un DataTable completo a Excel sin importar la cantidad de columnas o filas que este tenga.

Puede que existan muchas formas de realizar esta tarea, pero encuentro realmente útil este método dado que sirve para cualquier versión de excel. Por cuestiones de compatilidad con las nuevas versiones de Excel solo manejaremos 256 columnas.

Lo primero que necesitamos es agregar una referencia a Microsoft.Office.Interop.Excel y lo hacemos de la siguiente forma:

Importar referencia a Excel

Importar referencia Excel

Luego necesitamos un formulario, un botón, un dataGridView y una barra de progreso. Lo podemos disponer como se ve en la imagen:

Formulario aplicación para exportar dataset a excel

Ahora quiero mostrarles todo el código, realmente es sencillo lo más importante es que se adapta a cualquier tabla. Lo van a poder reutilizar sin problemas.

Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.Office.Interop

Public Class Form1
    Private ds As New DataSet

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '//////////////////////////////////////////////////
        '// Creamos la conexión y llenamos el DataGridView
        '//////////////////////////////////////////////////
        Dim cnn As New SqlConnection("Data Source=localhost\sqlexpress;Initial Catalog=Northwind; Integrated Security=True")
        Dim da As New SqlDataAdapter("Select * from customers", cnn)
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)
    End Sub

    Private Sub btnExportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportar.Click
        '/////////////////////////////
        '// Creamos el Objeto Excel
        '/////////////////////////////
        Dim m_Excel
        Dim objLibroExcel
        Dim objHojaExcel
        m_Excel = CreateObject("Excel.Application")
        objLibroExcel = m_Excel.Workbooks.Add()
        objHojaExcel = objLibroExcel.Worksheets(1)
        objHojaExcel.Name = "Customers"
        objHojaExcel.Visible = Excel.XlSheetVisibility.xlSheetVisible
        objHojaExcel.Activate()

        '/////////////////////////////////////////////////////////
        '// Definimos dos variables para controlar fila y columna
        '/////////////////////////////////////////////////////////
        Dim fila As Integer = 1
        Dim columna As Integer = 1

        '/////////////////////////////////////////////////
        '// Armamos la linea con los títulos de columnas
        '/////////////////////////////////////////////////
        objHojaExcel.Range("A1").Select()
        For Each dc In ds.Tables(0).Columns
            objHojaExcel.Range(nombreColumna(columna) & 1).Value = dc.ColumnName
            columna += 1
        Next
        fila += 1

        '/////////////////////////////////////////////
        '// Le damos formato a la fila de los títulos
        '/////////////////////////////////////////////
        Dim objRango As Excel.Range = objHojaExcel.Range("A1:" & nombreColumna(ds.Tables(0).Columns.Count) & "1")
        objRango.Font.Bold = True
        objRango.Cells.Interior.ColorIndex = 35

        objRango.Cells.Borders(Excel.XlBordersIndex.xlDiagonalDown).LineStyle = Excel.XlLineStyle.xlLineStyleNone
        objRango.Cells.Borders(Excel.XlBordersIndex.xlDiagonalUp).LineStyle = Excel.XlLineStyle.xlLineStyleNone
        objRango.Cells.Borders(Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Excel.XlLineStyle.xlLineStyleNone
        objRango.Cells.Borders(Excel.XlBordersIndex.xlEdgeRight).LineStyle = Excel.XlLineStyle.xlContinuous
        objRango.Cells.Borders(Excel.XlBordersIndex.xlEdgeTop).LineStyle = Excel.XlLineStyle.xlContinuous
        objRango.Cells.Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlContinuous

        '//////////////////////////////////////////
        '// Cargamos todas las filas del datatable
        '//////////////////////////////////////////
        ProgressBar1.Maximum = ds.Tables(0).Rows.Count
        columna = 1
        ProgressBar1.Value = 0
        For Each dr In ds.Tables(0).Rows
            columna = 1
            For Each dc In ds.Tables(0).Columns
                objHojaExcel.Range(nombreColumna(columna) & fila).Value = dr(dc.ColumnName)
                columna += 1
            Next
            fila += 1
            ProgressBar1.Value += 1
        Next

        '//////////////////////////////////////
        '// Ajustamos automaticamente el ancho
        '// de todas las columnas utilizada
        '//////////////////////////////////////
        objRango = objHojaExcel.Range("A1:" & nombreColumna(ds.Tables(0).Columns.Count) & ds.Tables(0).Rows.Count.ToString)
        objRango.Select()
        objRango.Columns.AutoFit()

        '/////////////////////////////////////
        '// Le decimos a Excel que se muestre
        '/////////////////////////////////////
        MsgBox("Exportación a Excel completa", MsgBoxStyle.Information, ".:: solovb.net ::.")
        m_Excel.Visible = True

    End Sub

    Public Function nombreColumna(ByVal numero As Integer) As String
        Dim columna(256) As String

        columna(1) = "A"
        columna(2) = "B"
        columna(3) = "C"
        columna(4) = "D"
        columna(5) = "E"
        columna(6) = "F"
        columna(7) = "G"
        columna(8) = "H"
        columna(9) = "I"
        columna(10) = "J"
        columna(11) = "K"
        columna(12) = "L"
        columna(13) = "M"
        columna(14) = "N"
        columna(15) = "O"
        columna(16) = "P"
        columna(17) = "Q"
        columna(18) = "R"
        columna(19) = "S"
        columna(20) = "T"
        columna(21) = "U"
        columna(22) = "V"
        columna(23) = "W"
        columna(24) = "X"
        columna(25) = "Y"
        columna(26) = "Z"
        columna(27) = "AA"
        columna(28) = "AB"
        columna(29) = "AC"
        columna(30) = "AD"
        columna(31) = "AE"
        columna(32) = "AF"
        columna(33) = "AG"
        columna(34) = "AH"
        columna(35) = "AI"
        columna(36) = "AJ"
        columna(37) = "AK"
        columna(38) = "AL"
        columna(39) = "AM"
        columna(40) = "AN"
        columna(41) = "AO"
        columna(42) = "AP"
        columna(43) = "AQ"
        columna(44) = "AR"
        columna(45) = "AS"
        columna(46) = "AT"
        columna(47) = "AU"
        columna(48) = "AV"
        columna(49) = "AW"
        columna(50) = "AX"
        columna(51) = "AY"
        columna(52) = "AZ"
        columna(53) = "BA"
        columna(54) = "BB"
        columna(55) = "BC"
        columna(56) = "BD"
        columna(57) = "BE"
        columna(58) = "BF"
        columna(59) = "BG"
        columna(60) = "BH"
        columna(61) = "BI"
        columna(62) = "BJ"
        columna(63) = "BK"
        columna(64) = "BL"
        columna(65) = "BM"
        columna(66) = "BN"
        columna(67) = "BO"
        columna(68) = "BP"
        columna(69) = "BQ"
        columna(70) = "BR"
        columna(71) = "BS"
        columna(72) = "BT"
        columna(73) = "BU"
        columna(74) = "BV"
        columna(75) = "BW"
        columna(76) = "BX"
        columna(77) = "BY"
        columna(78) = "BZ"
        columna(79) = "CA"
        columna(80) = "CB"
        columna(81) = "CC"
        columna(82) = "CD"
        columna(83) = "CE"
        columna(84) = "CF"
        columna(85) = "CG"
        columna(86) = "CH"
        columna(87) = "CI"
        columna(88) = "CJ"
        columna(89) = "CK"
        columna(90) = "CL"
        columna(91) = "CM"
        columna(92) = "CN"
        columna(93) = "CO"
        columna(94) = "CP"
        columna(95) = "CQ"
        columna(96) = "CR"
        columna(97) = "CS"
        columna(98) = "CT"
        columna(99) = "CU"
        columna(100) = "CV"
        columna(101) = "CW"
        columna(102) = "CX"
        columna(103) = "CY"
        columna(104) = "CZ"
        columna(105) = "DA"
        columna(106) = "DB"
        columna(107) = "DC"
        columna(108) = "DD"
        columna(109) = "DE"
        columna(110) = "DF"
        columna(111) = "DG"
        columna(112) = "DH"
        columna(113) = "DI"
        columna(114) = "DJ"
        columna(115) = "DK"
        columna(116) = "DL"
        columna(117) = "DM"
        columna(118) = "DN"
        columna(119) = "DO"
        columna(120) = "DP"
        columna(121) = "DQ"
        columna(122) = "DR"
        columna(123) = "DS"
        columna(124) = "DT"
        columna(125) = "DU"
        columna(126) = "DV"
        columna(127) = "DW"
        columna(128) = "DX"
        columna(129) = "DY"
        columna(130) = "DZ"
        columna(131) = "EA"
        columna(132) = "EB"
        columna(133) = "EC"
        columna(134) = "ED"
        columna(135) = "EE"
        columna(136) = "EF"
        columna(137) = "EG"
        columna(138) = "EH"
        columna(139) = "EI"
        columna(140) = "EJ"
        columna(141) = "EK"
        columna(142) = "EL"
        columna(143) = "EM"
        columna(144) = "EN"
        columna(145) = "EO"
        columna(146) = "EP"
        columna(147) = "EQ"
        columna(148) = "ER"
        columna(149) = "ES"
        columna(150) = "ET"
        columna(151) = "EU"
        columna(152) = "EV"
        columna(153) = "EW"
        columna(154) = "EX"
        columna(155) = "EY"
        columna(156) = "EZ"
        columna(157) = "FA"
        columna(158) = "FB"
        columna(159) = "FC"
        columna(160) = "FD"
        columna(161) = "FE"
        columna(162) = "FF"
        columna(163) = "FG"
        columna(164) = "FH"
        columna(165) = "FI"
        columna(166) = "FJ"
        columna(167) = "FK"
        columna(168) = "FL"
        columna(169) = "FM"
        columna(170) = "FN"
        columna(171) = "FO"
        columna(172) = "FP"
        columna(173) = "FQ"
        columna(174) = "FR"
        columna(175) = "FS"
        columna(176) = "FT"
        columna(177) = "FU"
        columna(178) = "FV"
        columna(179) = "FW"
        columna(180) = "FX"
        columna(181) = "FY"
        columna(182) = "FZ"
        columna(183) = "GA"
        columna(184) = "GB"
        columna(185) = "GC"
        columna(186) = "GD"
        columna(187) = "GE"
        columna(188) = "GF"
        columna(189) = "GG"
        columna(190) = "GH"
        columna(191) = "GI"
        columna(192) = "GJ"
        columna(193) = "GK"
        columna(194) = "GL"
        columna(195) = "GM"
        columna(196) = "GN"
        columna(197) = "GO"
        columna(198) = "GP"
        columna(199) = "GQ"
        columna(200) = "GR"
        columna(201) = "GS"
        columna(202) = "GT"
        columna(203) = "GU"
        columna(204) = "GV"
        columna(205) = "GW"
        columna(206) = "GX"
        columna(207) = "GY"
        columna(208) = "GZ"
        columna(209) = "HA"
        columna(210) = "HB"
        columna(211) = "HC"
        columna(212) = "HD"
        columna(213) = "HE"
        columna(214) = "HF"
        columna(215) = "HG"
        columna(216) = "HH"
        columna(217) = "HI"
        columna(218) = "HJ"
        columna(219) = "HK"
        columna(220) = "HL"
        columna(221) = "HM"
        columna(222) = "HN"
        columna(223) = "HO"
        columna(224) = "HP"
        columna(225) = "HQ"
        columna(226) = "HR"
        columna(227) = "HS"
        columna(228) = "HT"
        columna(229) = "HU"
        columna(230) = "HV"
        columna(231) = "HW"
        columna(232) = "HX"
        columna(233) = "HY"
        columna(234) = "HZ"
        columna(235) = "IA"
        columna(236) = "IB"
        columna(237) = "IC"
        columna(238) = "ID"
        columna(239) = "IE"
        columna(240) = "IF"
        columna(241) = "IG"
        columna(242) = "IH"
        columna(243) = "II"
        columna(244) = "IJ"
        columna(245) = "IK"
        columna(246) = "IL"
        columna(247) = "IM"
        columna(248) = "IN"
        columna(249) = "IO"
        columna(250) = "IP"
        columna(251) = "IQ"
        columna(252) = "IR"
        columna(253) = "IS"
        columna(254) = "IT"
        columna(255) = "IU"
        columna(256) = "IV"

        Return columna(numero)
    End Function
End Class

Este método me ha servido mucho y espero que a ustedes también… por favor dejen sus comentarios.

Hoy quiero mostrarles como solucionar este pequeño inconveniente.

Los controles de visual basic .net cono el listview nos brindan una cantidad impresionante de propiedades para su configuración, tantas que muchas veces se desconocen.

Quiero mostrarlo con un ejemplo muy sencillo. Para ello necesitaremos un formulario, un control listview y un botón.

Las propiedades que mas nos interesan son las siguientes:

• HideSelection: la establecemos en false para que aunque el control listview no tenga el foco, sigamos viendo cual es el item seleccionado.
• ListView1.FocusedItem.EnsureVisible() para forzar al item seleccionado a estar siempre visible.

Bueno, ahora si el código:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.HideSelection = False
        ListView1.FullRowSelect = True
        ListView1.MultiSelect = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Static i As Integer = 0
        i += 1
        ListView1.Items.Add(New ListViewItem("Item número " & i))
        ListView1.Items(ListView1.Items.Count - 1).Selected = True
        ListView1.Items(ListView1.Items.Count - 1).Focused = True

        ListView1.FocusedItem.EnsureVisible()
    End Sub

Al ejecutarlo debería verse muy parecido a lo que se muestra en esta imagen:

Eso es todo, si te sirvió esta información, por favor, deja un comentario.

Para realizar el ejemplo simplemente necesitamos un formulario y dos botones (abrir y cerrar) como se ve en la imagen:

y el siguiente código:

Public Class Form1
    Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
       (ByVal lpCommandString As String, ByVal lpReturnString As String, _
       ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        AbrirCDROM()
    End Sub

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

    Public Sub AbrirCDROM()
        mciSendString("set CDAudio door open", "", 0, 0)
    End Sub

    Public Sub cerrarCDROM()
        mciSendString("set CDAudio door closed", "", 0, 0)
    End Sub

End Class

Listo! a disfrutarlo y si tienes un bebe… a poner el código dentro de un bucle y a conseguir una cuerda.

coloquemos en un formulario cuatro controles radioButton’s y un control label. Cada control radioButton representará una estación del año y se debería ver muy similar a la siguiente imagen:

Luego de setear la propiedad text de cada control, seleccionamos el primero y cambiamos su propiedad checked a True para que tengamos una opción seleccionada cuanda el programa inicie.

Al hacer doble clic sobre un control radioButton vemos el codigo de la propiedad CheckedChanged la cual se dispara cuando cambia el estado de la propiedad checked.

veamos el código usado para darle funcionalidad a nuestro programa:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mostrar()
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        mostrar()
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        mostrar()
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        mostrar()
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        mostrar()
    End Sub

    Sub mostrar()
        If RadioButton1.Checked Then
            Label1.Text = "Estamos en Otoño"
        End If
        If RadioButton2.Checked Then
            Label1.Text = "Estamos en Invierno"
        End If
        If RadioButton3.Checked Then
            Label1.Text = "Estamos en Primavera"
        End If
        If RadioButton4.Checked Then
            Label1.Text = "Estamos en Verano"
        End If
    End Sub

End Class

El resultado final sería similar a este:

Bueno, realmente es un control muy sencillo de usar, espero que lo puedan incorprar a sus futuros proyectos.

El control ColorDialog nos presenta una paleta de colores tradicional, pero lo cierto es que la de visual studio es mucho más linda y nos muestra todos los colores por su nombre como están definidos en las propiedades del objeto System.Drawing.Color.

Dado el problema de que no existe un control que nos muestre esta lista de colores vamos a ver como podemos constriur una nosotros mismos.

Para el ejemplo necesitaremos un nuevo proyecto y dos formularios.

En el primer formulario solo tendremos un baton para llamar al formulario 2, tal como se ve en la siguiente figura:

y el código del boton es el siguiente:

Private Sub btnColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnColor.Click
Dim vForm2 As New Form2
vForm2.ShowDialog()
End Sub

y en el siguiente formulario pondremos yn control ListBox y dos botoes (aceptar y cancelar) igual que en el siguiente formulario:

En el evento Load del formulario establecemos algunas propiedades del control ListBox y cargamos los nombres de los colores con el siguiente código:

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.DrawMode = DrawMode.OwnerDrawFixed
ListBox1.ItemHeight = 20

ListBox1.Items.Clear()
ListBox1.BeginUpdate()
For Each pi As Reflection.PropertyInfo In GetType(Color).GetProperties(Reflection.BindingFlags.Static Or Reflection.BindingFlags.Public)
ListBox1.Items.Add(pi.Name)
Next
ListBox1.EndUpdate()
End Sub

En la primer linea del Load “ListBox1.DrawMode = DrawMode.OwnerDrawFixed” establecemos que todos los elementos del control se dibujan manualmente y tienen el mismo alto. Esto, ademças, desencadena un suceso DrawItem justo antes de mostrar cada elemento.

Para programar el evento DrawItem del ListBox, seleccionamos (en la vista de diseño) el ListBox1, presionamos F4 para ver las propiedades, y en la parte de arriba del cuadro de propiedades seleccionamos el icono del rayo para ver los evento que el control tiene disponibles, buscamos DrawItem y le damos doble clic. La siguiente imagen ejemplifica como hacerlo:

y este es el código del evento DrawItem

Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
Dim rectangulo As Rectangle = e.Bounds

If (e.State And DrawItemState.Selected) Then
e.Graphics.FillRectangle(SystemBrushes.Highlight, rectangulo)
Else
e.Graphics.FillRectangle(Brushes.White, rectangulo)
End If

Dim nombreColor As String = ListBox1.Items(e.Index)

Dim b As New SolidBrush(Color.FromName(nombreColor))

rectangulo.Inflate(-16, -2)
e.Graphics.FillRectangle(b, New Rectangle(rectangulo.X, rectangulo.Y, 30, rectangulo.Height))

e.Graphics.DrawRectangle(Pens.Black, New Rectangle(rectangulo.X, rectangulo.Y, 30, rectangulo.Height))

If (e.State And DrawItemState.Selected) Then
e.Graphics.DrawString(nombreColor, e.Font, Brushes.White, rectangulo.X + 34, rectangulo.Y + 2)
Else
e.Graphics.DrawString(nombreColor, e.Font, Brushes.Black, rectangulo.X + 34, rectangulo.Y + 2)
End If
End Sub

Ahora solo nos falta programar los eventosde los dos botones como se ve en el siguiente código:

Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
My.Forms.Form1.BackColor = Color.FromName(ListBox1.SelectedItem)
End Sub

Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
Me.Close()
End Sub

Bueno, a probar la aplicación… si todo salió bien, se verá así:

Les dejo algunas definiciones:

Graphics.FillRectangle (Método): Rellena el interior de un rectángulo especificado por un par de coordenadas, un valor de ancho y un valor de alto.

Graphics.DrawRectangle (Método): Dibuja un rectángulo especificado por un par de coordenadas, un valor de ancho y un valor de alto.

Graphics.DrawString (Método): Dibuja la cadena de texto especificada en la ubicación especificada y con los objetos Brush y Font especificados.

Espero que les sirva y lo puedan usar en sus proyectos.

Solo necesitamos un formulario, un boton y un componente colorDialog para este ejemplo. y en el evento click del botçon copiamos el siguiente codigo:

If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
      Me.BackColor = ColorDialog1.Color
End If

El resultado se muestra en la siguiente imagen.

Espero que les sirva.

Para el ejemplo necesitaremos un formulario con dos cuadros de texto, un botón yn componente OpenFileDialog. Como se ve en la figura siguiente:

En el evento Load del formulario realizamos unas pocas configuraciones para los controles:

txtNombre.ReadOnly = True
txtContenido.ScrollBars = ScrollBars.Vertical
OpenFileDialog1.Filter = "Archivos de Texto |*.txt"
OpenFileDialog1.Title = "Abrir archivo de texto"
OpenFileDialog1.Multiselect = False

y en el evento click del botón copiamos el siguiente código:

OpenFileDialog1.Filter = "Archivos de Texto |*.txt"
OpenFileDialog1.Title = "Abrir archivo de texto"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    txtNombre.Text = OpenFileDialog1.FileName
    Dim objReader As System.IO.StreamReader
    objReader = File.OpenText(OpenFileDialog1.FileName)
    txtContenido.Text = objReader.ReadToEnd
End If

finalmente para que el código funcione no se olviden de importar el espacio de nombre:

Imports System.IO

Es un ejemplo muy fácil de realizar y muy básico. El código a analizar el realmente poco, así que no voy a hacer demasiados comentarios.
Como siempre, espero que les sirva y lo puedan utilizar y personalizar como deseen.

Necesitaremos un formulario con un listview y dos botones:

Ahora, llenaremos el listview con algunos datos para el ejemplo y lo haremos en el evento Load del mismo:


ListView1.Items.Add("Carlos")
ListView1.Items.Add("Marcelo")
ListView1.Items.Add("Damian")
ListView1.Items.Add("Susana")
ListView1.Items.Add("Gerardo")
ListView1.Items.Add("Claudia")
ListView1.Items.Add("Marta")
ListView1.Items.Add("Liliana")
ListView1.Items.Add("Eliseo")
ListView1.Items.Add("Agustin")
ListView1.Items.Add("Camila")
ListView1.Items.Add("Lucas")
ListView1.Items.Add("Jorge")
ListView1.Items.Add("Mabel")
ListView1.Items.Add("Natalia")
ListView1.Items.Add("Gabriela")
ListView1.Items.Add("Paula")
ListView1.Items.Add("Matias")
ListView1.Items.Add("Martin")
ListView1.Items.Add("Juan")
ListView1.Items.Add("Maria")
ListView1.Items.Add("Abel")
ListView1.Items.Add("Pedro")

ListView1.FullRowSelect = True
ListView1.MultiSelect = False

ListView1.HideSelection = False

Notese que también hemos seteado tres propiedades muy importantes: FullRowSelect = True para que al seleccionar un item se marque toda la fila, MultiSelect = False para que solo se pueda seleccionar de a un item y HideSelection = False para que siempre veamos que item está seleccionado.

Luego en el evento click del botón SUBIR:

If ListView1.SelectedIndices.Count > 0 Then
Try
Dim temporal As String
temporal = ListView1.Items(ListView1.FocusedItem.Index - 1).Text

ListView1.Items(ListView1.FocusedItem.Index – 1).Text = ListView1.FocusedItem.Text
ListView1.FocusedItem.Text = temporal

ListView1.Items.Item(ListView1.FocusedItem.Index – 1).Selected = True
ListView1.Items.Item(ListView1.FocusedItem.Index – 1).Focused = True

Catch ex As Exception
Beep()
End Try
Else
MsgBox(“Debe seleccionar un item de la lista.”)
End If

y en el evento click del botón BAJAR:

If ListView1.SelectedIndices.Count > 0 Then
Try
Dim temporal As String
temporal = ListView1.Items(ListView1.FocusedItem.Index + 1).Text

ListView1.Items(ListView1.FocusedItem.Index + 1).Text = ListView1.FocusedItem.Text
ListView1.FocusedItem.Text = temporal

ListView1.Items.Item(ListView1.FocusedItem.Index + 1).Selected = True
ListView1.Items.Item(ListView1.FocusedItem.Index + 1).Focused = True

Catch ex As Exception
Beep()
End Try
Else
MsgBox(“Debe seleccionar un item de la lista.”)
End If

Esto es todo, pueden ejecutar el programa y probar como funciona. Les dejo una captura del progrma en funcionamiento:

Espero que, como a mi, les sea muy útil.

Nuestro reporte tiene el siguiente aspecto:

Seleccionamos la fila de los datos (la del medio) y haciendo clic con el botón derecho del mouse, desplegamos el menú contextual y seleccionamos Insertar Grupo.

Esto nos abrirá una ventana de propiedades de agrupación y ordenación. Para crear un grupo (en mi caso voy a agrupar los productos por marca) seleccionamos el campo que contiene el dato desde la lista desplegable de Expresión para la sección Agrupar por:

Al presionar aceptar en el cuadro anterior, vemos que nos agregó una fila antes y otro despues de la fila de los datos. Estas filas son el encabezado y pie de grupo.

En mi caso me pareció útil combinar las celdas del encabezado de grupo por si alguna marca tiene un nombre muy largo.

Sobre la fila de los encabezados de grupo arrastro y suelto el campo marca desde el panel de origenes de datos.

Para el pie de grupo, en la columna precio arrastro y suelto desde elk panel origenes de datos el campo precio. La diferencia es que al soltarlo sobre una celda de grupo le coloca automaticamente la función SUM por lo que el resultado será la suma de los precios de los artículos de ese grupo.  Para que el total del grupo tenga el mismo formato que los precios individuales, puedo agregar la funcion FORMAT igual que en la celda de arriba.

Bueno, aquí esta el reporte… la verdad que quedó bastante lindo…

Espero que les guste y por sobre todo que lo puedan usar en sus proyectos. Dejen sus comentarios, gracias.

Abrimos el reporte sobre el cual trabajaremos, se verá más o menos como este:

Lo primero que tenemos que hacer es verificar si tenemos visibles las dos barras de herramientas que necesitaremos para darle formato al informe, ellas son: “Bordes del informe” y “Formato del informe”. Si no están visibles las podemos habilitar desde Ver/Barras de Herramientas.

Para cambiar el color de alguna celda de la tabla, seleccionamos la celda y desplegamos la ventana Color de fondo desde la barra de herramientas Formato del informe. En ella tenemos atodos los colores web que usamos normalmente en los formularios windows.

También podemos aplicarle formato de borde a cualquier celda de la tabla desde la barra de herramientas Bordes del informe.

Podemos aplicar el tipo de letra a varias celdas al mismo tiempo seleccionando varias celdas y aplicando el formato.

Es muy útil la opción de combinar celdas. Seleccionamos más de una celda de una misma fila y desde el menu contextual (el que se abre al presionar clic con el botón derecho del mouse) seleccionamos la opción Combinar celdas.

Para cualquier texto que querramos que aparesca en el informe utilizamos un Cuadro de Texto.

Por defecto, al colocar en la tabla un campo numérico, este se alinea hacia la derecha. Si lo deseamos esto se puede cambiar utilizando la barra de formato. En nuestro caso utilizaremos la función Format para dar formato numérico al precio. Botónderecho sobre la celda Precio y seleccionamos Expresión…

El cuadro Editar expresión es muy completo, te recomiendo que le des una mirada, Usamos la función Format con el formato “Fixed” que nos monstrará los números con dos decimales.

Así se debería ver el informe terminado:

Espero que les sirva y no se olviden que esta es una base, de ustedes depende poder potenciar mucho más estas herramientas poniendo dedicación y talento.