Quando il modulo si apre, chiama la routine 'Form_Resize'.
Prova questo codice.
bFirstTime As Boolean ''*****************
Public Sub Form_Resize()
If bFirstTime = False Then ''*****************
bFirstTime = True ''*****************
Return ''*****************
Endif ''*****************
With PictureBox1
.x = 0 ''*****************
.y = 0 ''*****************
.h = Me.H
.w = Me.W
End With
Print Me.x & " " & Me.y & " / " & PictureBox1.x & " " & PictureBox1.y
End
:ciao:
@cogier
grazie per il codice, ma io non capisco perchè la proprietà x e y cambino durante un resize e si debba attribuire a PictureBox.X il valore 0 (zero) e non il valore Fmain.X (Me) che dovrebbe essere ancora 0 (zero) se ridimensiono spostando l'angolo in basso a destra. :-\
@Gianluigi
:P :P
:P :P :P
Come ti ha già detto Cogier all'apertura ottieni un resize
Se tu provi a scrivere:
Print Me.X, me.Y, Me.W, me.H
dovresti capire.
Oppure è troppo caldo :rotfl:
P.S. X e Y assegnano o ritornano il punto in alto a sinistra dell'immagine della form ecc.