Sección de controles Ocx para Visual basic , Dll , Activex
<Volver> - Anterior - Siguiente
Contenido.
Este módulo que hice, lo que hace es simular un control Slider mediante un control Picturebox y dibujar la barra con los métodos gráficos de visual basic.
Una captura del ejemplo:
Al ejemplo se le pueden agregar algunas opciones, como permitir que la barra o slider sea Vertical, colocarle un ToolTip que se visualice siempre que se mueva el Slider.
Para usar el módulo primero hay que pasarle al método iniciar el control Picture, por ejemplo
Set Slider = New Class1
Slider.Iniciar Picture1
Luego se pueden establecer las propiedades, como el color del contorno
Slider.ColorContorno = vbred
..El color del Slider
Slider.ColorSlider = vbBlue
.. El grosor del borde y de la barra
Slider.SizeContorno = 5
Slider.SizeBarra = 3
.. El valor Máximo de la barra
Slider.Max = 500
Para recuperar el valor actual se utiliza el evento ChangeValue. Dentro del evento se puede consultar el valor de la propiedad Value, por ejemplo para mostrarlo en un control Label:
Private Sub Slider_ChangeValue()
Label1.Caption = Slider.Value
End Sub
Nota: Antes de establecer las propiedades , hay que iniciar el control con el método Iniciar y pasarle el control Picture, ya que si no dará error dentro del módulo Class1. Esto se puede solucionar obviamente con alguna rutina de error simple que verifique si se ha inicializado el PictureBox.
Permite indicar el color de fondo y el color del botón al presionarlo.
Buscar en Recursos vb con Google
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar