Make your own free website on Tripod.com

 

Introducción de texto. SetFocus

 

 

Durante la ejecución puedes pulsar en un cuadro de texto para seleccionarlo y escribir lo que desees. Para este procedimiento se utiliza el método SetFocus. Observa la siguiente sentencia:

 

TxtEnter.SetFocus

 

Una sentencia SetFocus consta del nombre de un objeto (txtEnter), de un punto y del método SetFocus.

 

En esta actividad vas a practicar los procedimientos de los siguientes eventos: Introducir texto, copiar texto, borrar todo y salir.

 

Crea la interfaz que te presento:

 

 

Propiedades de los objetos

 

Una vez ubicados los controles, establece las propiedades según se indica:

 

Form1

 

Propiedad

Valor

 

Nombre

Form1

 

BorderStyle

3-Fixed Dialog

 

Caption

Introtexto

 

Font

Arial, Negrita, tamaño 10

 

Text1

 

 

Propiedad

Valor

 

Nombre

TxtEnter

 

Text

(Vacío. Eliminar Text1)

 

Multiline

True

 

Scrollbars

2-Vertical

 

Text2

 

 

Propiedad

Valor

 

Nombre

TxtCopyEntry

 

Text

(Vacío. Eliminar Text2)

 

Multiline

True

 

Scrollbars

2-Vertical

 

Command1

 

Propiedad

Valor

 

Nombre

CmdEnterText

 

Caption

Introducir texto

 

Command2

 

Propiedad

Valor

 

Nombre

CmdCopyEntry

 

Caption

Copiar texto

 

Command3

 

Propiedad

Valor

 

Nombre

CmdClearAll

 

Caption

Borrar todo

 

Command4

 

Propiedad

Valor

 

Nombre

CmdExit

 

Caption

Salir

 

 

Escritura de código

Luego de establecer las propiedades para los controles, debes añadir código a la aplicación.

 

Código en el botón “Introducir texto”

Haz doble click sobre dicho botón e ingresa el siguiente código:

 

Código en el botón “Copiar texto”

Haz doble click sobre dicho botón e ingresa el siguiente código:

 

 

Código en el botón “Borrar todo”

Haz doble click sobre dicho botón e ingresa el siguiente código:

 

 

Crea tu mismo el código del botón “Salir”.

 

Guarda y ejecuta el programa.

 

Home | VB |