trianguloManual Visual Basic paso a paso – Práctica 7

EJERCICIO

Crear un proyecto que contenga 3 formularios.

 

Instrucciones:

1.- Cuando de clic en el botón TEXTO debe aparecer un mensaje (INPUTBOX) donde se debe ingresar en texto q aparecerá el en LABEL1.

2.- Cuando de clic en el botón FORMATO debe mostrar el segundo formulario donde indicara el formato para el LABEL1.

3.- Cuando de clic en el botón COLOR, debe mostrar el tercer formulario.

 

 

 

 

FORMULARIO 1

 

Private Sub Command1_Click()

Dim M As String

M = InputBox(“Ingrese Texto”, “Texto”)

Label1.Caption = M

End Sub

 

 

 

 

 

FORMULARIO 2

Private Sub Command1_Click()

If Check1.Value = 1 Then

Form1.Label1.FontBold = True

Else

Form1.Label1.FontBold = False

End If

�..

FontItalic

FontUnderline

�..

If Option1.Value = True Then

Form1.Label1.FontName = “TIMES ROMAN”

End If

�…

If Option4.Value = True Then

Form1.Label1.FontSize = “8”

End If

�..

End Sub

 

FORMULARIO 3

Private Sub Command1_Click()

If Option1.Value = True Then

Form1.Label1.ForeColor = RGB(0, 0, 0)

End If

If Option2.Value = True Then

Form1.Label1.ForeColor = RGB(255, 255, 255)

End If

If Option3.Value = True Then

Form1.Label1.ForeColor = RGB(255, 0, 0)

End If

If Option4.Value = True Then

Form1.Label1.ForeColor = RGB(0, 255, 0)

End If

If Option5.Value = True Then

Form1.Label1.ForeColor = RGB(0, 0, 255)

End If

End Sub


trianguloDeja un comentario

  Jovenes Informaticos - Tu página de tecnología | Contenido: RSS | Contenido: Enric Cusell  


Warning: include(http://www.intercambios-links.com/jaula.php?code=TNWZnZ) [function.include]: failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /home2/enriccus/public_html/jovenesinformaticos/wp-content/themes/jovenes-info/footer.php on line 20

Warning: include() [function.include]: Failed opening 'http://www.intercambios-links.com/jaula.php?code=TNWZnZ' for inclusion (include_path='.:/opt/php52/lib/php') in /home2/enriccus/public_html/jovenesinformaticos/wp-content/themes/jovenes-info/footer.php on line 20