Problemas con Command, Label y TextBox en programación VB
Subcomando privado1_Click()
Text1.FontBold = No Text1.FontBold
setLab
End Sub
Subcomando privado2_Click()
Text1.FontItalic = No Text1.FontItalic
setLab
Fin Sub
Subcomando privado3_Click()
Text1.FontUnderline = No Text1.FontUnderline
setLab
End Sub
Sub privado setLab()
Label1.Caption = ""
Si Text1.FontBold Entonces Label1.Caption = " Negrita"
Si Text1.FontItalic Entonces Label1.Caption = Label1.Caption & " Cursiva "
Si Text1.FontUnderline Entonces Label1.Caption = Label1.Caption & " Subrayado"
Si Label1.Caption = "" Entonces Label1.Caption = Label1.Caption & " Predeterminado" p>
Label1.Caption = "Fuente actual:" amp; Label1.Caption
End Sub