Problemi con PictureBox

[kicco]

 
Ho avuto una serie di anomalie che alla fine ho sintetizzato nel programmino allegato.
Al lancio la PictureBox occupa tutto il Form. Non dovrebbe.
Se ridimensiono il Form, la Picturebox acquisisce una nuova proprietà X e una Y. 
Sto facendo qualche errore madornale o il caldo e l'età...
 

[cogier]

Quando il modulo si apre, chiama la routine 'Form_Resize'.

Prova questo codice.

Codice: [Seleziona]

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

[Gianluigi]

Ho avuto una serie di anomalie che alla fine ho sintetizzato nel programmino allegato.
Al lancio la PictureBox occupa tutto il Form. Non dovrebbe.
Se ridimensiono il Form, la Picturebox acquisisce una nuova proprietà X e una Y. 
Sto facendo qualche errore madornale o il caldo e l'età...
 

Si, si le ultime due condiderazioni sono esatte 

 

[kicco]

 
@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
 

[Gianluigi]

@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
 

 

Come ti ha già detto Cogier all'apertura ottieni un resize

Se tu provi a scrivere:

Codice: [Seleziona]

  Print Me.X, me.Y, Me.W, me.H

dovresti capire.
Oppure è troppo caldo 

P.S. X e Y assegnano o ritornano il punto in alto a sinistra dell'immagine della form ecc.

[kicco]

Come ti ha già detto Cogier all'apertura ottieni un resize

e ne prendo atto, ma se nel resize muovo l'angolo inferiore di destra, sto cambiando W e H, credo che X e Y rimangano a zero.

Le coordinate del Form hanno  x=0 e y =0 in alto a sinistra vero?

[Gianluigi]

Scherzi a parte.
Tu qui assegni alla picture le stesse dimensioni della Form e lo fai quando ridimensioni quindi è tutto come deve essere.
Si X e Y sono sempre '= 0'

[kicco]

Si X e Y sono sempre '= 0'

e no, se vedi il mio programmino
Me.x e Me.y non rimangono a zero.
Forse non riesco a spiegarmi....

[Gianluigi]

Si, finalmente ho capito cosa intendi dire.
Comunque siamo alle solite, non si deve usare così la grafica in Gambas.
Ci si risente fra mezz'ora

 

[Gianluigi]

Si, finalmente ho capito cosa intendi dire.
Comunque siamo alle solite, non si deve usare così la grafica in Gambas.
Ci si risente fra mezz'ora

 

Dipende cosa devi fare ad esempio se imposti la propietà Arrangement su Vertical e la Proprieta Expand della PictureBox a True, funziona.
Comunque si tratta di un bug e va segnalato, ma allega un programma con solo:

Codice: [Seleziona]

Print Me.X;; Me.Y

nella Public Sub Resize della form e spiegando che occorre ridimensionare la finestra.