Gestion affichage d'une image

Bonsoir,
Mataf a écrit :

Bonjour à tous,

Je voudrais dans une form faire apparaitre une image tout doucement comme si
elle sortait d'une boite "ligne par ligne" à un endroit déterminé dans la
form.
Avez vous un petit exemple ou un bout de code à me proposer??

Par avance merci

Alain

Une feuille avec 2 PictureBox.
PictureBox1 doit être le conteneur de PictureBox2 et PictureBox2 doit
contenir l'image à afficher.

Private Sub Form_Load()
With Me.Picture2
.Appearance = 0
.BorderStyle = 0
.BackColor = vbButtonFace
.Left = 0
.Top = Me.Picture1.Height
.ScaleWidth = vbTwips
End With
End Sub

Private Sub Command1_Click()
Me.Timer1.Interval = 100 ' Vitesse de défilement à ajuster
Me.Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Me.Picture2.Top = Me.Picture2.Top - Screen.TwipsPerPixelY
If Me.Picture2.Top <= 0 Then
Me.Timer1.Enabled = False
End If
End Sub






--
Cordialement,

Jacques.

Bonjour,

Merci Jacques pour cet exemple

Bonne journée

Alain
"Jacques93" <jacques.le-gocNO@PUBwouanadoo.fr> a écrit dans le message de
news: Oc9rpJ7YFHA.1868@TK2MSFTNGP14.phx.gbl...

Bonsoir,
Mataf a écrit :

Bonjour à tous,

Je voudrais dans une form faire apparaitre une image tout doucement comme
si
elle sortait d'une boite "ligne par ligne" à un endroit déterminé dans la
form.
Avez vous un petit exemple ou un bout de code à me proposer??

Par avance merci

Alain

Une feuille avec 2 PictureBox.
PictureBox1 doit être le conteneur de PictureBox2 et PictureBox2 doit
contenir l'image à afficher.

Private Sub Form_Load()
With Me.Picture2
.Appearance = 0
.BorderStyle = 0
.BackColor = vbButtonFace
.Left = 0
.Top = Me.Picture1.Height
.ScaleWidth = vbTwips
End With
End Sub

Private Sub Command1_Click()
Me.Timer1.Interval = 100 ' Vitesse de défilement à ajuster
Me.Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Me.Picture2.Top = Me.Picture2.Top - Screen.TwipsPerPixelY
If Me.Picture2.Top <= 0 Then
Me.Timer1.Enabled = False
End If
End Sub






--
Cordialement,

Jacques.