Visual Studio- Visual Basic

Declarar una variable

Una variable se declara mediante las palabras clave Dim y As, como se muestra a continuación.

Dim vaible_entero As Integer

Dim variable_string As String

Dim variable_booleano As Boolean

Dim variable_double As Double

Menú

1. Ejecutar consulta a DB en segundo plano BackGroundWorker
2. Crear un CRUD en DataGridView y MySql
3. Llenar un combobox con datos de una DB MySql
4. Validar números y letras en un textbox 
5. Imprimir DataGridView
6. Imprimir datos de un form.
7. Crear controles en form mediante programacion.
8. Agregar datos de un .txt a una DB MySql
9. Usando RollBack en MySql
10. Crear un CRUD personalizado en un DataGridView y MySql
11. Personalizar estilo de un DataGridView
12. Crear un Login basico
13. Funcion para verificar la conexion a internet

Ejecutar consulta en segundo plano

Personalizar estilos del Data1GridView

En este pequeño ejemplo os mostraré una forma de como personalizar nuestro DataGridView, comencemos: 

En el metodo que vayan a usar para llenar  su DataGridView pueden colocar:

DG_Users.DefaultCellStyle.Font = New Font("Tahoma", 10)
DG_Users.DefaultCellStyle.ForeColor = Color.FromArgb(46, 154, 254)
DG_Users.DefaultCellStyle.BackColor = Color.FromArgb(46, 46, 46)
Me.DG_Users.DefaultCellStyle.SelectionForeColor = Color.White
Me.DG_Users.DefaultCellStyle.SelectionBackColor = Color.FromArgb(11, 23, 59)
DG_Users.BackgroundColor = Color.FromArgb(64, 64, 64)
Dim styCabeceras As DataGridViewCellStyle = New DataGridViewCellStyle()
styCabeceras.BackColor = Color.Black
styCabeceras.ForeColor = Color.White
styCabeceras.Font = New Font("Tahoma", 10, FontStyle.Regular)
'styCabeceras.Alignment = DataGridViewContentAlignment.BottomCenter
DG_Users.ColumnHeadersDefaultCellStyle = styCabeceras

Pueden jugar con los colores, aqui una pagina:
http://html-color-codes.info/codigos-de-colores-hexadecimales/ sustituyen los valores del FromArgb() por el que les aparezca aqui:

Verificar la conexion a internet

En este pequeño ejemplo os muestro como comprobar  en nuestra app si tenemos conexion o no, lo podríamos usar para deshabilitar los controles de nuestra aplicacion en caso que no haya conexion y mandar un mensaje al usuario:

Imports System.Net
Imports System.Timers

 Private Sub Inicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Timer_GetStateInternet As New Timer(5000)
        AddHandler Timer_GetStateInternet.Elapsed, AddressOf ExecuteTimer_GetStateInternet
        Timer_GetStateInternet.Start()
    End Sub

#Region " SateInternetConnection "

    Private Sub ExecuteTimer_GetStateInternet(sender As Object, e As ElapsedEventArgs)
        events_GetStateInternet()
    End Sub

    Private Sub events_GetStateInternet()
            
                If GetStateInternet() = False Then
                   'no hay conexion a internet
                Else
                   'hay conexion a internet
                End If
    End Sub

#End Region

   Public Function GetStateInternet() As Boolean
        Dim req As HttpWebRequest
        Dim res As HttpWebResponse
        GetStateInternet = False
        Try
            req = CType(HttpWebRequest.Create("http://www..."), HttpWebRequest)
            res = CType(req.GetResponse(), HttpWebResponse)
            req.Abort()
            If res.StatusCode = HttpStatusCode.OK Then
                GetStateInternet = True
                If Lb_status_conexion.Visible = True Then
                    Lb_status_conexion.Visible = False
                End If
            End If
        Catch weberrt As WebException
            GetStateInternet = False
            If Lb_status_conexion.Visible = False Then
                Lb_status_conexion.Visible = True
            End If
        Catch except As Exception
            GetStateInternet = False
            If Lb_status_conexion.Visible = False Then
                Lb_status_conexion.Visible = True
            End If

        End Try
    End Function