...forse :-X anche così:
Public Sub Form_Resize()
' in modo proporzionale:
With Button1
.X = ((FMain.W * 80) / 100) - Button1.W
.Y = ((FMain.H * 80) / 100) - Button1.H
End With
' in modo assoluto:
With Button2
.X = FMain.W - 100
.Y = FMain.H - 100
End With
End
Medesimo ragionamento se vuoi usare un contenitore, ad esempio un Panel. Inserisci il/i Button nel Panel, poi al posto del With Button porrai With Panel1.
....l'area utile è identificabile tramite le proprietà ClientH/ClientW, oppure ClientWidth/ClientHeight.
Dunque... vediamo... allora i parametri dovrebbero essere impostati - nel mio esempio - così ?
Public Sub Form_Resize()
' in modo proporzionale:
With Button1
' le coordinate X ed Y del Button sono poste in un punto
' uguale alla differenza tra l'80% della dimensione dell'area "utile"
' del Form e la dimensione del Button medesimo:
.X = ((FMain.ClientW * 80) / 100) - Button1.W
.Y = ((FMain.ClientH * 80) / 100) - Button1.H
End With
End
...va bene utilizzate così quelle proprietà ? :-X
Qui più che imparare si diventa alcolisti :rolleyes:
...è quello che ho pensato anch'io. ;D
E' però probabile che md9327 abbia installato in sé qualche strano componente, tipo... gb.beer, che lo difende: :-\
Public Sub Button1_Click()
Dim alcool As Float
Dim birra_qualsiasi As Beer
alcool = beveBirra(birra_qualsiasi)
Print alcool
End
Public Function beveBirra(litrozzo As Beer) As Float
Dim residuoAlcool As Float
residuoAlcool = metabolizza(litrozzo)
Return residuoAlcool
End
...alla fine il risultato in console è uguale a zero ! :o