Supperposer 2 images avec un effet de transparence
Soyez le premier à donner votre avis sur cette source.
Vue 14 030 fois - Téléchargée 1 284 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 :
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
- Supperposer 2 images avec un effet de transparence
- Transparence de 2 images sans dx et open gl!!!!! - Codes sources - Visual Basic / VB.NET (Graphique)
- Effet text transparent en 2 clique pour debutant - Codes sources - Graph (PHOTOSHOP : Styles)
- PHP : Combiner deux images avec la librairie gd (png ou jpeg) avec transparence de l'image par dessu - Guide
- Comparer deux images - Guide
- Visual Basic / VB.NET : Graphique: fusion de 2 images - CodeS SourceS - Guide
- Messages postés
-
15814
- Date d'inscription
- jeudi 8 août 2002
- Statut
- Modérateur
- Dernière intervention
- 4 mars 2013
1317 juil. 2005 à 15:44
http://vbfrance.com/code.aspx?ID=21354
DarK Sidious
7 juil. 2005 à 15:11
- Messages postés
-
15814
- Date d'inscription
- jeudi 8 août 2002
- Statut
- Modérateur
- Dernière intervention
- 4 mars 2013
1317 juil. 2005 à 15:08
DarK Sidious
7 juil. 2005 à 11:23
17 sept. 2000 à 14:19
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.