Bom dia,

 

Gostaria de saber como eu faço para colocar um scroll em um objeto Image.....

 

obrigado

 

Victor

Primeiro Insira 1 componete VScroll, 1 HScroll, 1 PictureBox

Coloque o componente Image dentro do PictureBox e ajuste as propriedades Left = 0 e Top = 0

Insira o Código abaixo:

 

Private Sub HScroll1_Change()
    Image1.Left = -HScroll1.Value
End Sub

Private Sub HScroll1_Scroll()
    Image1.Left = -HScroll1.Value
End Sub

Private Sub VScroll1_Change()
    Image1.Top = -VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
    Image1.Top = -VScroll1.Value
End Sub

Mude as propriedades do VScroll1 e do HScroll1 conforme abaixo

 

LargeChage = 200

SmallChange = 200

Max = 2000

 

T+

Rinaldo

valeeeeu rinaldo...funcionou...fiz umas modificações e funcionou!!!