Auto size di una form (VB&)

[gaullo]

Ciao raga ho una form che uso per visualizzare delle immagini.
Uso una picture con auto size = true.
Poi imposto le dimesioni della form = a quelle della picture.
Va tutto bene finche l'immagine è più piccola della risoluzione dello schermo. Di più non va e mi taglia l'immagine.
Cosa devo fare per far apparire im questo caso le scrollbar e far diventare la picture grande quanto voglio, e la form a tutto schermo??? A.. la form è fixed dialog!

Private Sub Form_Load()
Picture1.Picture = LoadPicture(App.Path & sedi.vissedi.Recordset("piantina"))
Me.Width = Picture1.Width + 1
Me.Height = Picture1.Height + 380
End Sub

[verodami]

Originariamente inviato da gaullo
Ciao raga ho una form che uso per visualizzare delle immagini.
Uso una picture con auto size = true.
Poi imposto le dimesioni della form = a quelle della picture.
Va tutto bene finche l'immagine è più piccola della risoluzione dello schermo. Di più non va e mi taglia l'immagine.
Cosa devo fare per far apparire im questo caso le scrollbar e far diventare la picture grande quanto voglio, e la form a tutto schermo??? A.. la form è fixed dialog!

Private Sub Form_Load()
Picture1.Picture = LoadPicture(App.Path & sedi.vissedi.Recordset("piantina"))
Me.Width = Picture1.Width + 1
Me.Height = Picture1.Height + 380
End Sub

Per la form a tutto schermo, imposti la proprietà Windowstate a 2

[gaullo]

Grazie, ma almeno questo non era un problema....
Come faccio a verificare che l'immagine superi la risoluzione???
E in quel caso far comunque diventare la picture grande quanto l'immagine e far apparire le scrolbar???

[Markooo]

Per vedere se supera la risoluzione si potrebbe provare:

if picture1.Width > Screen.Width then 'gestisco scroll
if picture1.Height > Screen.Height then 'gestisco scroll ecc.

Ragazzi correggetemi se ho detto una cavolata,ma intereserebbe anche a me risolvere questa cosa!

[gaullo]

Si quel controllo funziona....

If Picture1.Width > Screen.Width Or Picture1.Height > Screen.Height Then
   Me.WindowState = 2
End If

Adesso mi si presentano 2 probl.:

-Esiste il modo di impostare l'allineamento della picture al centro della form, senza dovermi creare una sub di calcoli su top e left ecc..?

-Come diamine faccio per far apparire le scrolbar alla form? Perchè
la picture1 impostata autosize non diventa più grande delle dimensioni max dello screen?

Spero che qualcuno si faccia vivo!!!!:sexpulp:

[ddies]

No devi farti i calcoli di top e left per centrarla

pic1.left=(me.scalewidth-pic1.width)/2
pic1.top=(me.scaleheight-pic1.height)/2

per le scrollbar alla form devi usare il componente
Microsoft Forms 2.0 presente, credo, sotto la voce 'Progetto (Project)' del menu di vb6

[gaullo]

Il che sarebbe giusto se si riuscisse a forzare le dimesioni del form.
Purtroppo non riesco a fargli superare quelle dello schermo!!!!
Come faccio a creare un form (nel caso che l'immagine sia maggiore delle dimensioni dello schermo ) grande quanto la picture e attivare le scrolbar????
Se percaso l'argomento è già stato trattato mi date il link, perchè ho fatto una ricerca ma non ho trovato nulla..

[gaullo]

Il che sarebbe giusto se si riuscisse a forzare le dimesioni del form.
Purtroppo non riesco a fargli superare quelle dello schermo!!!!
Come faccio a creare un form (nel caso che l'immagine sia maggiore delle dimensioni dello schermo ) grande quanto la picture e attivare le scrolbar????
Se percaso l'argomento è già stato trattato mi date il link, perchè ho fatto una ricerca ma non ho trovato nulla..

[ddies]

Nelle proprietà della picture c'e' anche autosize e questo fa in modo che il controllo picture si ridimensioni a seconda della figura che ci metti dentro, per quando riguarda le scrollbar appena un controllo eccede le dimensioni del form le scrllbar si attivano automaticamente, ovviamente se usi le Micorsoft Forms 2.0

[Berello]

Un consiglio: metti nella form un controllo picture come hai già fatto e un altro controllo, questa volta image, di dimensioni pari alla risoluzione, quindi alla grandezza dello schermo.
Quando la Picture ha dimensioni maggiori della risoluzione, la nascondi (Pic1.Visible = False) e fai apparire il controllo image, inserendo come immagine la stessa immagine della picture e attivando la proprietà che riduce l'immagine alla grandezza del controllo Image. Quando un'immagine sarà più grande dello schermo, verrà rimpicciolita.
Risolverai il problema dello scroll, però in questo modo non avrai la stessa qualità per le immagini grandi...

da Berello