(Programación VB) Buscando código: Diseñe un programa con una interfaz en ejecución como se muestra a continuación, que requiera clics en botones de opción, casillas de verificación...

Sub Check1_Click() privado

Si Check1.Value entonces

Text1.Font.Bold = True

Else

Text1.Font.Bold = False

Finalizar si

End Sub

Sub privado Check2_Click()

Si Check2. Valor Entonces

Text1.Font.Italic = True

Else

Text1.Font.Italic = False

Fin Si

Fin Sub

Sub privado Check3_Click()

Si Check3.Value entonces

Text1.Font.Underline = True

Else

Text1.Font.Underline = False

Finalizar si

Finalizar sub

Subcombo privado1_Click()

Text1.Font.Name = Combo1.Text

Fin Sub

Subcomando privado1_Click()

Fin

Fin Sub

Sub privado Form_Load()

Atenuar i como entero

Para i = 0 a Screen.FontCount - 1

Combo1.AddItem Screen.Fonts(i)

Siguiente

Combo1.ListIndex = 0

Para i = 6 a 40 Paso 2

Combo2. AddItem i

Siguiente

Combo2.ListIndex = 12

Text1.Font.Size = Combo2.Text

End Sub

Subopción privada1_Click()

Text1.ForeColor = vbBlack

End Sub

Subopción privada2_Click()

Texto1 .ForeColor = vbRed

End Sub

Sub Option3_Click()

Text1.ForeColor = vbBlue

Fin Sub