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

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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
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
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
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....
Ce code est un peu lent d'exécution !

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.