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