Sección de tutoriales y manuales vb

Control TextBox - Caja de texto

Volver al índice



 

 

 

El control TextBox o Caja de texto se utiliza para Ingresar y/o visualizar Texto ( es un control de entrada de datos )

 

Vista previa de un control TextBox de Visual Basic

 

Si en nuestros programas no vamos a introducir Texto, me refiero a solo mostrarlo, valores etc..., es preferible y mas lógico utilizar un control Label en cambio de un control TextBox , ya que consume menos recursos

La propiedad principal de este control se llama Text. Mediante ella podemos asignarle un texto ya sea en tiempo de diseño o tiempo de ejecución al control. Si es en tiempo de diseño, debemos seleccionar el TextBox e ir a la ventana de propiedades y seleccionar Text. Dentro de ella podemos escribir el texto a ser mostrado. Si es en tiempo de ejecución debemos escribir el nombre de el TextBox que queremos y al presionar el punto ".", vb despliega la lista de propiedades y métodos del TextBox, y ahí seleccionamos Text

 

Lista de propiedades y métodos del control Textbox

 

Por ejemplo si quiero mostrar un texto en un control llamado Text1 se haría de esta forma:

 

Private Sub Form_Load()

Text1.Text = "Un texto cualquiera"

End Sub

 

Si quisiera mostrar el contenido de un control Label llamado Label1 en un control llamado text1 se haría así:

 

Private Sub Form_Load()

Text1.Text = Label1.Caption

End Sub

Nota , no es necesario escribir la propiedad Text seguida del nombre del control, ya que la propiedad Text es la propiedad por defecto, y Vb se daría automáticamente cuenta que al no poner ninguna propiedad la asuma como tal, por ejemplo esto es válido:

Private Sub Form_Load()

Text1 = "Un texto cualquiera"

End Sub

 

Esto de las propiedades por defecto lo tienen la mayoría de los controles, pero cada control tiene la suya, por ejemplo la propiedad default de un control Label es Caption, por lo que no es necesario escribirla, y Visual Basic no daría error:

 

Private Sub Form_Load()

Label1 = "Hola"

End Sub

 

Para un control Picture, la propiedad Picture es la que está establecida por defecto, y esto tampoco daría error y cargaría una imagen perfectamente en el control sin indicar explícitamente la propiedad.

 

Private Sub Form_Load()

Picture1 = LoadPicture("la ruta de una imagen")

End Sub

 

Propiedad Multiline

La propiedad Multiline o multilinea se utiliza para poder 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 cosa importante 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.

 

Propiedad PasswordChar

Esta propiedad tiene la función de ocultar el verdadero contenido del TextBox por el caracter que le indiquemos, por ejemplo los TextBox de ingresos de contraseña, donde el texto se oculta pero no se pierde, solo impide visualizarlo:

 

Propiedad passwordchar para ocultar el texto del control Texttbox

 

Nota : para establecer el caracter a mostrar solo debemos indicarlo en la propiedad PasswordChar, pero solo funciona cuando la propiedad Multiline del Text está en False.

 

Propiedad ScrollBars

Esta propiedad permite que el TextBox tenga o no tenga barras de Scroll cuando el texto sea superior a las dimensiones de la caja de texto. Los valores que puede tener son: 0 indica que el textBox no mostrará Barras de desplazamiento, en 1 Solo barra Horizontal, 2 Solo barra Vertical y 3 ambas barras de desplazamiento. En esta imagen se ve un TextBox con la propiedad Scrollbars en 2, solo Vertical

 

Propiedad Scrollbar - Barras de desplazamiento para los controles de texto

 

Propiedad Locked

Esta propiedad lo que hace es impedir que se pueda escribir en el TextBox, bloqueando la entrada de datos. Esta propiedad puede tener el Valor True o False, habilitado para el primero y False para el segundo. Por defecto está deshabilitada, es decir en False

 

Propiedad Maxlength

La propiedad MaxLength se usa para limitar la cantidad de caracteres que se podrán ingresar. Por ejemplo si en el TextBox tuviesemos el texto "Domingo" y hacemos esto:

Private Sub Command4_Click()
Text1.Text = "Domingo"
Text1.MaxLength = 3
End Sub

El texto "Domingo" se podrá visualizar pero si intentamos escribir en la caja de texto, no se podrá ingresar mas de 3 caracteres. Es decir la propiedad recibe un número que identifica la longitud máxima permitida de letras a ingresar.

 

Propiedad SelStart y SelLength

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.

El siguiente ejemplo utiliza estas dos propiedades, en conjunto con la propiedad Len de visual basic, para que al persionar la tecla Ctrl+A, se seleccione todo el contenido del TextBox

 

vista del ejemplo para seleccionar todo el etxto al presionar la tecla control mas la tecla A

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = 1 Then
           Text1.SelStart = 0
           'Selecciona Todo el contenido de la caja de texto
           Text1.SelLength = Len(Text1.Text)
    End If
End Sub 

 

 

 

Algunos ejemplos del Uso del control TextBox

Supongamos que quisieramos mostrar el contenido de un Text1 en un Text2, cuando presionamos un Command1, haríamos asi:

Vista previa del ejemplo para copiar el contenido de un textbox en otro TextBox

 

Private Sub Command1_Click()
'Copiamos el texto de Text1 en el Text2
Text2 = Text1
End Sub

 

Si quisieramos cambiar el color de fondo (propiedad Backcolor) del TextBox para que sea igual al color de fondo del formulario haríamos asi:

 

Vista del ejemplo para cambiar el color de fondo de un textbox

 

Private Sub Command1_Click()
'Le asignamos el mismo color al textbox que el que tiene el formulario _
utilizando la propiedad Backcolor

Text1.BackColor = Me.BackColor
End Sub

 

Este simple ejemplo lo que hace es cuando se escribe en el Text1, automáticamente se imprime el mismo texto en un Text2. Para esto usamos el evento Change que significa cambio, es decir se ejecutará cada vez que el text1 cambie el contenido.

Agregar 2 Text, text1 y Text2, pegar lo siguiente y luego escribir un texto en el Text1.

 

Private Sub Text1_Change()
'Le establecemos el contenido de Text1 en el control Text2
Text2 = Text1
End Sub

 

Este ejemplo lo que hace es cambiarle el color al fondo del control text en negro, el color de la fuente en verde, el tamaño de la fuente, establecerla en negrita, y luego le asigna un texto "hola mundo".

Colocar un Command1 y un Text1

 

 

Private Sub Command1_Click()
With Text1

.ForeColor = vbGreen
.BackColor = vbBlack
.FontSize = 12
.FontBold = True
.Text = " Hola Mundo"

End With
End Sub

 

Hacer que un textBox admita solo números y algunos otros caracteres indicados

 

El siguiente ejemplo muestra como hacer , comprobando en el eventos KeyPress de un textbox, el valor del parámetro Keyascii, para que solo admita números, la coma, el punto y la tecla de retroceso. Cualquier otro valor que no sea estos, el mismo retornará el valor 0.

 

Colocar un Text1 y el siguiente código en el formulario:

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 los nú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


 

 

Esta función también puede ser utilizada en otros controles de entrada de datos, como por ejemplo los ComboBox, y la ventaja de utilizarlo, es que si tenemos muchos textbox o controles a los cuales deseamos verificar las teclas presionadas, no tenemos que escribir y repetir código en todos ellos, solo asignando al valor KeyAscii el valor retornado por la fuinción, para que el mismo acepte o no dichas teclas

Nota: también hay una función de visual basicllamada IsNumeric, para poder determinar si un valor es un número

 

 

Ejemplo para cargar el contenido de un archivo de texto en un TextBox Multiline

 

Este simple ejemplo carga en un control textBox el contenido de un archivo seleccionado de tipo txt. El control tiene la propiedad Multiline en True y la propiedad ScrollBar en Both.

Nota: en este enlace hay una descripción básica de las funciones de visual basic para el tratamiento de archivos, leer, guardar etc...

 

vista del formulario de ejemplo para cargar un archivo plano de texto en un text

 

Colocar en un formulario un control Commondialog , un control textBox y un control Command1:

Nota: al control textBox en la propiedadMultiline colocarle true y también establecerle los ScrollBar

 

Código fuente en el formulario:

Private Sub Command1_Click()
With CommonDialog1
    
    .DialogTitle = " Seleccionar archivo"
    .Filter = "Archivos txt|*.txt"
    ' abre el cuadro de diálogo para seleccionar el txt
    .ShowOpen
    
    If .FileName = "" Then Exit Sub
    
    'Carga el archivo en el control
    Cargar_Txt .FileName
    
End With
End Sub

Private Sub Form_Load()
Command1.Caption = " Abrir archivo txt"
End Sub

Sub Cargar_Txt(path As String)
Dim linea As String
If path = vbNullString Then Exit Sub
   
   Text1 = ""
   
   Open path For Input As #1

   While Not EOF(1)
     'Lee la linea del archivo
      Line Input #1, linea
      'La carga en el textbox
     Text1 = Text1 & linea
   Wend
   'Cierra el archivo abierto
   Close
   
End Sub
 

 

Redimensionar un TextBox al ancho y alto del formulario

 

Este ejemplo simple lo que hace es que al redimensionar el formulario, o maximizarlo, el ancho y alto del control text, se adapte al ancho y alto del la ventana. Para ello el código debe estar ubicado en el evento Resize del formulario, y para redimensionar el textbox ( o cualquier otro control) se utiliza el método Move

Ejemplo:

Private Sub Form_Resize()

'Primer y segundo parámetro es el valor Left y Top

'Parámetro 3 y 4, el ancho y alto del text _
 que en este caso es el ancho y alto del formulario

Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

 

 

Cambiar color de borde

El textbox no tiene ninguna propiedad para cambiar el color de borde . El siguiente ejemplo muestra una forma simple de como simular esto utilizando controles Shape, como muestra la siguiente imagen donde los textbox son parecidos a los de estilo de windows xp

 

vista del formulario de ejemplo para crearle un borde de color a los textbox del formulario

 

En el ejemplo, se recorren todos los controles del formulario mediante un bucle For each. Luego, se van creando los demás controles Shape en tiempo de ejecución, uno para cada textbox , usando el método Load que permite crear los controles en tiempo de ejecución a partir de uno que está agregado en el formulario formando un array de controles

 

Controles

Colocar en el formulario, un control Shape. Al control Shape especificarle en la propiedad Index el valor 0 pra formar el array de shape

Luego agregar algunos textbox en el formulario

 

Código fuente en el formulario

' Posiciona el shape junto al textbox para simular el borde
Sub Aplicar_Borde(Shape As Object, color_Borde As Long)
    
    ' Variable para recorrer todos los controles del formulario
    Dim el_Control As Object
    
    'Recorre todos los controles
    For Each el_Control In Me
        
        ' .. si el control es un textbox
        If TypeOf el_Control Is TextBox Then
            Dim i As Integer
            
            'Si el Textbox está dentro de un contenedor, _
            como un frame o picturebox, coloca el Shape _
            dentro del mismo contenedor
            Set Shape(i).Container = el_Control.Container
            
            'Propiedades para el shape
            Shape(i).BackStyle = 0 ' Fondo transparente
            Shape(i).BorderStyle = 1 ' Borde sólido
            Shape(i).BorderWidth = 1 ' 0 Grosor del borde
            
            ' Ancho, alto, pos x y po y del shape
            Shape(i).Top = el_Control.Top - 10
            Shape(i).Left = el_Control.Left - 10
            Shape(i).Width = el_Control.Width + 30
            Shape(i).Height = el_Control.Height + 30
                
            ' Estilo flat para el extbox
            el_Control.Appearance = 0
            ' Le quitamos le borde al textbox
            el_Control.BorderStyle = 0
            ' color del borde del shape
            Shape(i).BorderColor = color_Borde
            ' Lo hacemos visible
            Shape(i).Visible = True
            
            i = i + 1
            ' Crea un shape en forma dinámica
            Load Shape(i)
            
        End If
    Next
End Sub

Private Sub Form_Load()
    Call Aplicar_Borde(Shape1, &H8000000D)
End Sub
 

 

Nota. en este enlace hay un ejemplo para crear un listbox con borde personalizado también usando un control shape

 

Pasar el foco entre Textbox al presionar la tecla enter

Este ejemplo muestra una forma de poder, al presionar la tecla enter, pasarle el foco al siguiente textbox. Como en el ejemplo se utiliza la función SendKeys para enviar la pulsación de la tecla Tab, el control que reciba el enfoque lo determinará la propiedad TabIndex

Agregar un arreglo de controles textbox, por ejemplo Text1(0), Text1(1), Text1(2) etc...

vista del formulario  para el ejemplo en vb

 

Código fuente en el formulario

Sub PasarFoco(KeyCode As Integer)
    ' si es la tecla enter ...

    If KeyCode = 13 Then
       ' envía la pulsación de tecla Tab y pasa el foco _
         a la siguiente caja de texto
       SendKeys "{TAB}"
    End If
End Sub

Private Sub Form_Load()

    
    Dim i As Integer
    
    ' recorre la matriz de textbox
    For i = 0 To Text1.Count - 1
        ' le especifica la propiedad tabIndex
        Text1(i).TabIndex = i + 1
    Next
    
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    ' anvia como parámetro el valor del código de la tacla
    Call PasarFoco(KeyAscii)
End Sub 

 


Borrar todos los textbox de un formulario

Si queremos eliminar el contenido de todas las cajas de texto de un formulario, podemos utilizar un bocle For Each y el operador Type Of

Ejemplo:

La rutina LimpiarTextBox, recibe como parámetro el formulario, por ejemplo para limpiar todo el contenido de todas las cajas de texto que hay en el el formulario actual, se ejecutaría la rutina de la siguiente forma:

Call LimpiarTextBox(Me)

 

Colocar en el formulario, un CommandButton y varios controles TextBox

Código fuente en el Form

Option Explicit

' recibe como argumento el formulario
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub LimpiarTextBox(frm As Form)
    ' recorre todos los controles que hay en el formulario
    For Each Control In frm.Controls
        ' verifica que el control es de tipo TextBox
        If TypeOf Control Is TextBox Then
            '... Si es un Textbox, entonces lo limpia
            Control.Text = ""
        End If
    Next
End Sub

' botón que limpia todos los textbox
'''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
    Call LimpiarTextBox(Me)
End Sub  

 

Enlaces relacionados

 

Volver al índice

 

 


Buscar en Recursos vb