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...") |
|||
Riga 23: | Riga 23: | ||
With Button1 | With Button1 | ||
.Resize(dmw, dmh) | .Resize(dmw, dmh) | ||
+ | End With | ||
+ | |||
+ | 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: | ||
+ | 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 With | ||
End | End |
Versione delle 09:20, 2 giu 2023
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 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 With Button1 .Resize(dmw, dmh) End With 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:
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