C{odigos visual basic

CONTROLES

Textbox

Permite al usuario especificar texto, así como funciones de edición de varias líneas y mascaras de caracteres para contraseñas. Códigos:

Texto: Textbox1.Text = “Texto”

Color de letra: Textbox1.Forecolor = Color

Color de Fondo: Textbox1.Backcolor = Color

Limpiar: Textbox1.Clear ()

Copiar texto: Textbox1.Copy ()

Cortar texto: Textbox1.Cut ()

Pegartexto: Textbox1.Paste ()

Seleccionar todo: Textbox1.SelectAll ()

Deshabilitar: Textbox1.Enabled = False

Habilitar: Textbox1.Enabled = True

Ocultar: Textbox1.Hide ()

Mostrar: Textbox1.Show ()

Alineación del texto: Textbox1.TextAlign = Alineación

Deshacer: Textbox1.Undo ()

Enfocar: Textbox1.focus

Propiedades

Multiline

La propiedad Multiline o multilinea se utiliza parapoder mostrar los saltos de carro o saltos de línea y que el texto se vea en varias y no todo en un única línea. Los valores que posee son True que está activada y en False quiere decir que está deshabilitada. Por defecto cuando añadimos un TextBox, la propiedad está en False, osea que tenemos que indicarle nosotros a vb, ya sea desde la ventana de propiedades poniéndola en true. Una cosaimportante es que esto no lo podemos cambiar en tiempo de ejecución mediante código, si o si hay que establecerla desde la ventana de propiedades, ya que es una propiedad de solo lectura.

Password Char

Esta se activa desde las propiedades del control en la propiedad PasswordChard, en este sugerimos el carácter que deseemos que oculte el texto ejemplo:

PasswordChar= *

Textbox1.text=********Scrollbar

Maxlenght

Se utiliza para indicar la cantidad de caracteres que se desean ingresar:

Private sub ()

Textbox1.text=”Domingo”

Textbox1.MaxLenght= 3

SelStar y SelLenght

La primera lo que hace es devolver o establecee el punto inicial del texto seleccionado. en cambio SelLength devuelve o establece el número de caracteres seleccionados.

Private Sub Textbox1_Keypres(KeyAscii as Integer)

If Keyascii= 1 then

Text1.Selstar=0

Text1.SelLenght=Len(Text1.Test)

End If

Hacer que un Control textbox solo admita números en su ingreso

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii = Verificar_Tecla(KeyAscii)

End Sub

Function Verificar_Tecla(Tecla_Presionada)

Dim Teclas As String

'Acepta todos losnúmeros, la tecla Backspace, _

la tecla Enter, la coma y el punto

Teclas = "1234567890.," & Chr(vbKeyBack)

If InStr(1, Teclas, Chr(Tecla_Presionada)) Then

Verificar_Tecla = Tecla_Presionada

Else

' Si no es ninguna de las indicadas retorna 0

Verificar_Tecla = 0

End If

End Function

Cargar contenidos de Texto en un TextBoxMultiline

En el botón abrir asignamos el siguiente código:

OpenFileDialog1.ShowDialog

OpenFileDialog1.Filter=”"Text Files (*.txt)|*.txt|All Files(*.*)|(*."

Textbox1.text= FromFile(OpenDialog1.FileName)

RichTextbox

Permite al usuario especificar texto, así como funciones de edición de varias líneas. Códigos:

Texto: RichTextbox1.Text = “Texto”

Color de letra: RichTextbox1.Forecolor= Color

Color de Fondo: RichTextbox1.Backcolor = Color

Limpiar: RichTextbox1.Clear ()

Copiar texto: RichTextbox1.Copy ()

Cortar texto: RichTextbox1.Cut ()

Pegar texto: RichTextbox1.Paste ()

Seleccionar todo: RichTextbox1.SelectAll ()

Deshabilitar: RichTextbox1.Enabled = False

Habilitar: RichTextbox1.Enabled = True

Ocultar: RichTextbox1.Hide ()

Mostrar:RichTextbox1.Show ()

Alineación del texto: RichTextbox1.SelectionAlignment = Alineación

Deshacer: RichTextbox1.Undo ()

Propiedades SelText, SelLenght, SelStart

• SelText: Devuelve o establece la cadena que contiene el texto seleccionado actualmente.
• SelStart: Devuelve o establece el punto inicial del texto seleccionado.
• SelLength: Devuelve o establece el número de caracteres...