Barra di scorrimento per le immagini: scroll bar

[Zananotto]

Ciao ragazzi!!! c'è qualcuno che sa come aggiungere la barra di scorrimento ad un'immagine?
Ci ho provato però, non so la sintassi, ma non so nemmeno se ci va una sintrassi.......
Aiuto.....
dhò:

[iguana13]

Accidenti avrò fatto un esempio almeno 5 volte... :master:

Prova a fare una ricerca..

[Zananotto]

Sono un pò duro, dove posso fare questa ricerca....

[iguana13]

Vabbè riscrivo tutto:

Metti un controllo Picture (Picture1), una Scrollbar verticale (Vscroll1) e una scrollbar orrizzontale (HScroll1).

Poi inserisci questo codice nel form:

'Variabile privata del form che cotiene l'immagine
dim Pic as stdPicture

'Routine per inserire la immagine
'Parametri: il percorso del file
Private Sub CambiaImmagine (Persorso as string)

'Carica l'immagine dal file
Pic = LoadPicture(Percorso)
'La mette nel controllo picture
Picture1.Picture = Pic

'Cambia i valori delle scroll
VScroll1.Min = 0
If Pic.Height > Picture1.Height
    VScroll1.Max = Pic.Height - Picture1.Height
    VScroll1.Visible = True
Else
    VScroll1.Visible = False
End If

HScroll1.Min = 0
If Pic.Width > Picture1.Width
    HScroll1.Max = Pic.Width - Picture1.Width
    HScroll1.Visible = True
Else
    HScroll1.Visible = False
End If

'Fine subroutine
End Sub


'Nell' evento Change delle scrollbar
Private Sub VScroll1_Change()
Picture1.PaintPicture(Pic,0,0,Picture1.Width,Picture1.Height,HScroll1.Value,VScroll1.Value)
End Sub

Private Sub VScroll1_Change()
Picture1.PaintPicture(Pic,0,0,Picture1.Width,Picture1.Height,HScroll1.Value,VScroll1.Value)
End Sub

Spero di non aver sbagliato niente...

[iguana13]

Originariamente inviato da Zananotto
Sono un pò duro, dove posso fare questa ricerca....

Nel forum ovviamente!
Comunque poco fa hanno cancellato tutto quindi...