Checkbox enabled False e True.

Question

Olá, to com mais um probleminha no formulario.

 

Tenho um formulario que tem as opções de colocar negrito italico e sublinhado, meu código ta mais ou menos assim, por enquanto coloquei somente no botão negrito.

 

Quando outras check's estão selecionados ele mantem a formatação, deu certo, mas quero saber como remover a formatação. Quando marcar a caixa do negrito ele aplica e quando desmarcar ele remove.

 

Minha duvida é a seguinte: Vou ter que criar uma macro pra cada ação?

Uma que coloque o negrito e outra que remova? Uma que deixe negrito e italico?

E assim por diante ou há outra forma mais facil de fazer isso???

 

Segue o código que estou editando. Obrigado.... 

 

Code Snippet

Private Sub chnegrito_Click()

If chnegrito.Enabled = True Then
    negrito
End If

If chitalico.Value = True Then
    italico
End If

If chsublinhado.Value = True Then
    sublinhado
End If

End Sub

 

 

 

Answer 1

 

Criei no meu form um label....E para cada check criei uma ação..Crie no seu form um label e vê se era essa a sua dúvida..

 

Code Snippet

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        Label1.Font.Bold = True
   
    Else
        Label1.Font.Bold = False
        End If
End Sub

 

 

 

Code Snippet

Private Sub CheckBox2_Click()
    If CheckBox2 = True Then
        Label1.Font.Italic = True
   
    Else
        Label1.Font.Italic = False
        End If
End Sub

 

 

Até..

Answer 2

Valeu.... era isso mesmo que eu tava precisando, facilitou meu trabalho.

Obrigado