SCROLL BAR POUR IMAGE

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ScrollBar avec une photo
'par NFO (NeoFO)
'extrait du programme Bitmap Project (2e concours)
'Cette page contient un picturebox(cadre),une imagebox(grandeimage) et deux scrolls
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Form_Load()
HScroll1.Max = -100
VScroll1.Max = -100
End Sub

Private Sub HScroll1_Change()
'Régalge de l'image horizontalement
biz = GrandeImage.Width - Cadre.Width 'Différence de taille entre le cadre et l'image
GrandeImage.Left = biz * HScroll1.Value / 100
End Sub

Private Sub HScroll1_Scroll()
'Régalge de l'image horizontalement
If HScroll1.Value < HScroll1.Max Then
    HScroll1.Value = HScroll1.Value + 10
End If
biz = GrandeImage.Width - Cadre.Width
GrandeImage.Left = biz * HScroll1.Value / 100
End Sub

Private Sub VScroll1_Change()
'Régalge de l'image vzerticalement
biz = GrandeImage.Height - Cadre.Height
GrandeImage.Top = biz * VScroll1.Value / 100
End Sub

Private Sub VScroll1_Scroll()
'Régalge de l'image verticalement
If VScroll1.Value < VScroll1.Max Then
    VScroll1.Value = VScroll1.Value + 10
End If
biz = GrandeImage.Height - Cadre.Height
GrandeImage.Top = biz * VScroll1.Value / 100
End Sub