Differenze tra le versioni di "Riposizionare in modo circolare più oggetti posti in pila"
Da Gambas-it.org - Wikipedia.
| Riga 7: | Riga 7: | ||
Dim b As Byte | Dim b As Byte | ||
| − | + | For b = 0 To 3 | |
| − | |||
With bt = New Button(Me) As "bt" | With bt = New Button(Me) As "bt" | ||
| − | + | .X = 20 | |
| − | + | .Y = 20 | |
| − | + | .W = 50 | |
| − | + | .H = 50 | |
| − | + | .Foreground = Color.Yellow | |
| − | + | .Text = Str(b) | |
| − | + | .Background = Color.RGB(200 / (b + 1), 70 * b, 50 * b) | |
End With | End With | ||
| − | + | Next | |
'''End''' | '''End''' | ||
| Riga 25: | Riga 24: | ||
<FONT color=gray>' ''Il metodo ".Lower()" pone l'oggetto al livello più basso nella gerarchia dei Controlli appartenenti al medesimo "Genitore":''</font> | <FONT color=gray>' ''Il metodo ".Lower()" pone l'oggetto al livello più basso nella gerarchia dei Controlli appartenenti al medesimo "Genitore":''</font> | ||
| − | + | Last<FONT color=#B22222>.Lower</font> | |
'''End''' | '''End''' | ||
Versione attuale delle 09:01, 14 giu 2023
Il caso è quello in cui, dopo aver posizionato all'interno di un qualsiasi Contenitore uno sull'altro diversi Oggetti grafici, si procede a riposizionarli in modo circolare. L'Oggetto grafico posto in cima agli altri passerà in fondo alla pila degli Oggetti.
Nell'esempio, che segue, abbiamo quattro Button di diverso colore, posti uno sull'altro. Cliccando sul Button presente in quel momento in cima alla pila, esso verrà posto in fondo agli altri portando così in cima quello immediatamente sottostante:
Public Sub Form_Open()
Dim bt As Button
Dim b As Byte
For b = 0 To 3
With bt = New Button(Me) As "bt"
.X = 20
.Y = 20
.W = 50
.H = 50
.Foreground = Color.Yellow
.Text = Str(b)
.Background = Color.RGB(200 / (b + 1), 70 * b, 50 * b)
End With
Next
End
Public Sub bt_MouseDown()
' Il metodo ".Lower()" pone l'oggetto al livello più basso nella gerarchia dei Controlli appartenenti al medesimo "Genitore":
Last.Lower
End
