EFFET GLASS DE WINDOWS VISTA TRANSPARENCE SUPERBE

Commentaire de VBGenesis le 03/07/2007 15:13:31

C'est assez sympa comme effet mais c'est vrai que c'est un peu lent... je met 8/10 et t'encourage à faire ça en API comme l'a dit Renfield. Sinon pour une appli aussi graphique une petite capture serait la bienvenue!
VBGenesis

Commentaire de PCPT le 03/07/2007 19:50:33 administrateur CS

le résultat rend vraiment pas mal ;)
dommage que çà soit si long même compilé
cf précédents comms

tu prévois de mettre ce code à jour?
++

Commentaire de lermite222 le 03/07/2007 20:11:19

Salut PCPT,
Ca veux juste réussir que pendant que je préparai ma réponse tu poste également. Hi
A+

Commentaire de neamar le 04/07/2007 21:55:29

Dans le but d'améliorer cette source, voici quelques points :
-Utilise GetPixel (http://docvb.free.fr/apidetail.php?idapi=150 )
-Utilise  SetPixel (http://docvb.free.fr/apidetail.php?idapi=149)
-Crée une fonction Min, et tu n'as pas besoin de tester V<0 puisque c'est impossible avec les opérations que tu effectues.
-Au lieu de faire 4 line, fais en une seule avec l'argument B (cf aide de line sur VB)


Voilà le résultat : plus rapide, plus concis, plus clair...et plus agréable !

Private Sub Glass(X1 As Long, Y1 As Long, X2 As Long, Y2 As Long, Optional Me_DC As Long)
  Dim X As Long, Y As Long, P As Byte, NV As Byte, V As Long, T As Long
  Dim iRGB  As vRGB
  If Me_DC = 0 Then Me_DC = Me.hDC
  
  For Y = 0 To 10
    For X = X1 To X1 + X2
        'Haut
      V = GetPixel(Me_DC, X, Y1 + Y)
      CopyMemory iRGB, V, LenB(iRGB)
      
      iRGB.R = Int(Min(iRGB.R + (15 - Y) * (10 - Y / 2), 255))
      iRGB.G = Int(Min(iRGB.G + (15 - Y) * (10 - Y / 2), 255))
      iRGB.B = Int(Min(iRGB.B + (15 - Y) * (10 - Y / 2), 255))
      SetPixel Me_DC, X, Y1 + Y, RGB(iRGB.R, iRGB.G, iRGB.B)
    Next
  Next
  
  For Y = 11 To Y2 - 5
    For X = X1 To X1 + X2
      V = GetPixel(Me_DC, X, Y1 + Y)
      CopyMemory iRGB, V, LenB(iRGB)
      
      iRGB.R = Int(Min(iRGB.R + 20, 255))
      iRGB.G = Int(Min(iRGB.G + 20, 255))
      iRGB.B = Int(Min(iRGB.B + 20, 255))
      SetPixel Me_DC, X, Y1 + Y, RGB(iRGB.R, iRGB.G, iRGB.B)
    Next
  Next
  
  T = 2
  For Y = Y2 - 5 To Y2
    T = T + 2
    For X = X1 To X1 + X2
      V = GetPixel(Me_DC, X, Y1 + Y)
      CopyMemory iRGB, V, LenB(iRGB)
      
      iRGB.R = Int(Min(iRGB.R + (T + 2) * (T / 2), 255))
      iRGB.G = Int(Min(iRGB.G + (T + 2) * (T / 2), 255))
      iRGB.B = Int(Min(iRGB.B + (T + 2) * (T / 2), 255))
      V = iRGB.G + (T + 2) * (T / 2)
      SetPixel Me_DC, X, Y1 + Y, RGB(iRGB.R, iRGB.G, iRGB.B)
    Next
  Next
  Me.Line (X1, Y1)-(X1 + X2, Y1 + Y2), RGB(192, 192, 192), B
End Sub

Sinon, l'effet est très sympa..je l'ai déjà réutilisé !

Commentaire de PCPT le 04/07/2007 22:18:43 administrateur CS

bien plus rapide oui ;)
nb neamar -> hdc en param long ok mais avec un me.line à la fin çà colle plus trop...
l'objet en param est le plus approprié

++

Commentaire de XelectroX le 06/07/2007 23:25:57

Juste un petit détail, je pense qu'une source comme celle-ci serait mieux avec une capture ;). lol

@++