Ejercicio Visual Basic

EJERCICIO DE VISUAL BASIC


En este ejercicio vamos a utilizar las funciones de texto que disponen los comados de “TextBox”. El funcionamiento sera, Introduciremos un texto y mediante“Optionbuttons” “botones de opcion” cambiaremos el aspecto del texto según la opcion activada. Empezaremos creando el formulario,

























El Caption del “Form” sera“Aspecto Texto”.

A continuacion empezaremos introduciendo un label para indicar donde se introduce el texto. Las propiedades de ese “Label” sera, color de la letra “forecolor” -7”azul” el color de fondo“backcolor”-7”amarillo” y el aspecto del texto “Font” -7”negrita”

Al activar la propiedad “font” aparece la siguiente pantalla,






El resultado de estos cambios quedara asi,




Elsiguiente paso es introducir el TEXTBOX para introducir la “Frase”,




Borramos el contenido de la propiedad “Text” del “textbox”

Empezamos ahora a introducir “OptionButton”, cada boton deopcion tendra un caption diferente el cual indicara la operación que realizara al activarlo.


Coloca tantos “optionbuttons” y cambia el caption siguiendo el ejemplo,



Para acabar con eldiseño colocamos un “Commandbutton” boton de comando para poder finalizar la ejecucion del programa.



Ahora empezaremos a introducir el codigo. Haremos doble clic en el primer option button(Negrita),


Private Sub Option1_Click()

Text1.Font.Bold = True

End Sub

En el segundo boton de opcion (Cursiva) Private Sub Option2_Click() Text1.Font.Italic = True
End Sub

En el tercer botonde opcion (subrayado) Private Sub Option3_Click() Text1.Font.Underline = True
End Sub

En el cuarto option (Minusculas) Private Sub Option7_Click() Text1.Text = LCase(Text1.Text) End Sub

En elquinto option button (Color letra) Private Sub Option4_Click() Text1.ForeColor = vbRed
End Sub

En el siguiente boton de opcion (Color Fondo)

Private Sub Option5_Click() Text1.BackColor...