Comment puis-je faire un effet de Fade Outward dans une PictureBox ?
Créez un Formulaire avec 2 PictureBox (Picture1 et Picture2) ainsi qu'un Bouton (Command1)
Mettez ce code dans un Module :
Source / Exemple :
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function FadeOutward(Img1 As PictureBox, Blocks As Integer)
Dim TailleLargeur As Integer
Dim TailleHauteur As Integer
Dim i As Integer
Dim j As Integer
TailleLargeur = Img1.ScaleWidth / Blocks
TailleHauteur = Img1.ScaleHeight / Blocks
For i = (Blocks / 2) To 0 Step -1
Sleep (20)
Img1.Line (i * TailleLargeur, i * TailleHauteur)-(((Blocks - i) + 1) * TailleLargeur, ((Blocks - i) + 1) * TailleHauteur), , BF
DoEvents
Next
End Function
' Puis mettez ce code dans votre Formulaire :
Private Sub Command1_Click()
Dim Effet
Effet = FadeOutward(Picture1, 100)
Picture1.Picture = Picture1.Picture
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.