Differenze tra le versioni di "Riposizionare in modo circolare più oggetti posti in pila"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Il caso è quello in cui, dopo aver posizionato all'interno di un qualsiasi contenitore uno sull'altro diversi oggetti, si procede a riposizionarli in modo circolare. L'oggetto posto i...) |
|||
Riga 26: | Riga 26: | ||
'''Public''' Sub bt_MouseDown() | '''Public''' Sub bt_MouseDown() | ||
− | Last.Lower | + | Last<FONT color=#B22222>.Lower</font> |
'''End''' | '''End''' |
Versione delle 09:38, 4 gen 2014
Il caso è quello in cui, dopo aver posizionato all'interno di un qualsiasi contenitore uno sull'altro diversi oggetti, si procede a riposizionarli in modo circolare. L'oggetto 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 j As Byte For j = 0 To 3 With bt = New Button(Me) As "bt" .X = 20 .Y = 20 .W = 50 .H = 50 .Foreground = Color.Yellow .Text = Str(j) .Background = Color.RGB(200 / (j + 1), 70 * j, 50 * j) End With Next End Public Sub bt_MouseDown() Last.Lower End