Superposer 2 images avec gestion de transparence ...

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Superposer 2 images avec gestion de transparence ...

tomsoft

:hello:

j'aurais voulut savoir s'il etait possible de superposer 2 images (.png ou autre) avec support de la couleur "transparente"

Je vous explique, il y a un fond ,et un personage qui se deplace dessus ,ca fait ca :

je ne veut pas du blanc autour de l'image ...

ya t'i lpossibilité de faire ca dans Vbexpress ?

Publicité

tomsoft

personne ?

Message cité 1 fois

jpcheck

Pioupiou

tomsoft a écrit :

personne ?

sous vb editor tu as dans les propriétés de l'image la transparence ou l'opacité de dispo il me semlbe...

tomsoft

vb editor = la page design de ma form ?

Message cité 1 fois

jpcheck

Pioupiou

tomsoft a écrit :

vb editor = la page design de ma form ?

avec mes excuse, a marche pour les boutons seulement po pour les images :s

tomsoft

ca serait donc impossible ?

tomsoft

:cry:

kiki29

http://vb-helper.com/index_graphics.html

tomsoft

merci :jap:

mais j'y arrive tjs pas ,j'ai trouvé ca :

Title Overlay one image on another with a transparent color by using PSet
Description This example shows how to overlay one image on another with a transparent color by using PSet in Visual Basic 6.
Keywords PSet, overlay, transparent
Categories Graphics

This program simply loops through the pixels in the images. For each image in top-to-bottom order, the program looks for a color other than the one defined as transparent. When it finds such a color, it stops looking at the images and sets the output pixel's color using PSet.

Code :

Private Sub cmdCombine_Click()
Dim max_input As Integer
Dim transparent As Long
Dim wid As Single
Dim hgt As Single
Dim X As Single
Dim Y As Single
Dim i As Integer
Dim clr As Long
cmdCombine.Enabled = False
MousePointer = vbHourglass
DoEvents
max_input = picInput.ubound
For i = 0 To max_input
picInput(i).AutoRedraw = True
picInput(i).ScaleMode = vbPixels
Next i
picResult.Width = picInput(0).Width
picResult.Height = picInput(0).Height
picResult.ScaleMode = vbPixels
transparent = picTransparent.BackColor
wid = picInput(0).ScaleWidth
hgt = picInput(0).ScaleHeight
For Y = 0 To hgt
For X = 0 To wid
For i = max_input To 0 Step -1
clr = picInput(i).Point(X, Y)
If clr <> transparent Then Exit For
Next i
picResult.PSet (X, Y), clr
Next X
DoEvents
Next Y
picResult.Picture = picResult.Image
cmdCombine.Enabled = True
MousePointer = vbDefault
Beep
End Sub

Note that there are faster ways to access color values in V 6 and VB .NET, and that there are faster methods for merging images if you have an overlay mask. Note also that VB .NET provides tools for setting a transparent color for an image so this problem is trivial in VB .NET.

D'apres la derniere phrase on pourrai le faire sans code ... ??

kiki29

Voir Aide en Ligne Bitmap.MakeTransparent Method (Color)
ainsi que les exemples sur le site vb Helper

howto_net_translucent_text
howto_net_copy_transparent_image_shape
howto_net_analog_clock_transparent
howto_net_transparent_form
howto_net_maketransparent
howto_net_copy_transparent_image_shape

Message édité par kiki29 le 21-08-2006 à 17:13:37

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Superposer 2 images avec gestion de transparence ...

Sujets relatifs
Superposer des images	Problème d'affichage d'images
Galerie d'images sans changement de page	Gestion Plusieurs DataGridView
Images dans une liste deroulante est ce possible ?!?	CSS et IE: Marges sous les images // Firefox: chargement en 2 temps
Gestion des sessions par PHP et SQL	[CSS] hover avec des images? Positionnement, FF, IE
[Gestion du clavier] Mouvement fluide ?
Plus de sujets relatifs à : Superposer 2 images avec gestion de transparence ...

Page générée en 0.046 secondes