Differenze tra le versioni di "Spostare la barra indicatrice di una ProgressBar con il mouse"

Da Gambas-it.org - Wikipedia.
 
(2 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Per spostare manualmente con il mouse la barra colorata che indica il valore di una ''ProgressBar'', si può adottare il seguente semplice codice:
+
Per spostare manualmente con il mouse la barra colorata che indica il valore di una ''ProgressBar'', si possono adottare alemno due modalità.
  Public Sub ProgressBar1_MouseDown()
+
 
 +
===Cliccando con il puntatore del mouse sulla ''ProgressBar''===
 +
In questo caso la barra colorata si imposterà fin là dove abbiamo cliccato con il puntatore del mouse nella ''ProgressBar'':
 +
  Public Sub ProgressBar1_MouseDown()   <FONT Color=gray>' ''...oppure ''"_MouseUp()"</font>
 
   
 
   
 
   ProgressBar1.Value = Mouse.X / ProgressBar1.W
 
   ProgressBar1.Value = Mouse.X / ProgressBar1.W
 
   
 
   
 
  End
 
  End
E' possibile anche far scorrere la barra colorata spostando il mouse mentre si tiene premuto con il tasto sulla ''ProgressBar'':
+
 
 +
===Spostando il puntatore mouse sulla ''ProgressBar''===
 +
E' possibile far scorrere la barra colorata spostando il puntatore del mouse, mentre si tiene premuto con il tasto sulla ''ProgressBar'':
 
  Public Sub ProgressBar1_MouseMove()
 
  Public Sub ProgressBar1_MouseMove()
 
   
 
   

Versione attuale delle 19:14, 16 set 2024

Per spostare manualmente con il mouse la barra colorata che indica il valore di una ProgressBar, si possono adottare alemno due modalità.

Cliccando con il puntatore del mouse sulla ProgressBar

In questo caso la barra colorata si imposterà fin là dove abbiamo cliccato con il puntatore del mouse nella ProgressBar:

Public Sub ProgressBar1_MouseDown()   ' ...oppure "_MouseUp()"

  ProgressBar1.Value = Mouse.X / ProgressBar1.W

End

Spostando il puntatore mouse sulla ProgressBar

E' possibile far scorrere la barra colorata spostando il puntatore del mouse, mentre si tiene premuto con il tasto sulla ProgressBar:

Public Sub ProgressBar1_MouseMove()

 ProgressBar1.Value = Mouse.X / ProgressBar1.W

End