Supperposer 2 images avec un effet de transparence

Soyez le premier à donner votre avis sur cette source.

Vue 13 542 fois - Téléchargée 1 233 fois


Télécharger le projet
Commenter

Description

Comment puis-je supperposer 2 images en transparence ?

Créez un Formulaire avec 3 PictureBox (Picture1, Picture2, Picture3 ) et un Bouton.
Mettez 1 Image dans Picture1 et dans Picture2

Mettez ce code dans votre Formulaire :

Source / Exemple : 


Private Function Tranparent(ByVal Couleur1 As Long, ByVal Couleur2 As Long) As Long
    Dim r As Long
    Dim v As Long
    Dim b As Long
    b = ((((Couleur2 \ &H10000) And &HFF) * 50) + (((Couleur1 \ &H10000) And &HFF) * 50)) \ 100
    v = ((((Couleur2 \ &H100) And &HFF) * 50) + (((Couleur1 \ &H100) And &HFF) * 50)) \ 100
    r = (((Couleur2 And &HFF) * 50) + ((Couleur1 And &HFF) * 50)) \ 100
    Tranparent = RGB(r, v, b)
End Function
Private Sub Command1_Click()
    Dim x As Long
    Dim y As Long

    For y = 0 To Picture1.ScaleHeight
        For x = 0 To Picture1.ScaleWidth
            Picture3.PSet (x, y), Tranparent(Picture1.Point(x, y), Picture2.Point(x, y))
        Next
        DoEvents
    Next
End Sub
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de XYZ
S'inscrire maintenant

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.

Du même auteur (Nix)