Make your own free website on Tripod.com
Volver a Barras de desplazamiento Ir al Indice Ir a Temporizadores
-9na.parte
El ejercicio siguiente es similar al anterior, pero su diferencia está en la utilización del código para indicar las propiedades del scrollbarllamado HScrolla, por lo que estas solo serán visibles en tiempo de ejecución. También se usa una etiqueta llamada Label 1 en lugar de un cuadro de texto.
Private Sub Form_Load()
HScrolla.Min = 1
HScrolla.Max = 100
HScrolla.SmallChange = 4
HScrolla.LargeChange = 10
End Sub
Private Sub Cmdsalir_Click()
End
End Sub
Private Sub HScrolla_Scroll()
Label1.Caption = "Valor " & HScrolla.Value
End Sub
Private Sub HScrolla_Change()
Label1.Caption = "Valor " & HScrolla.Value
End Sub

Este ejercicio, realizado con barras de desplazamiento es similar al realizado en "Manejo de colores 2da.parte". Observese cómo se simplifica el código al usar scrollbar en lugar de simples botones. Usaremos 3 barras de desplazamiento llamadas br para el rojo, bv para el verde y ba para el azul. También habrá una caja de verificación, si está en 1 (activa) el color de fondo se transformará en gris. Tres cuadros de texto, tbr (rojo), tbv (verde) y tba (azul), mostrarán el valor de cada barra de desplazamiento. Por último un botón btngenerar generará el valor de cada scrollbar en forma aleatoria, pudiendo igualmente el usuario tomar los valor que desee mediante el "dedo gordo".
Private Sub ba_Change()
tba.Text = ba.Value
Form1.BackColor = RGB(br.Value, bv.Value, ba.Value)
If Chkgris.Value = 1 Then
bv.Value = ba.Value
br.Value = ba.Value
End If
E
nd Sub
Private Sub br_Change()
tbr.Text = br.Value
Form1.BackColor = RGB(br.Value, bv.Value, ba.Value)
If Chkgris.Value = 1 Then
bv.Value = br.Value
ba.Value = br.Value
End If
End Sub
Private Sub bv_Change()
tbv.Text = bv.Value
Form1.BackColor = RGB(br.Value, bv.Value, ba.Value)
If Chkgris.Value = 1 Then
br.Value = bv.Value
ba.Value = bv.Value
End If
End Sub
Private Sub btngenerar_Click()
Randomize
br.Value = Rnd() * 255
bv.Value = Rnd() * 255
ba.Value = Rnd() * 255
End Sub
Private Sub btngenerar_Click()
Randomize
br.Value = Rnd() * 255
bv.Value = Rnd() * 255
ba.Value = Rnd() * 255
End Sub
En la próxima veremos Temporizadores (Timers)
Volver a Barras de desplazamiento Ir al Indice Ir a Temporizadores