USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  VScrollBar & HScrollBar
Postada em 15/8/2003 por d@®l@n            
As barras de deslocamento Vertical e Horizontal, permitem uma navegação fácil atraves de uma longa lista de item's ou de informação. Pode ser indicado para mostrar a velocidade ou o volume, etc,.

Algumas das propriedades importantes que convem referenciar:

LargeChange - indica a quantidade de deslocamento quando se clica no meio da barra.
SmallChange - indica a quantidade de deslocamento quando se clica nas setas no fim da barra
Value - indica o valor do deslocamento e pode variar entre 0 e 32.767
Max - Valor máximo do controlo
Min - Valor minimo do controlo
Função RGB() - retorna um valor numérico longo e indica a composição da cor no formato que se segue:
cor=RGB(RED, GREEN, BLUE)

No exemplo que se segue, criámos um Form com 3 objectos VScrollBar e uma Label cuja função é mostrar a cor através do deslocamento de qualquer das barras verticais.

  
Private Sub cor_Change(Index As Integer)
Const red = 0, green = 1, blue = 2
Dim corfinal As Long
corfinal = RGB(cor(red).Value, cor(green).Value, cor(blue).Value)
Label1.BackColor = corfinal
End Sub
Private Sub cor_Scroll(Index As Integer)
cor_Change (Index)
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2
     cor(i).Value = 0
     cor(i).Max = 0
     cor(i).Min = 255
     cor(i).LargeChange = 10
     cor(i).SmallChange = 1
Next i
End Sub


Private Sub cor_Change(Index As Integer)
Const red = 0, green = 1, blue = 2
Dim corfinal As Long
corfinal = RGB(cor(red).Value, cor(green).Value, cor(blue).Value)
Label1.BackColor = corfinal
Label5.Caption = corfinal
End Sub
Private Sub cor_Scroll(Index As Integer)
cor_Change (Index)
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2
cor(i).Value = 0
cor(i).Max = 0
cor(i).Min = 255
cor(i).LargeChange = 10
cor(i).SmallChange = 1
Next i
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página