(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