Sección de códigos , trucos y ejemplos para visual basic

200 - Crear un Slider con gráficos

<Volver> - Anterior - Siguiente

Contenido

Slider horizontal
Slider circular
Enlaces relacionados

Slider horizontal

Ejemplo para crear un simple slider utilizando dos controles Picturebox o controles image

vista del ejemplo con el slider creado con gráficos

Descargar

Crear un gráfico para la barra y otro para el Slider.

El gráfico para la barra colocarlo en un control PictureBox llamado Pic_Barra. La imagen del Slider en un picture llamado Pic_Slider

También agregar tres controles Label para visualizar el valor máximo, mínimo y el valor actual, llamados Label1, Label2 y Label3

Código fuente en el formulario:

Option Explicit 'Estructura POINTAPI para usar con GetCursorPos Private Type POINTAPI X As Long Y As Long End Type ' Api GetCursorPos para recuperar la posición x del Mouse Private Declare Sub GetCursorPos Lib "User32" (lpPoint As POINTAPI) 'Flag para el evento MouseUp para finalizar el arrastre Dim Flag As Boolean ' Maximo y minimo del slider Dim Maximo As Integer Dim Minimo As Integer Private Sub Pic_Slider_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Dim c_x As POINTAPI Dim Temp_X As Long Flag = True While Flag = True 'Alamcena el valor de la posición x del puntero Temp_X = c_x.X GetCursorPos c_x ' pos x en la barra c_x.X = c_x.X - (Me.Left / Screen.TwipsPerPixelX) - Pic_Slider.Width ' Comprueba el área If (Temp_X <> c_x.X) And (c_x.X >= Pic_Barra.Left) And _ (c_x.X + Pic_Slider.Width <= Pic_Barra.Left + Pic_Barra.Width) Then 'Mueve el slider Pic_Slider.Left = c_x.X End If ' value del slider Label1 = Int((Pic_Slider.Left - Pic_Barra.Left) _ * (Maximo - Minimo) / _ (Pic_Barra.Width - Pic_Slider.Width)) + Minimo DoEvents Wend End Sub Private Sub Pic_Slider_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) 'Coloca el Flag en False para que termine el bucle en MouseDown Flag = False End Sub Private Sub Form_Load() 'Modo de escala del form en pixeles Me.ScaleMode = vbPixels Maximo = 100 Minimo = 0 'Valores max y min Label2 = Minimo Label3 = Maximo 'Autoajustar los picture Pic_Slider.AutoSize = True Pic_Barra.AutoSize = True Me.Caption = " Ejemplo de Slider con gráficos " End Sub

Slider circular

Este es un simple control ocx programado por Microsoft , de un Slider circular o redondo

vista previa del control ocx

Descargar

Nota: el control no está compilado. para probarlo, ejecutar el grupo de proyectos de visual basic ( archivo grupo1.vbg )

Enlaces relacionados

Control Slider de visual basic

Buscar en Recursos vb