Effet de fade outward dans un picturebox

Soyez le premier à donner votre avis sur cette source.

Vue 6 008 fois - Téléchargée 701 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 :

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

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.