[VB6] Zoom con VScrollbar e HScrollbar

[luzhnyi]

Salve,

Ho un problema che riguarda lo zoom in Visual Basic 6.0 di un oggetto Image attraverso le due scrollbar. Vorrei che voi mi potreste aiutare a darmi un codice già fatto.

Grazie di tutto.

Lužnyi.

[MMarzia]

linguaggio e versione vanno sempre specificati nel titolo


ti sposto nel subforum

[Brainjar]

Cosa intendi per zoom ?
Devi ingrandire/ridurre le dimensioni dell'immagine operando
tramite le barre ?

O vuoi semplicemente scorrere un'immagine più grande del controllo
che la contiene ?

Facci sapere.

Ciao,

[luzhnyi]

Si certo. Vorrei semplicemente ingrandire e ridurre l'immagine semplicemente con le barre.

Ciao. Grazie....

[Brainjar]

Questo è un esempio veloce di come procedere. Devi fare attenzione a
come imposti i valori delle scroll che possono arrivare al massimo
a 32767.

' Per caricare l'immagine ed impostare i valori iniziali 
' dichiari a livello di form :
Dim w As Long
Dim h As Long

Private Sub Command1_Click()
    Call ImageLoader 
End Sub 

Private Sub ImageLoader()
' Questa sub la richiami una sola volta per ogni immagine.
' A te il compito di variare  "PathDellaImmagine" che fa la 
' forma "C:\MiaDir\MiaBmp.bmp" ad esempio 
' 
' Al caricamento ricavi i valori iniziali
    w = LoadPicture("PathDellaImmagine").Width 
    h = LoadPicture("PathDellaImmagine").Height 

' Imposti i valori iniziali delle scroll bars 
' Con queste impostazioni vai dalla metà al doppio dell'immagine
' (Devi, però agire su w e h, per non mandare il valore delle
' scroll in overflow.)

    HScroll1.Min = w \ 2
    HScroll1.Max = w * 2
    VScroll1.Min = h \ 2
    VScroll1.Max = h * 2
    HScroll1.Value = w
    VScroll1.Value = h 

' Caricamento iniziale immagine    
    Image1.Picture = LoadPicture("PathDellaImmagine", vbLPCustom, , HScroll1.Value, VScroll1.Value)
End Sub 


Private Sub HScroll1_Change()
    Call RefreshPicture
End Sub

Private Sub VScroll1_Change()
    Call RefreshPicture
End Sub

Private Sub RefreshPicture()
    If HScroll1.Value = 0 Or VScroll1.Value = 0 Then Exit Sub
    Image1.Height = VScroll1.Value
    Image1.Width = HScroll1.Value
    Label2.Caption = VScroll1.Value
    Label1.Caption = HScroll1.Value
End Sub

Ciao,