bestmomo
Messages postés132Date d'inscriptionsamedi 25 mai 2002StatutMembreDernière intervention31 août 2007
-
23 juin 2002 à 16:33
stefsoft
Messages postés119Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention28 novembre 2008
-
26 juin 2002 à 09:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
stefsoft
Messages postés119Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention28 novembre 2008 26 juin 2002 à 09:02
L'exemple avec l'API est génial sauf que le Me.Refresh efface tout (sous win2000server). Il vaut mieux l'enlever
bestmomo
Messages postés132Date d'inscriptionsamedi 25 mai 2002StatutMembreDernière intervention31 août 2007 24 juin 2002 à 18:57
Ya qu'à demander ... Voilà pour un rectangle, mais ça fait aussi les triangles...
Vous prenez une feuille (autoredraw sur Ture) et vous posez un bouton et hop !
Private Declare Function GradientFill Lib "msimg32" _
(ByVal Desthdc As Long, pVertex As TRIVERTEX, _
ByVal dwNumVertex As Long, pMesh As Any, _
ByVal dwNumMesh As Long, ByVal dwMode As Long) As Boolean
Private Type TRIVERTEX
x As Long
y As Long
Red As Integer
Green As Integer
Blue As Integer
Alpha As Integer
End Type
Private Type GRADIENT_RECT
UpperLeft As Long
LowerRight As Long
End Type
Me.Cls
Call GradientFill(Me.hDC, Vert(0), 2, gRect, 1, GRADIENT_FILL_RECT_H)
Me.Refresh
End Sub
C'est qu'un petit exemple bien sûr, elle est super cette API !
cs_psycho
Messages postés232Date d'inscriptionsamedi 11 mai 2002StatutMembreDernière intervention27 octobre 2007 23 juin 2002 à 18:54
j ai fait une source de dégradé. Elle ne dépend pas de la résolution, et elle utilise aucune API.
Je vous invite donc a aller la voir...elle est sur le site.
amicalement...psycho
@+
cs_max12
Messages postés1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDernière intervention 7 juillet 2014 23 juin 2002 à 16:53
bestmomo> Bah montre nous ton truc
bestmomo
Messages postés132Date d'inscriptionsamedi 25 mai 2002StatutMembreDernière intervention31 août 2007 23 juin 2002 à 16:33
Je suis pas un forcené des API, quoi que... Mais vraiment pour les dégradés c'est si facile et riche (et rapide !) avec GradientFill que je vois pas l'intérêt de se compliquer la vie en étant dépendant en plus de la résolution...
26 juin 2002 à 09:02
24 juin 2002 à 18:57
Vous prenez une feuille (autoredraw sur Ture) et vous posez un bouton et hop !
Private Declare Function GradientFill Lib "msimg32" _
(ByVal Desthdc As Long, pVertex As TRIVERTEX, _
ByVal dwNumVertex As Long, pMesh As Any, _
ByVal dwNumMesh As Long, ByVal dwMode As Long) As Boolean
Private Type TRIVERTEX
x As Long
y As Long
Red As Integer
Green As Integer
Blue As Integer
Alpha As Integer
End Type
Private Type GRADIENT_RECT
UpperLeft As Long
LowerRight As Long
End Type
Private Const GRADIENT_FILL_RECT_H = 0
Private Const GRADIENT_FILL_RECT_V = 1
Private Sub Command1_Click()
Dim Vert(2) As TRIVERTEX
Dim gRect As GRADIENT_RECT
Dim C As Long
Vert(0).x = 20
Vert(0).y = 20
Vert(0).Red = &HFF00
Vert(0).Green = 0
Vert(0).Blue = 0
Vert(0).Alpha = 0
Vert(1).x = 270
Vert(1).y = 200
Vert(1).Red = 0
Vert(1).Green = &HFF00
Vert(1).Blue = 0
Vert(1).Alpha = 0
gRect.UpperLeft = 0
gRect.LowerRight = 1
Me.Cls
Call GradientFill(Me.hDC, Vert(0), 2, gRect, 1, GRADIENT_FILL_RECT_H)
Me.Refresh
End Sub
C'est qu'un petit exemple bien sûr, elle est super cette API !
23 juin 2002 à 18:54
Je vous invite donc a aller la voir...elle est sur le site.
amicalement...psycho
@+
23 juin 2002 à 16:53
23 juin 2002 à 16:33