Projeto Aprenda em Casa - Cursos gratuitos

Clube VB - Barras de Rolagem

Aula 18

O primeiro passo é não achar que o controle de barra de rolagem de uma janela padrão Windows (como por exemplo o de seu navegador) com o controle de barra de rolagem do VB6, visualizado em destaque na figura a seguir:

O primeiro controle em destaque é o da barra de rolagem horizontal e o segundo da barra de rolagem vertical. Normalmente utilizamos estes controles em um determinado projeto para incrementar (para mais ou para menos) valores, como por exemplo a intensidade de brilho em uma determinada figura.

Na tabela a seguir, observe as principais propriedades das barras de rolagem:

Propriedade	Valor
Max	Determina o valor máximo a ser atribuído ao controle
Min	Determina o valor mínimo a ser atribuído ao controle
LargeChance	Determina o quanto o valor da propriedade Value será incrementado quando utilizado o componente
SmallChange	Informa o grau de alteração da propriedade Value quando ocorrer o click em uma das extremidades da seta.

Vamos gerar um pequeno projeto para exemplificar o uso das barras de rolagem:

1. Inicie um novo projeto em VB;
2. Insira no formulário um componente HScrollBar e altere as seguintes propriedades do mesmo:

Propriedade	Conteúdo
Min	0
Max	1000
Value	100

Observe que o indicador da barra de rolagem estará na posição 100 de um total de 1000 posições válidas

3. Inclua dois CommandButtom´s no Form;
4. Altere a propriedade Caption do segundo botão para "Finaliza";
5. Apague o conteúdo da propriedade Caption do primeiro botão;
6. Dê um clique duplo no segundo botão e entre com a seguinte codificação para o mesmo:

Private Sub Command2_Click()
End
End Sub

7. Dê um duplo clique no controle HScrollBar e entre com a seguinte codificação:

Private Sub HScroll1_Change()
Command1.Caption = HScroll1.Value
End Sub

8. Agora execute o projeto.

Vá movimentando através de cliques nas partes extremas da barra de rolagem ou na parte livre de seu canal de volume e verifique que, o interior do primeiro botão irá assumindo o valor da barra de rolagem, conforme podemos observar a seguir:

Para que possamos compreender um pouco melhor este controle, vamos aproveitar o mesmo projeto efetuando as seguintes alterações:

9. Exclua o primeiro botão;
10. Inclua um Label e altere a propriedade Caption do mesmo para "aprendaemcasa.com.br"
11. Altere as propriedades Min e Max do HScrollBar para 6 e 24 respectivamente
11. Dê um clique duplo no controle de barra de rolagem e altere a sua codificação para:

Private Sub HScroll1_Change()
Label1.FontSize = HScroll1.Value
End Sub

Observe a seguir como ficou o seu formulário:

Agora execute o projeto e movimente o ponteiro da barra de rolagem. Observe que de forma automática o tamanho da fonte da frase que está dentro do label vai sendo ampliado ou reduzido, devido ao seguinte comando:

Label1.FontSize = HScroll1.Value

Neste comparamos o tamanho da fonte da frase (conteúdo do caption) do Label1 à posição do volume da barra de rolagem.

Voltar