Utilisation de vsscroll et hsscroll avec une image

Télécharger le projet
Commenter

Description

Ce code est pret à etre utilisé.
Il faut télécharger le zip et lancer le projet vb.
J'utilise VSScroll et HSScroll pour afficher une image qui ne tiend pas un controle image
Thierry RICARD

Source / Exemple : 


Option Explicit
'procedure de gestion des images
'AUTEUR : RICARD THIERRY
'DATE   : 02/10/2000
'Email : katyrd@infonie.fr
'http://perso.infonie.fr/katyrd

Private Sub Form_Load()
    Image1.Left = 0
    HS.Min = 0
    HS.Max = Image1.Width - Frame1.Width
    VS.Min = 0
    VS.Max = Image1.Height - Frame1.Height
    Option1.Value = 1
End Sub

Private Sub HS_Change()
    Image1.Left = 1 - HS.Value
End Sub

Private Sub HS_Scroll()
    If HS.Value < HS.Max Then
        HS.Value = HS.Value + 1
    End If
    Image1.Left = 1 - HS.Value
End Sub

Private Sub VS_Change()
    Image1.Top = 1 - VS.Value
End Sub

Private Sub VS_Scroll()
    If VS.Value < VS.Max Then
        VS.Value = VS.Value + 1
    End If
    Image1.Top = 1 - VS.Value
End Sub

Private Sub Option1_Click()
    Option2.Value = 0
    Image1.Stretch = False
    Image1.Refresh
    HS.Max = Image1.Width - Frame1.Width
    VS.Max = Image1.Height - Frame1.Height
End Sub

Private Sub Option2_Click()
    Option1.Value = 0
    Image1.Stretch = True
    Image1.Refresh
    Image1.Width = Frame1.Width
    Image1.Height = Frame1.Height
    HS.Max = Image1.Width - Frame1.Width
    VS.Max = Image1.Height - Frame1.Height
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (katyrd)