Cambiar el valor en un ComboBox y asignarlo a la barra de título

Private Sub cbdte_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbdte.SelectedValueChanged
        Me.Text = cbdte.SelectedItem
    End Sub

Borrar elementos de un ComboBox

ComboBox.Items.Clear()

Escribir en un archivo txt

Dim wr As New StreamWriter("clientes.txt", True, System.Text.Encoding.UTF8)
wr.Close()

True ---> adjuntar-agrega líneas
False--->crea un archivo nuevo y agrega una línea

Remover fila DataGridView

If DataGridView.Rows.Count > 0 Then
     DataGridView.Rows.Remove(DataGridView.CurrentRow)
End If

Escribir en un archivo txt

Dim dataconfig() As String = File.ReadAllLines("config.txt", Encoding.UTF8)
System.IO.File.WriteAllLines("config.txt", dataconfig, Encoding.UTF8)

Posicionarse en una celda

DataGridView.CurrentCell = DataGridView(e.ColumnIndex + 1, e.RowIndex)


dgv1.CurrentCell = dgv1(columna, fila)

Leer archivo de texto

Dim readtext() As String = File.ReadAllLines("archivo.txt", Encoding.UTF8)

Detectar tecla Enter en un TextBox

private void input_KeyDown(object sender, KeyEventArgs e)
{                       
    if(e.KeyData == Keys.Enter) 
    { 
        MessageBox.Show("Pressed enter."); 
    }           
}

Sumar días a un DateTimePicker

Dim x As String = DateTimePicker1.Value.AddDays(1).ToString("yyyy-MM-dd")

Llamar al evento DataGridView_CellClick desde un botón

e = New DataGridViewCellEventArgs(col, row)
                    dgvtotales_CellClick(Nothing, e)

private void kryptonbtnEdit_Click(object sender, EventArgs e)
{
    //set parameters of your event args
    var eventArgs = new DataGridViewCellEventArgs(yourColumnIndex, yourRowIndex);

    // or setting the selected cells manually before executing the function
    kryptonDataGridView1.Rows[yourRowIndex].Cells[yourColumnIndex].Selected = true;

    kryptonDataGridView1_CellDoubleClick(sender, eventArgs);
}

fuente: https://stackoverflow.com/questions/27838861/how-to-call-a-datagridview-event-with-a-click-of-a-button

Obtener el nombre de la base de datos

Public Function returndb(ByVal conex As String) As String
        Dim data() As String = conex.Split(";")
        Dim db As String = ""
        For Each rd As String In data
            If rd.Contains("atalog") Then
                db = rd.Split("=")(1)
                Exit For
            End If
        Next
        Return db
    End Function

Obtener la fila y columna seleccionada

Dim var As Integer =  dgv1.CurrentCell.RowIndex
Dim var As Integer =  dgv1.CurrentCell.ColumnIndex

Dim i As Integer = DataGridView1.CurrentRow.Index

DataGridView opciones

Cambiar el colo azul de seleccion que viene por defecto:
dgv.DefaultCellStyle.SelectionBackColor = Color.Yellow



AllowUserToResizeRow = False
SelectionMode = FullRowSelect
RowHeadersVisible = False

Cambiar el color de la cabecera:
dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.LightSkyBlue

Properties:
EnableHeaderVisualStyles: False


Centrar el nombre de todas columnas:
 'Dim dgvColumnHeaderStyle As New DataGridViewCellStyle()
 'dgvColumnHeaderStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 'dgv.ColumnHeadersDefaultCellStyle = dgvColumnHeaderStyle


Centrar el nombre de una columna:
dgv.Columns("Column1").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter


fuente:
https://stackoverflow.com/questions/4550836/how-can-i-center-the-heading-in-a-column-on-a-datagridview

Verificar si existe un procedimiento almacenado

IF EXISTS (SELECT * FROM sysobjects WHERE type = 'P' AND name = 'SP_ver_rcv')
BEGIN
DROP PROCEDURE SP_ver_rcv
END
GO
CREATE PROCEDURE SP_ver_rcv
AS
BEGIN...
.
.
.

fuente: https://msdn.microsoft.com/en-us/library/dd996513.aspx

Aceptar sólo números en un Textbox y otro caracter

Private Sub tbfecha_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbfecha.KeyPress
        If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar) AndAlso (e.KeyChar <> "-") Then
            e.Handled = True
        End If
    End Sub

Aceptar sólo números en un TextBox

Private Sub tbrut_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbrut.KeyPress
        If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar) Then
            e.Handled = True
        End If

    End Sub

Deshabilitar clic derecho del mouse en un TextBox

Private Sub tbrut_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tbrut.MouseDown
        tbrut.ContextMenu = New ContextMenu()
    End Sub

Cambiar formato de fecha obtenida de SQL

Dim fechaservidor As String ='10/10/2017'

fechaservidor = DateTime.ParseExact(fechaservidor, "dd/MM/yyyy", CultureInfo.InvariantCulture).ToString("yyyy-MM-dd")

Asignar valor a una celda por el nombre del campo DataGridView

dgvboletas.Rows(e.RowIndex).Cells("Column5").Value = "0"

Ingresar una fecha y obtener el mes en palabras

Imports System.Globalization
Dim mes As String = New DateTime(2017, 2, 31).ToString("MMMM", CultureInfo.CreateSpecificCulture("es"))

Seleccionar el mes en palabras y obtener su número

Imports System.Globalization
Dim mes As String = DateTime.ParseExact("octubre", "MMMM", CultureInfo.CreateSpecificCulture("es")).Month.ToString.PadLeft(2, "0")

Select case meses

Select Case mes
            Case "Enero"
            Case "Febrero"
            Case "Marzo"
            Case "Abril"
            Case "Mayo"
            Case "Junio"
            Case "Julio"
            Case "Agosto"
            Case "Septiembre"
            Case "Octubre"
            Case "Noviembre"
            Case "Diciembre"
        End Select

Quitar ceros después del separador de miles

declare @example varchar(20) = '3923679.0000'
print substring(@example,0,charindex('.',@example))

substring(cast(t1.montoDTE as varchar(20)),0,CHARINDEX('.',cast(t1.montoDTE as varchar(20))))