Projeto Aprenda em Casa - Cursos gratuitos

Clube VB - Utilizando caixas de seleção

Aula 20

O controle que iremos estudar na aula de hoje é muito similar ao que estudamos no módulo de aula anterior, sendo que podemos destacar as seguintes diferenças entre eles:

Nas caixas de seleção representam um único controle cada;
As caixas de seleção não são mutuamente exclusivas.

Já as caixas de seleção possuem três configurações para a propriedade Value:

Selecionada;
Não selecionada;
Acinzentada

As propriedades mais utilizadas em caixas de seleção são:

Name
Caption
Value

Já o evento mais utilizado para este controle é o evento Click(), disparado quando o usuário marca a caixa de seleção em questão.

Vamos criar um simples projeto para que você entenda a funcionalidade destes controles:

1. Inicie um novo projeto no VB;
2. Insira no formulário, na parte superior do mesmo, dois controles de caixas de seleção (um abaixo do outro);
3. Altere a propriedade Caption da primeira caixa de seleção para NEGRITO:
4. Altere a propriedade Caption da segunda caixa de seleção para ITÁLICO;
5. Insira abaixo dos dois controles anteriores um Label e altere a propriedade Caption do mesmo para ABAIXO, DIGITE UM TEXTO;
6. Abaixo do label, insira um controle TextBox e apague o conteúdo da propriedade Text do mesmo. Ao final destes procedimentos, seu formulário terá o seguinte aspecto:

O objetivo deste projeto é simples: Sempre que a caixa NEGRITO estiver selecionada o conteúdo digitado no controle Text ficará em negrito e quando não selecionado, o conteúdo sairá do negrito. O mesmo acontecerá com o controle Itálico.

O próximo passo é codificar o evento Click do controle CheCkBox1. Veja a codificação a seguir:

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub

As linhas acima são simples de serem analisadas. Primeiro testamos se a propriedade Value do Ckeck1 é igual à 1, ou seja, se a mesma está ticada. Caso positivo, a font do tipo negrito (fontbold) do controle Text será true (ativada), caso contrário, será falsa (desativada).

Esta mesma lógica iremos utilizar para codificar o evento Click do Ckeck2, porém ao invés de utilizar FontBold, iremos utilizar FontItalic, conforme observamos na listagem a seguir:

Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub

Agora, execute o projeto, digite um conteúdo qualquer dentro da área de texto e marque/desmarque as duas caixas de seleções e veja os resultados.

Voltar