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í:

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.

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.

Además de Kryton Toolkit (los controles gratis), ComponentFactory cuenta con otros controles de pago que te pueden resultar muy útiles:

Para más información visita: http://www.componentfactory.com

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.

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</code>

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.

Cada control tiene una propiedad TabIndex encargada de determinar en que órden el control recibirá el foco si se cambia de un control a otro utilizando la tecla TAB. Esta propiedad se puede ir cambiando una a una, pero así da mucho trabajo. Es mucho más fácil como se muestra en la imagen.

Debes activar el ícono “Orden de tabulación” el que se muestra en el círculo rojo y aparecerá un numerico al lado de cada control. Lo que tienes que hacer ahora es dar un clic en cada control en el mismo orden que quieres que lo haga cuando presiones la tecla TAB. Al terminar solo desactiva el botón en la barra de herramientas y listo.

Debería quedar mas o menos así:

Los controles como las etiquetas que no pueden recibir el foco no son importantes y los puedes ignorar.

Espero que les sirva!