Traductor

martes, 1 de octubre de 2013

PRACTICA 2 (Cambio color fondo formulario)

Practica 2. Realice una aplicación que al ingresar valores del 0 al 255 en tres cuadros de texto para los tres colores primarios Rojo-Verde-Azul al dar clic a un botón mostrar color cambie el fondo del formulario en base a la mezcla marcada en dichos cuadros de texto.

Objetivo: Poner en práctica el uso de los objetos textbox, buttom, label y formularios y sus propiedades text.

Código sugerido:

Dim rgb1, rgb2, rgb3 As Integer
Dim a As String
If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then

rgb1 = TextBox1.Text
rgb2 = TextBox2.Text
rgb3 = TextBox3.Text
Me.BackColor = Color.FromArgb(rgb1, rgb2, rgb3)

Else

a = MsgBox("No ha introducido valor favor de verificar", vbYes + vbCritical, "Error")

End If

Actividad: EN SU REPORTE ADEMAS DE IMPRIMIR CORRIDA Y CODIGO, DEBERA DAR UNA RESEÑA DE LO QUE HA OBSERVADO HACE CADA LINEA DE CODIGO.

DISEÑO SIGERIDO:



No hay comentarios:

Publicar un comentario