Soyez le premier à donner votre avis sur cette source.
Vue 10 866 fois - Téléchargée 1 048 fois
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
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.