[]transparence progressive (c'en est émouvant de beauté)

**SpaceFrog** · 09/09/2003, 14h40

Le but serait de coller deux images l'une sur l'autre et un curseur en dessous.

le curseur faisant varier la tranparence de l'image au dessus de 0 à 100
avec 0 = invisible, et 100 = opaque...

J'ai déja vu passer un post sur la variation d'opacité, mais j'arrive pas à retrouver ...

**Troopers** · 09/09/2003, 14h59

Il me semble qu'il s'agit de l'API SetBkMode mais à vérifier!

**ThierryAIM** · 09/09/2003, 15h00

c'est ca que tu cherches

:
http://www.developpez.net/forums/vie...t=transparence

le plus drole c'est que c'est toi qui a répondu

**SpaceFrog** · 09/09/2003, 15h06

Non AIM ça c'est pour les fenetres, moi je veux juste ça sur mon picbox ou controle image...

**SpaceFrog** · 09/09/2003, 16h24

Voilà un truc bien bourrin qui marche à 2 à l'heure ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim LX As Integer, LY As Integer, Color1 As Long, Color2 As Long, FinalColor As Long, Percentage As Currency
Percentage = (Slider.Value - Slider.Min) / (Slider.Max - Slider.Min)
For LX = 0 To PicBox.ScaleWidth - 1
  For LY = 0 To PicBox.ScaleHeight - 1
    Color1 = GetPixel(LeftPicture.hDC, LX, LY)
    Color2 = GetPixel(RightPicture.hDC, LX, LY)
    FinalColor = Percentage * Color2 + (1 - Percentage) * Color1
    FinalPicBox.setpixel (LX,LY, Finalcolor)
Next LY
Next LX

Faut absolument que je trouve une API !!!!

**SpaceFrog** · 09/09/2003, 16h29

Peut être avec ceci ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'This project requires two picture boxes
'Both picture boxes should contain a picture
Const AC_SRC_OVER = &H00
Private Type BLENDFUNCTION
  BlendOp As Byte
  BlendFlags As Byte
  SourceConstantAlpha As Byte
  AlphaFormat As Byte
End Type
Private Declare Function AlphaBlend Lib "msimg32.dll" (ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim BF As BLENDFUNCTION, lBF As Long
    'Set the graphics mode to persistent
    Picture1.AutoRedraw = True
    Picture2.AutoRedraw = True
    'API uses pixels
    Picture1.ScaleMode = vbPixels
    Picture2.ScaleMode = vbPixels
    'set the parameters
    With BF
        .BlendOp = AC_SRC_OVER
        .BlendFlags = 0
        .SourceConstantAlpha = 128
        .AlphaFormat = 0
    End With
    'copy the BLENDFUNCTION-structure to a Long
    RtlMoveMemory lBF, BF, 4
    'AlphaBlend the picture from Picture1 over the picture of Picture2
    AlphaBlend Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, lBF
End Sub

**Babyneedle** · 09/09/2003, 17h01

La solution se trouve dans DirectX...

Il faudrait traiter le controle comme un sprite.

J'ai

Visual Basic Game Programming with DIRECTX
By Jonathan S. Harbour
Paperback / January 2002 / 193184125X

a la maison et il mentionne la transparence avec DirectDraw. En attendant que je retourne du travail, tu pourrais peut-etre trouver l'api dans un forum de game programming avec VB...