locked
Checkbox enabled False e True. RRS feed

  • Pergunta

  • 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

     

     

     

    quarta-feira, 30 de abril de 2008 15:04

Respostas

  •  

    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é..
    quarta-feira, 30 de abril de 2008 17:18

Todas as Respostas

  •  

    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é..
    quarta-feira, 30 de abril de 2008 17:18
  • Valeu.... era isso mesmo que eu tava precisando, facilitou meu trabalho.

    Obrigado

     

    quarta-feira, 30 de abril de 2008 20:01