Ringrazio vivamente
i miei amici Sotema e Milio per i loro interventi.
Faccio qualche prova al riguardo
e faccio sapere....
Prove effettuate (
nessuna gestione dei
Group):
Soluzione di Sotema
Ovviamente funziona (si può utilizzare volendo anche Panel).
Ho provato, poi, la strada indicata da Sotema per ridimensionare in un solo momento non solo la proprietà
Width, ma anche quella
Height. Per fare ciò ho così proceduto:
Ho inserito prima un HBox, quindi un VBox, e in quest'ultimo un Button; impostando la gerarchia dei tre oggetti nella sequenza prima espressa, ossia: HBox-->VBox-->Button.
Per quel riguarda il codice ho fatto così:
Public Sub soluzioneSotema()
Dim btn As Button
Dim vb As VBox
' ridimensiono VBox.Width (e quindi indirettamente anche Button.Width)
For Each vb In HBox1.Children
vb.Width = 10
Next
' passo quindi a ridimensionare direttamente Button.Height
For Each btn In VBox1.children
btn.H = 10
Next
End
Ho ottenuto il contemporaneo ridimensionamento di entrambe le proprietà del Button.
Soluzione di Milio (con il .
Tag)
Funziona. Rapida e semplice.
Provo a modificare entrambe le dimensioni del Button:
Public Sub soluzioneMilio()
Dim btn As Button
For Each btn In Panel1.Children
If btn.Tag = "milio" Then
btn.W = 60
btn.H = 10
Endif
Next
End
Molto rapido.
Molto bene.
Ancora grazie ad entrambi.