TFlorian
Messages postés194Date d'inscriptiondimanche 3 mars 2002StatutMembreDernière intervention19 décembre 2005
-
11 mai 2002 à 23:05
cs_babboss
Messages postés121Date d'inscriptionvendredi 27 octobre 2000StatutMembreDernière intervention29 novembre 2006
-
8 juil. 2003 à 17:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_babboss
Messages postés121Date d'inscriptionvendredi 27 octobre 2000StatutMembreDernière intervention29 novembre 2006 8 juil. 2003 à 17:01
a si j ai reussi a ce ke sa marche
mais euh je voi po ce ke sa a avoir avec de la transparence ???
c po ce ke je chercher mais sinon c po mal ;)
cs_babboss
Messages postés121Date d'inscriptionvendredi 27 octobre 2000StatutMembreDernière intervention29 novembre 2006 8 juil. 2003 à 16:57
j ai fait ce ke tu a dit mais je voi po la diferrence entre les 2 image !
sa fait la meme chose peut importe la position du slider !
cs_Anthomicro
Messages postés9433Date d'inscriptionmardi 9 octobre 2001StatutMembreDernière intervention13 avril 20078 18 mai 2002 à 11:45
OUPS ! oui tu as raison. j'ai oublié de mettre scalemode en pixels. merci !
:-)
TFlorian
Messages postés194Date d'inscriptiondimanche 3 mars 2002StatutMembreDernière intervention19 décembre 20053 11 mai 2002 à 23:05
Bonjour,
il me semble qu'il manque des petit element ...
Private Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean
Private Type BLENDFUNCTION
BlendOp As Byte
BlendFlags As Byte
SourceConstantAlpha As Byte
AlphaFormat As Byte
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'----------------------------------------------------------------------------
Private Sub slider1_Scroll()
Dim Blend As BLENDFUNCTION, BlendLng As Long
8 juil. 2003 à 17:01
mais euh je voi po ce ke sa a avoir avec de la transparence ???
c po ce ke je chercher mais sinon c po mal ;)
8 juil. 2003 à 16:57
sa fait la meme chose peut importe la position du slider !
18 mai 2002 à 11:45
:-)
11 mai 2002 à 23:05
il me semble qu'il manque des petit element ...
Private Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean
Private Type BLENDFUNCTION
BlendOp As Byte
BlendFlags As Byte
SourceConstantAlpha As Byte
AlphaFormat As Byte
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'----------------------------------------------------------------------------
Private Sub slider1_Scroll()
Dim Blend As BLENDFUNCTION, BlendLng As Long
Blend.SourceConstantAlpha = 255 - slider1
CopyMemory BlendLng, Blend, 4
picture2.Cls
AlphaBlend picture2.hDC, 0, 0, picture2.ScaleWidth, picture2.ScaleHeight, _
picture1.hDC, 0, 0, picture1.ScaleWidth, picture1.ScaleHeight, BlendLng
picture2.Refresh
'Picture2.Picture = picture2.Image
End Sub
Private Sub Form_Load()
'initialisation des outils
Slider1.Max = 255
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
End Sub
il faut mettre deux images differantes dans les picutrebox, il faut toujout un slider (comctl32.ocx)
enfin ya plus qu'a glisser ;-)
merci pour ton code !
TFlorian.