Supperposer 2 images avec un effet de transparence

Soyez le premier à donner votre avis sur cette source.

Vue 13 654 fois - Téléchargée 1 235 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

Signaler
cs_DARKSIDIOUS
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
 83 -
Voici l'URL de ma source :
http://vbfrance.com/code.aspx?ID=21354

DarK Sidious
Signaler
BZY1
Messages postés
214
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
12 avril 2008
 -
peux tu donner le chemin de ton source stp
Signaler
cs_DARKSIDIOUS
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
 83 -
Pour plus rapide : aller voir ma source de fondu d'image qui utilise ma classe de gestion d'image : environ 30 fois plus rapide, avec en plus, des fondus en dégradé entre les deux images...

DarK Sidious
Signaler
BZY1
Messages postés
214
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
12 avril 2008
 -
c'est pas mal mais très très lent....
Signaler
-
Ce code est un peu lent d'exécution !
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)