|
|
|
|
|
|
|
|
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
|
|
|
|
|
