Differenze tra le versioni di "Spostare o ridimensionare un oggetto a seconda del punto ove si clicca"
Da Gambas-it.org - Wikipedia.
Riga 18: | Riga 18: | ||
'''Public''' Sub TextBox1_MouseMove() | '''Public''' Sub TextBox1_MouseMove() | ||
− | + | <FONT color=gray>' ''Se si clicca nella parte sinistra della "TextBox", pari ai 4/5 dell'intera dimensione dell'Oggetto, allora la "TextBox" potrà essere spostata sul "Form":''</font> | |
− | + | If Mouse.X < TextBox1.W * 0.8 Then | |
− | <FONT color=gray>' ''Se si clicca | + | With TextBox1 |
− | + | .X = .X + Mouse.X - spx | |
− | + | .Y = .Y + Mouse.Y - spy | |
− | + | End With | |
− | + | Else | |
− | + | <FONT color=gray>' ''Se si clicca e si sposta il Mouse nella restante parte a destra della "TextBox", pari a 1/5 della dimensione dell'Oggetto, allora si otterrà un ridimensionamento della "TextBox":''</font> | |
− | + | TextBox1.Resize(Mouse.X, Mouse.Y) | |
− | + | Endif | |
− | <FONT color=gray>' ''Se si clicca e si sposta il | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
TextBox1.Mouse = 18 | TextBox1.Mouse = 18 | ||
Riga 45: | Riga 36: | ||
'''Public''' Sub TextBox1_MouseUp() | '''Public''' Sub TextBox1_MouseUp() | ||
− | TextBox1.Mouse = Mouse. | + | TextBox1.Mouse = Mouse.Arrow |
'''End''' | '''End''' |
Versione delle 09:24, 28 set 2020
Vediamo il caso esemplificativo in cui un oggetto verrà spostato oppure ridimensionato a seconda del punto dell'oggetto medesimo, nel quale si clicca e si agisce con il puntatore del mouse.
Nell'esempio abbiamo un TextBox sul Form. Nel codice si è stabilito che, se si cliccherà ed agirà con il mouse all'interno dei 4/5 dell'oggetto, considerando l'area dal margine sinistro verso destra, il TextBox subirà uno spostamento sul Form. Se invece verrà interessata la restante quinta parte dell'area del TextBox (quella tutta a destra), allora l'oggetto subirà una modifica delle sue dimensioni sulla base, ovviamente, dell'azione del mouse su di esso.
La parte essenziale del codice potrà essere la seguente:
Private spx As Short Private spy As Short Public Sub TextBox1_MouseDown() spx = Mouse.X spy = Mouse.Y End Public Sub TextBox1_MouseMove() ' Se si clicca nella parte sinistra della "TextBox", pari ai 4/5 dell'intera dimensione dell'Oggetto, allora la "TextBox" potrà essere spostata sul "Form": If Mouse.X < TextBox1.W * 0.8 Then With TextBox1 .X = .X + Mouse.X - spx .Y = .Y + Mouse.Y - spy End With Else ' Se si clicca e si sposta il Mouse nella restante parte a destra della "TextBox", pari a 1/5 della dimensione dell'Oggetto, allora si otterrà un ridimensionamento della "TextBox": TextBox1.Resize(Mouse.X, Mouse.Y) Endif TextBox1.Mouse = 18 End Public Sub TextBox1_MouseUp() TextBox1.Mouse = Mouse.Arrow End