Cuando quiero buscar algún ejemplo de código para resolver cualquier duda de programación, muchas veces resulta que el código de ejemplo está en CSharp (esta fue una de mis motivaciones al crear este sitio) y depende de los conocimientos de quien busque, muchas veces resulta difícil tener que entender un ejemplo en un lenguaje diferente del que estoy usando para programar.

Muchas veces he recurrido a servicios de conversión de código entre diferentes lenguajes y esto en muchos casos resulta muy útil. Hoy quiero compartir con ustedes dos servicios que realizan esta tarea y lo hacen muy bien: http://www.developerfusion.com/tools/convert/csharp-to-vb/ y http://converter.telerik.com/.

Espero que estos recursos les sean de mucha utilidad.

Son 2400 iconos muy bien diseñados. Realmente espero que les resulten muy útiles.

Descargate el pack aquí

Puedes revisar también este post que publicamos hace un tiempo con otro paquete de iconos.

Es muy importante que la comunidad de usuarios pueda opinar para contribuir a mejorar todas estas herramientas con las que trabajados a diario. La encuesta es anónima, y me gustó mucho que esta orientada especialmente para nosotros los latinos pues hay varias preguntas puntuales sobre las traducciones, la ayuda y los recursos en nuestro idioma. Te recomiendo que la completes para que entre todos colaboremos a mejorar las herramientas en nuestro idioma.

Dale clic a la imagen para acceder a la encuesta. Gracias!

En más de una oportunidad tuve la necesidad de seleccionar mediante código que pagina (TabPage) del control debería ser la que se mostrara, la solución es sencilla pero quizas la estes necesitando en este momento y aquí te la dejo.

Primero necesitaremos un formulario windows, un TabControl y algunos botones dispuestos de forma similar a lo que se ve en la siguiente imagen:

Y ahora en el evento click de cada botón debemos ingresar el siguiente codigo

    Private Sub btnTab1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTab1.Click
        TabControl1.SelectedIndex = 0
    End Sub

    Private Sub btnTab2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTab2.Click
        TabControl1.SelectedIndex = 1
    End Sub

    Private Sub btnTab3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTab3.Click
        TabControl1.SelectedIndex = 2
    End Sub

    Private Sub btnTab4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTab4.Click
        TabControl1.SelectedIndex = 3
    End Sub

Y eso es todo, solo queda ejecutar, probar e implementar donde quieran. Espero que les sirva.

Al ejecutar se verá mas o menos así:

Antes de comenzar acá les dejo algunas definiciones que sería bueno conocer:

DateSerial

Devuelve un valor Date que representa un año, mes y día específicos, con la información de la hora establecida en medianoche (00:00:00).

Datetime.Now

Obtiene un objeto DateTime que se establece en la fecha y hora actual de este equipo, expresada como hora local.

DateAdd

Devuelve un valor de tipo Date que contiene un valor de fecha y hora al que se ha agregado un intervalo de tiempo especificado.

Bueno, sin más rodeos pasemos a los ejemplos. En esta oportunidad de trata de un formulario con una serie de botones y cajas de texto que nos van a informar distintas fecha como por ejemplo, el último día del mes actual o el primer día hábil de un mes, etc. Es muy sencillo y el ejemplo creo que es lo suficientemente claro por lo que no voy a explicarlo. Simplemente presten atención al código y podrán encontrar respuesta a muchas de las dudas que se generan al trabajar con fechas.

Este es el formulario que usaremos para el ejemplo:

y el código es el siguiente:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Fecha Actual
        MsgBox(Now.Date, MsgBoxStyle.OkOnly, "Fecha Actual")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Fecha y Hora Actual
        MsgBox(Now(), MsgBoxStyle.OkOnly, "Fecha y Hora Actual")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Primer Día del Mes
        MsgBox(DateSerial(Now.Year, Now.Month, 1), MsgBoxStyle.OkOnly, "Primer Día del Mes")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'Ultimo día del Mes
        Dim fecha1 As Date = DateAdd(DateInterval.Month, 1, Now.Date)
        MsgBox(DateAdd(DateInterval.Day, -1, DateSerial(fecha1.Year, fecha1.Month, 1)), MsgBoxStyle.OkOnly, "Ultimo día del Mes")
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'Primer Día Hábil
        Dim primerDiaHabil As Date = DateSerial(Now.Year, Now.Month, 1)
        Select Case primerDiaHabil.Date.DayOfWeek
            Case 1 'Domingo
                primerDiaHabil = DateAdd(DateInterval.Day, 1, primerDiaHabil)
            Case 6 'Sabado
                primerDiaHabil = DateAdd(DateInterval.Day, 2, primerDiaHabil)
            Case Else 'De lunes a Viernes
                ' no hace nada
        End Select
        MsgBox(primerDiaHabil, MsgBoxStyle.OkOnly, "Primer Día Hábil")
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'Sumar n Dias a Hoy
        MsgBox(DateAdd(DateInterval.Day, CType(TextBox1.Text, Integer), Now.Date), MsgBoxStyle.OkOnly, "Sumar n Dias a Hoy")
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        'Sumar n Meses a Hoy
        MsgBox(DateAdd(DateInterval.Month, CType(TextBox2.Text, Integer), Now.Date), MsgBoxStyle.OkOnly, "Sumar n Meses a Hoy")
    End Sub

Suerte y espero que les sea de mucha utilidad.

Cada columna del datagridview tiene una propiedad SortMode la cual podemos setear en NoSortable, Automatic o Programmatic. Si nunca cambiamos esta propiedad, estará en Automatic.

El orden funciona de maravilla salvo que queramos ordenar por una columna numérica. Los datos numéricos se ordenan como texto por lo que ese orden no será correcto. A continuación mostraré un ejemplo para que se pueda comprender mejor.

Para el ejemplo necesitamos un formulario y un control datagridview. Agregaremos tres columnas llamadas Nombre, Grupo y Puntuación. Debería verse algo similar a la siguiente imagen:

A continuación agregaremos este código en el Load del formulario para agregar algunos registros:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DataGridView1.Rows.Add(New String() {"Eliseo", "Usuario", 24321})
    DataGridView1.Rows.Add(New String() {"Carlos", "Soporte", 122})
    DataGridView1.Rows.Add(New String() {"Jose", "Usuario", 423})
    DataGridView1.Rows.Add(New String() {"Sebastian", "Supervisor", 1023})
    DataGridView1.Rows.Add(New String() {"Javier", "Usuario", 111})
    DataGridView1.Rows.Add(New String() {"Susana", "Usuario", 1})
    DataGridView1.Rows.Add(New String() {"Verónica", "Supervisor", 24})
    DataGridView1.Rows.Add(New String() {"Gabriela", "Usuario", 65})
    DataGridView1.Rows.Add(New String() {"Agustín", "Usuario", 719})
    DataGridView1.Rows.Add(New String() {"Camila", "Supervisor", 4322})
    DataGridView1.Rows.Add(New String() {"Melisa", "Usuario", 654})
    DataGridView1.Rows.Add(New String() {"Liliana", "Soporte", 22})
End Sub

Ahora, para comprender mejor el funcionamiento, deberían ejecutar el programa y probar ordenar por las tres columnas. Acá les muestro como quedará cuando ordenamos por la columna puntuación:

Bueno, la imagen es muy clara: 1, 1023, 111, 122, 22… no es el orden correcto. Para resolver este problema debemos cambiar el orden de la columna Puntuación de Automatic a Programmatic.

Bueno, esto es solo el primer paso ahora necesito agregar a nuestro formulario una clase nueva donde programaremos el ordenamiento para las columnas numéricas, la clase es la siguiente:

Public Class OrdenarColumnaNumerica
    Implements System.Collections.IComparer

    Private sortOrderModifier As Integer = 1
    Private Col As Integer = 0

    Public Sub New(ByVal sortOrder As SortOrder, ByVal columna As Integer)
        Col = columna
        If sortOrder = sortOrder.Descending Then
            sortOrderModifier = -1
        ElseIf sortOrder = sortOrder.Ascending Then
            sortOrderModifier = 1
        End If
    End Sub

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
        Implements System.Collections.IComparer.Compare

        Dim DataGridViewRow1 As DataGridViewRow = CType(x, DataGridViewRow)
        Dim DataGridViewRow2 As DataGridViewRow = CType(y, DataGridViewRow)

        Return (Math.Sign(CLng(DataGridViewRow1.Cells(Col).Value) - CLng(DataGridViewRow2.Cells(Col).Value))) * sortOrderModifier
    End Function
End Class

Una vez que tenemos nuestra clase para manejar el orden de las columnas numéricas, debemos llamarla desde el evento ColumnHeaderMouseClick del datagridview de la siguiente forma:

    Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseClick

        Static Orden As Integer = 1

        If DataGridView1.Rows.Count > 0 Then
            If DataGridView1.Columns(e.ColumnIndex).Name = "Puntuacion" Then
                If Orden = 1 Then
                    DataGridView1.Sort(New OrdenarColumnaNumerica(SortOrder.Ascending, e.ColumnIndex))
                    Orden = 0
                Else
                    DataGridView1.Sort(New OrdenarColumnaNumerica(SortOrder.Descending, e.ColumnIndex))
                    Orden = 1
                End If
            End If
        End If
    End Sub

Listo! Ahora solo basta ejecutar y probar el programa. Ahora el resultado se verá como en la siguiente imagen correctamente ordenado:

Espero que puedas darle una buena utilidad a esta técnica.

Esta validación la haremos controlando el evento CellValidating del datagridview.

Para el ejemplo vamos a necesitar: un formulario y un datagridview. como se ve en la siguiente imagen:

En el evento load del formulario seteamos la propiedad Dock para que el control ocupe todo el formulario y creamos las columnas para el ingreso de los datos.

DataGridView1.Dock = DockStyle.Fill

DataGridView1.Columns.Add("Nombre", "Nombre")
DataGridView1.Columns.Add("Apellido", "Apellido")
DataGridView1.Columns.Add("Cargo", "Cargo")
DataGridView1.Columns.Add("Categoria", "Categoría")
DataGridView1.Columns.Add("Sueldo", "Sueldo")

Ahora veamos la validación.

El evento que manejamos se llama CellValidating y con un select case vamos a validar los datos dependiendo de que columna es la que se está editando. Esto lo sabemos porque consultamos:

DataGridView1.Columns(e.ColumnIndex).Name

Cuando se ingresa un dato no válido debemos completar la propiedad ErrorTex del row que estamos editando con un mensaje de error, el cual aparecerá a la izquierda y lo leemos al colocar el puntero del mouse sobre el icono rojo que aparece.

veamos el codigo:

Private Sub DataGridView1_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating

        Select Case DataGridView1.Columns(e.ColumnIndex).Name
            'El nombre quiero que sea obligatorio, por eso
            'no lo dejo salir de la celda hasta que lo ingrese
            Case "Nombre"
                If String.IsNullOrEmpty(e.FormattedValue.ToString()) Then
                    DataGridView1.Rows(e.RowIndex).ErrorText = _
                        "El Nombre no puede estar vacío"
                    e.Cancel = True
                End If

            Case "Apellido" 'lo mismo pasa con el apellido, es obligatorio
                If String.IsNullOrEmpty(e.FormattedValue.ToString()) Then
                    DataGridView1.Rows(e.RowIndex).ErrorText = _
                        "El Apellido no puede estar vacío"
                    e.Cancel = True
                End If
            Case "Cargo"
                'En el caso del cargo, tengo cuatro opciones o vacío
                'Si no concueda con ninguna no puede salir
                If e.FormattedValue.ToString() <> "Vendedor" And _
                e.FormattedValue.ToString() <> "Encargado" And _
                e.FormattedValue.ToString() <> "Supervisor" And _
                e.FormattedValue.ToString() <> "Gerente" And _
                e.FormattedValue.ToString() <> "" Then
                    DataGridView1.Rows(e.RowIndex).ErrorText = _
                        "El dato no es válido: ingrese Vendedor o Encargado o Supervisor o Gerente"
                    e.Cancel = True
                Else
                    DataGridView1.Rows(e.RowIndex).ErrorText = String.Empty
                End If
            Case "Categoria"
                If e.FormattedValue.ToString() <> "A" And _
                e.FormattedValue.ToString() <> "B" And _
                e.FormattedValue.ToString() <> "C" And _
                e.FormattedValue.ToString() <> "" Then
                    DataGridView1.Rows(e.RowIndex).ErrorText = _
                        "Categorias permitidas: A, B o C"
                    e.Cancel = True
                Else
                    DataGridView1.Rows(e.RowIndex).ErrorText = String.Empty
                End If
            Case "Sueldo"
                'se valida que sea un dato numérico
                If Not IsNumeric(e.FormattedValue.ToString()) And Not String.IsNullOrEmpty(e.FormattedValue.ToString()) Then
                    DataGridView1.Rows(e.RowIndex).ErrorText = _
                        "Debe ingresar un valor numérico"
                    e.Cancel = True
                Else
                    DataGridView1.Rows(e.RowIndex).ErrorText = String.Empty
                End If
        End Select
    End Sub

Acá les dejo una imagen de como se vería el mensaje de error:

Bueno, como siempre, espero que le puedan dar utilidad y ya saben que pueden mejorar mucho este ejemplo, solo hace falta dedicarle tiempo y ganas!

Primero abrimos (para el ejemplo) un nuevo proyecto con un formulario y le agregamos algunos controles y componentes diseñados como más nos guste… aquí un ejemplo:

Para el ejemplo es más que suficiente.

Luego vamos al explorador de soluciones y abrimos el código del designer. En nuestro caso Form1.designer.vb

En la ventana de código copiamos todo desde la subrutina InitializeComponent() hasta el final de la clase.

Ahora viene lo bueno… agregamos a nuestro proyecto un nuevo formulario y sin hacer nada mas abrimos el designer del nuevo formulario (en mi caso Form2.designer.vb) y reemplazamos el código, que en la siguiente imagen aparece seleccionado por el que anteriormente habíamos copiado.

Listo! al guardar y ver en vista de diseño tendremos un segundo formulario igualito al primero.

Espero que les sea útil.

Pero… a quien no le ha pasado de molestarse cuando todo el tiempo están apareciendo la ventanita y tapa todo el código que uno necesita ver para confirmar, por ejemplo, como era el nombre de esa variable que estoy queriendo usar.

Para resolver esto, presionaba casi enojado la tecla escape para poder ver el resto del código y luego volver a comenzar con las propiedades y el intelliSence.

Ahora a que viene todo esto? es que existe una forma de volver transparente este menú contextual (yo no lo sabía hasta hace muy poco) para poder ver lo que esta debajo del intelliSence. Esto se logra manteniendo presionada la tecla CTRL (control). Si no lo conocías, pruébalo. Te va a gustar!

Aquí les dejo dos imágenes que ejemplifican muy bien este comportamiento:

Si prestan atención, en la segunda imagen se puede apreciar el menú de intelliSense muy transparente (casi invisible) así se verá cuando presionen la tecla control.

Esta funcionalidad esta disponible tanto en Visual Studio 2008 como en Visual Studio 2010.