Effet de fade outward dans un picturebox
Soyez le premier à donner votre avis sur cette source.
Vue 6 135 fois - Téléchargée 719 fois
Description
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 :
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
Codes Sources
A voir également
- Effet de fade outward dans un picturebox
- Effet sympa sur picturebox! viendez tous!!!! - Codes sources - Visual Basic / VB.NET (Graphique)
- Visual Basic / VB.NET : Cool effet picturebox - CodeS SourceS - Guide
- Visual Basic / VB.NET : Effet sur des picturebox : code tres simple, fluide et commenter - CodeS Sou - Guide
- Pb d'effet de gommage des dessins réalisés sur picturebox lors d'un défilement p ✓ - Forum - VB.NET
- Effet givre photoshop - Guide
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.