Visualizza wikitesto di Creare uno pseudo-slider

Mostriamo di seguito un possibile codice per creare graficamente una sorta di ''slider'':
 Private pn As Panel
 Private PictureBox1 As PictureBox
 <FONT Color=gray>' ''Valore minimo che lo Slider può assumere:''</font>
 Private Const MINIMUM As Short = 0
 <FONT Color=gray>' ''Valore massimo che lo Slider può assumere.''
 ' ''La "quantità" di valori rappresentabili dallo "Slider" è data da "(MAXIMUM - MINIMUM) + 1".''</font>
 Private Const MAXIMUM As Short = 100
 <FONT Color=gray>' ''Imposta la posizione Y in verticale della PictureBox e del valore massimo dello Slider:''</font>
 Private Const ALTERA As Short = 40
 <FONT Color=gray>' ''Imposta l'ambitus della posizione dei valori dello Slider: i valori rappresentabili sono disposti nell'area di dimensione in verticale uguale alla somma "ALTERA" (massimo valore) + "AMBITUS".''
 ' ''La coordinata "Y" data dalla somma "ALTERA + AMBITUS" rappresenta la posizione del valore minimo assunto dallo Slider.''</font>
 Private Const AMBITUS As Short = 159
 Private Const PBW As Byte = 24
 Private Const PBH As Byte = 32
 Private Const PNH As Short = ALTERA * 2 + AMBITUS + PBH
 <FONT Color=gray>' ''Calcola il rapporto fra le due grandezze:''</font>
 Private rapp As Single = (AMBITUS + 1) / (MAXIMUM + 1)
 Private x As Short
 Private y As Short
 Private valore As Short
 
 '''Public''' Sub _new()
 
  With pn = New Panel(Me) As "Panel1"
    .W = PBW * 3
    .H = PNH
    .X = (Me.W / 2) - (.W / 2)
    .Y = 50
    .Background = Color.SoftYellow
  End With
  With PictureBox1 = New PictureBox(pn) As "PictureBox1"
    .W = PBW
    .H = PBH
    .X = (pn.W / 2) - (.W / 2)
    .Y = PNH - ALTERA - PBH
    .Background = Color.Red
  End With
 
 '''End'''
 
 '''Public''' Sub PictureBox1_MouseDown()
 
  x = Mouse.X
  y = Mouse.Y
  
 '''End'''
 
 '''Public''' Sub PictureBox1_MouseMove()
 
  Dim pmy As Short = PictureBox1.Y + Mouse.Y - y
 
  If (pmy > (ALTERA - 1)) And (pmy < (ALTERA + AMBITUS + 1)) Then
    With PictureBox1
      .Move(.X, pmy)
 <FONT Color=gray>' ''Valore corrente assunto dallo "Slider":''</font>
      valore = Abs(Fix((PictureBox1.Y - ALTERA) / rapp) - MAXIMUM)
      Print "Valore = "; valore
    End With
  Endif
 
 '''End'''
Ovviamente con le opportune modifiche e integrazioni tale codice può essere trasformato in una specifica ''Classe''.