
En este sencillo tutorial veremos el código necesario para colorear celdas, filas o columnas de una datagridview según sus valores cambiando el color de fondo.

Suponemos que ya tenemos una datagrid con datos obtenidos, por ejemplo, desde una base de datos.

```vb
Private Sub DataGridView_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView.CellFormatting
Try
    If Me.DataGridView.Columns(e.ColumnIndex).Name = "DataGridViewTextBoxColumn7" Then
        If e.Value IsNot Nothing Then
            Dim valor As Integer = CType(e.Value, Integer)
                If (valor >= 100) Then
                    e.CellStyle.BackColor = Color.Yellow
                End If
            End If
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub
```

Si deseamos colorear alguna casilla o celda según su valor, debemos llamar al método CellFormatting del objeto DatagridView. Este método se llama cada vez que se pinta la celda por pantalla.

A continuación, comprobaremos que el nombre de la celda coincide con el nombre de la columna, y si es el caso, procederemos a obtener el valor que hay en ese campo. Es importante convertir el tipo de dato que contiene la celda al tipo que nosotros deseemos con el método **CType("valor", tipo)**, ya que sinó saltará una excepción.

En nuestro ejemplo, se comprobará si la celda contiene un entero mayor o igual a 100. Si es el caso, pintaremos la casilla de color amarillo.


Cómo colorear celdas de una tabla (datagridview) en VB.NET

Colorear celdas de una tabla en VB.NET

colorear-celdas-de-una-tabla-en-vb-net


En este ejemplo veremos cómo crear un thread en vb.net en el que ejecutaremos una función en modo background mientras seguimos con la ejecución principal del programa.

Primero hay que importar la librería System.Threading (antes de iniciar la clase).

Imports System.Threading

Dentro de la clase definimos los atributos que contendrán el Thread y la función que invocará.

```vb
Dim nuestroThread As Thread
Dim nuestroThreadStart As New ThreadStart(AddressOf ActualizacionesBackground)
Dim CallFuncionGenerar As New MethodInvoker(AddressOf Me.FuncionGenerar)
```

Dentro de Form_Load (la función que se llama al cargar la aplicación) podemos asignar el thread en modo background para que no interfiera con el curso principal del programa, e iniciarlo con el método Start.

```vb
nuestroThread = New Thread(nuestroThreadStart)
nuestroThread.IsBackground = True
nuestroThread.Name = "nuestroThread"
nuestroThread.Start()
```

Al iniciar, el thread llamará a una función llamada ActualizacionesBackground creada por nosotros mismos, en dónde, por ejemplo, se puede escribir un bucle que espere cada X tiempo a llamar la función que queramos.

```vb
While True
    Me.BeginInvoke(CallFuncionGenerar)
    Thread.Sleep(15000)
End While
```

## Código Completo

```vb
Imports System.Threading
Public Class Form1
    Dim nuestroThread As Thread
    Dim nuestroThreadStart As New ThreadStart(AddressOf ActualizacionesBackground)
    Dim CallFuncionGenerar As New MethodInvoker(AddressOf Me.FuncionGenerar)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            nuestroThread = New Thread(nuestroThreadStart)
            nuestroThread.IsBackground = True
            nuestroThread.Name = "nuestroThread"
            nuestroThread.Start()
        Catch ex As Exception
        End Try
    End Sub

    Public Sub FuncionGenerar()
        Me.Active_guestsTableAdapter.Fill(Me.FontreactorDataSet.active_guests)
    End Sub

    Public Sub ActualizacionesBackground()
        While True
            Me.BeginInvoke(CallFuncionGenerar)
            Thread.Sleep(15000)
        End While
    End Sub

End Class
```

El ejemplo es muy básico. Pero sirve para entender el comportamiento de los threads en vb.net.


Threads en VB.NET

threads-en-vb-net


## VB.net y MySQL

En este tutorial se mostrará cómo crear una tabla (_datagridview_) para mostrar datos en Visual Studio 2008 conectando a una base de datos MySql.

## Conectar a MySQL desde Visual Studio 2008

Antes de nada es necesario instalar un driver para poder realizar conexiones desde VS a MySQL. Podemos descargar la última versión del conector .NET en la página oficial de [MySQL](http://dev.mysql.com/downloads/connector/net/).

## Añadir un Datasource

Después de instalar el driver abrimos Visual Studio y creamos un nuevo proyecto (WindowsFormApplication). Pulsamos en el menú Data > Add new Datasource. El asistente nos pregunta de dónde queremos obtener la información. Pulsamos sobre el icono Database y en la siguiente pantalla sobre New Connection. Si se ha instalado el driver correctamente, nos aparecerá la opción de MySQL Database. La seleccionamos y pulsamos aceptar. Rellenamos con los datos adecuados para conectarnos a la base de datos MySQL (servidor, nombre de usuario, password, guardar password y nombre de la base de datos sobre la que trabajaremos). Finalmente nos pregunta si deseamos incluir la contraseña en la connection string. Para este ejemplo seleccionamos que sí.

Tras haber realizado la conexión satisfactoriamente, el asistente nos pregunta que objetos de la base de datos deseamos escojer. Seleccionamos todas las tablas que necesitemos (más adelante se podrán quitar o añadir nuevas tablas) y asignamos un nombre descriptivo al Dataset. Pulsamos finalizar y en la ventana de data sources, vemos que ya se ha agregado.

## DatagridView

Ahora rellenaremos una tabla con información de la base de datos. Para ello arrastramos el control DatagridView del panel de controles al formulario. Automáticamente se abre un menú contextual con distintas tareas que podemos realizar sobre el datagridview, o si lo preferimos se pueden acceder a las mismas opciones desde las propiedades del control. En las propiedades del DatagridView, buscamos la opción Datasource y en el desplegable pulsamos sobre Other Data Sources > Project Data Sources > El Dataset que hemos creado con el asistente y finalmente la tabla que deseamos mostrar en la datagrid.

Al realizar esta asignación se han creado varios elementos automáticamente: Una referencia al dataset, un BindingSource y un TableAdapter. Todos ellos referentes a la tabla usada. Si visualizamos el método Load en el código fuente veremos que ya se ha rellenado automáticamente el dataset a partir del TableAdapter con el método fill (En versiones anteriores de visual studio se debía rellenar manualmente).

Finalmente podemos compilar el proyecto y ejecutarlo y en la tabla se verá toda la información de la tabla de la base de datos.


DatagridView con VB.net y MySQL

datagridview-con-vb-net-y-mysql


A continuación se muestra una función muy sencilla y útil en la que dado un vector (array) y un elemento a buscar, si lo encuentra nos devuelve la posición en la que está, sino nos devuelve -1.

```vb
 Function BuscarElemento(ByRef vector As Integer(), ByVal valor As Integer)
    Dim encontrado As Boolean = False
    Dim posicion As Integer = -1
    Dim i As Integer = 0
    While Not encontrado And i < vector.Length
        If vector(i) = valor Then
            posicion = 1
            encontrado = True
        End If
        i = i + 1
    End While
    Return posicion
End Function
```

El algoritmo recorre el vector empezando desde la posición 0 hasta la última posición. En caso de que encuentre el valor saldrá del bucle directamente, sin tener que acceder a cada posición.

Aunque el código esté escrito en VB.NET el algoritmo es igualmente válido para la gran mayoría de lenguajes de programación

## Ejemplo de Uso

En este ejemplo se supone que se tiene un vector de enteros y que se quiere buscar el primer elemento del vector que contiene un 10.

```vb
Dim posicion As Integer = BuscarElemento(vector,10)

if (posicion <> -1) then
    'encontrado
    vector(posicion) = vector(posicion) + 1
else
    'no encontrado
end if
```


Algoritmo para encontrar la posición de un elemento en un vector

Buscar un elemento dentro de un vector

buscar-un-elemento-dentro-de-un-vector


VB .Net, a diferencia de su predecesor Visual Basic, es un lenguaje de programación [Orientado a Objetos]({domain_root}/tutoriales/programacion/programacion-orientada-objetos.43.html). Por lo tanto, trabajar con formularios, controles y módulos, es trabajar con clases.

En este artículo se verá cómo crear objetos y clases.

## Clases y Objetos

Los objetos son instancias de una clase. En VB .NET se crea una clase de la siguiente forma:

```vb
Public Class Ejemplo
End Class
```

Dentro de la clase se podrá añadir atributos, métodos y eventos.

Para instanciar esta clase y crear así un nuevo objeto, se usará la palabra clave new. Por ejemplo:

```vb
Dim objeto As new Ejemplo()
```

## Propiedades, Métodos y Eventos

Dentro de una clase se pueden crear atributos, métodos y eventos. Estos elementos se pueden declarar Public, Private, Protected, Friend o Protected Friend.

Para definir un atributo no se utiliza Dim, sino que se hace como en este ejemplo:

```vb
Public Class Ejemplo
    Public atributo As Integer
End Class
```

Los métodos pueden ser acciones (subrutinas) o funciones.

Finalmente, los eventos permiten a los objetos realizar acciones cuando el usuario realiza una determinada acción, por ejemplo, hacer clic en un botón.


Definición de clases y objetos en VB .NET

Visual Basic

Colorear celdas de una tabla en VB.NET

Threads en VB.NET

DatagridView con VB.net y MySQL

Buscar un elemento dentro de un vector

Clases y objetos en VB .NET