Differenze tra le versioni di "Modificare la dimensione di un Oggetto grafico ruotando la rotellina del mouse"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per modificare la dimensione di un Oggetto grafico ruotando la rotellina del mouse, è possibile adottare il seguente codice: Private dmw As Short Private dmh As Short...")
 
 
(4 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Per modificare la dimensione di un Oggetto grafico ruotando la rotellina del mouse, è possibile adottare il seguente codice:
+
Per modificare la dimensione di un Controllo grafico ruotando la rotellina del mouse, è possibile adottare il seguente codice:
 
  Private dmw As Short
 
  Private dmw As Short
 
  Private dmh As Short
 
  Private dmh As Short
Riga 20: Riga 20:
 
   dmw += Mouse.Delta
 
   dmw += Mouse.Delta
 
   dmh += Mouse.Delta
 
   dmh += Mouse.Delta
 +
 +
  Button1.Resize(dmw, dmh)
 +
 +
End
 +
Se si vuole modificare con salti in percentuale (ad esempio ad ogni passo della rotellina del mouse apportando una variazione delle dimensioni del ''Controllo'' grafico del 10% della sua dimensione iniziale), è possibile adottare il seguente codice:
 +
Private dmw As Short
 +
Private dmh As Short
 +
 +
 +
Public Sub Form_Open()
 +
 +
  With Button1
 +
    .W = 100
 +
    .H = 100
 +
    dmw = .W
 +
    dmh = .H
 +
  End With
 +
 +
End
 +
 +
 +
Public Sub Form_MouseWheel()
 
   
 
   
 
   With Button1
 
   With Button1
−
     .Resize(dmw, dmh)
+
     .Resize(.W + (dmw * (Mouse.Delta / 10)), .H + (dmw * (Mouse.Delta / 10)))
 
   End With
 
   End With
 
   
 
   
 
  End
 
  End

Versione attuale delle 05:15, 20 giu 2023

Per modificare la dimensione di un Controllo grafico ruotando la rotellina del mouse, è possibile adottare il seguente codice: 

Private dmw As Short
Private dmh As Short


Public Sub Form_Open()

 With Button1
   .W = 100
   .H = 100
   dmw = .W
   dmh = .H
 End With

End


Public Sub Form_MouseWheel()

 dmw += Mouse.Delta
 dmh += Mouse.Delta

 Button1.Resize(dmw, dmh)

End

Se si vuole modificare con salti in percentuale (ad esempio ad ogni passo della rotellina del mouse apportando una variazione delle dimensioni del Controllo grafico del 10% della sua dimensione iniziale), è possibile adottare il seguente codice: 

Private dmw As Short
Private dmh As Short


Public Sub Form_Open()

 With Button1
   .W = 100
   .H = 100
   dmw = .W
   dmh = .H
 End With

End


Public Sub Form_MouseWheel()

 With Button1
   .Resize(.W + (dmw * (Mouse.Delta / 10)), .H + (dmw * (Mouse.Delta / 10)))
 End With

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Modificare_la_dimensione_di_un_Oggetto_grafico_ruotando_la_rotellina_del_mouse&oldid=34246"