Lo más destacado DI 2

Estación de Mensajes

/*estación de mensajes*/
    Private Sub txtCuenta_GotFocus(sender As Object, e As EventArgs) Handles txtCuenta.GotFocus
        txtExplicativo.Text = "Número de cuenta. Contiene 10 números."
    End Sub

/*mensaje final*/
        If Len(txtCuenta.Text) = 10 And contador = 5 Then
            txtExplicativo.Text = "Cuenta introducida correctamente."
            txtExplicativo.ForeColor = Color.Green
        End If

Control de errores en Visual Basic

Try
            If (e.KeyCode = Keys.Back) Then /*borrar se permite*/
                e.Handled = True
            ElseIf (e.KeyCode < 47 Or e.KeyCode > 57) Then /*Las letras se suprimen*/
                e.SuppressKeyPress = True
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Añade un ayudante

/*declaracion del audio ayuda*/
    Dim audioAyuda = CreateObject("sapi.spvoice")
    /*boleano para silenciar la autoayuda*/
    Private activo As Boolean
/*audio ayuda, al pasar por encima leera lo que esta escrito o para que sirve.*/
    Private Sub blablabla_MouseEnter(sender As Object, e As EventArgs) Handles blablabla.MouseEnter
        audioAyuda.speak("Al hacer click oiras aquí lo que has escrito")
    End Sub
    Private Sub BtnSilenciar_MouseEnter(sender As Object, e As EventArgs) Handles BtnSilenciar.MouseEnter
        audioAyuda.speak("Este boton silencia la voz de ayuda")
    End Sub
    Private Sub cTexto_MouseEnter(sender As Object, e As EventArgs) Handles cTexto.MouseEnter
        audioAyuda.speak("Aqui debes introducir el texto")
    End Sub
    Private Sub ltitulo_MouseEnter(sender As Object, e As EventArgs) Handles ltitulo.MouseEnter
        audioAyuda.speak("Sintetizador version 1")
    End Sub
    Private Sub lVelocidad_MouseEnter(sender As Object, e As EventArgs) Handles lVelocidad.MouseEnter
        audioAyuda.speak("Velocidad")
    End Sub
    Private Sub lVolumen_MouseEnter(sender As Object, e As EventArgs) Handles lVolumen.MouseEnter
        audioAyuda.speak("Volumen")
    End Sub
    Private Sub TrackVelocidad_MouseEnter(sender As Object, e As EventArgs) Handles TrackVelocidad.MouseEnter
        audioAyuda.speak("Puedes subir o bajar la velocidad de la voz")
    End Sub
    Private Sub TrackVolumen_MouseEnter(sender As Object, e As EventArgs) Handles TrackVolumen.MouseEnter
        audioAyuda.speak("Puedes subir o bajar el volumen de la voz")
    End Sub
    /* fin audio ayuda*/

idiomas en visual basic

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        leerFichero()
    End Sub
    Private Sub leerFichero()
        Dim fichero As String = My.Computer.FileSystem.ReadAllText("es.txt")
        Dim cadena As String() = fichero.Split(":")
        Me.Text = cadena.GetValue(0)
        LblInserte.Text = cadena.GetValue(1)
        BtnCalcular.Text = cadena.GetValue(2)
        BtnLimpiar.Text = cadena.GetValue(3)
        Label1.Text = cadena.GetValue(4)
    End Sub

visualizar, esconder contraseñas

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If txtContrasena.UseSystemPasswordChar = True Then
            txtContrasena.UseSystemPasswordChar = False
        Else
            txtContrasena.UseSystemPasswordChar = True
        End If
    End Sub

Private Sub txtContrasenaNueva_MouseEnter(sender As Object, e As EventArgs) Handles txtContrasenaNueva.MouseEnter
        If txtContrasenaNueva.UseSystemPasswordChar = True Then
            txtContrasenaNueva.UseSystemPasswordChar = False
        Else
            txtContrasenaNueva.UseSystemPasswordChar = True
        End If
    End Sub
    Private Sub txtConfirmeContrasena_MouseEnter(sender As Object, e As EventArgs) Handles txtConfirmeContrasena.MouseEnter
        If txtConfirmeContrasena.UseSystemPasswordChar = True Then
            txtConfirmeContrasena.UseSystemPasswordChar = False
        Else
            txtConfirmeContrasena.UseSystemPasswordChar = True
        End If
    End Sub

control de caracteres

/*las mayusculas y borrar se permiten*/
            If (e.KeyCode > 96 And e.KeyCode < 122) Or (e.KeyCode = Keys.Back) Then
                e.Handled = True
            ElseIf (e.KeyCode > 65 And e.KeyCode < 90) Then /*las minusculas se permiten*/
                e.Handled = True
            ElseIf (e.KeyCode > 64 Or e.KeyCode < 91) Then /*Los numeros se suprimen*/
                e.SuppressKeyPress = True
            End If

If (e.KeyCode = Keys.Back) Then /*borrar se permite*/
                e.Handled = True
            ElseIf (e.KeyCode < 47 Or e.KeyCode > 57) Then /*Las letras se suprimen*/
                e.SuppressKeyPress = True
            End If