Slider personalizado en Visual Basic [.NET]

Como crear un Slider en Visual Basic NET (2008 y 2010 en adelante)

Si sabes usar bien el photoshop podes crear sliders como esos.

Como primer paso tenemos que ir a visual basic y crear un nuevo proyecto y agregar:

2 PictureBoxs (A uno le ponemos en la propiedad Name "pic_slider" y al otro "pic_Barra"

pic_slider (Imagen que se mueve de un lado al otro)
pic_Barra (Imagen que permanece en el mismo lugar)

Una vez hecho eso vamos a los codigos, hacemos doble click en el formulario y borramos todo lo que tiene y pegamos este codigo:

Option Explicit On
Option Strict On

Public Class Form1
'Bandera para el evento MouseUp del picturebox
Dim bFlag As Boolean = False

' Valores máximos y mínimos del slider
Dim iValueMax As Integer
Dim iValueMin As Integer

Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

iValueMax = 100
iValueMin = 0
End Sub

Private Sub PictureBox2_MouseDown( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic_slider.MouseDown

Dim Posx As Integer
Dim PosTempx As Integer

bFlag = True

While bFlag = True
'Cursor.Position.X devuelve la posición x del cursor en la pantalla
Posx = System.Windows.Forms.Cursor.Position.X
PosTempx = Posx ' temporal par a la pos x

Posx = Posx - (Me.Left + pic_slider.Width)

If (PosTempx <> Posx) And _
(Posx >= pic_Barra.Left) And _
(Posx + pic_slider.Width) <= (pic_Barra.Left + pic_Barra.Width) Then

'Cambia el Left
pic_slider.Left = Posx

' value
Dim iValor As Integer
' muestra el Value en el label
iValor = CInt((pic_slider.Left - pic_Barra.Left) _
* (iValueMax - iValueMin) / _
(pic_Barra.Width - pic_slider.Width)) + iValueMin

lblValue.Text = iValor.ToString

End If
' para no ocupar todos los recursos mientras se desliza el slider
Application.DoEvents()
End While
End Sub

Private Sub PictureBox2_MouseUp( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic_slider.MouseUp


bFlag = False
' crear un tooltiptext
Dim ToolTip As New ToolTip()

With ToolTip
.IsBalloon = True ' tipo ballon
.ToolTipIcon = ToolTipIcon.Info ' icono
.ToolTipTitle = "Ejemplo ..." ' titulo
.InitialDelay = 1 'tiempo en aparecer
' texto
Dim sText As String = "Máximo: " & iValueMax.ToString & vbCrLf & _
"Mínimo: " & iValueMin.ToString & vbCrLf & _
"Valor: " & lblValue.Text.ToString
' Lo establece
.SetToolTip(pic_slider, sText)
End With
End Sub
End Class

Imagen final del proyecto:




Con eso ya tendriamos todo funcionando, Deje algunas anotaciones en el codigo para que sepan como funciona. Suerte con eso!