EFFET DES VAGUES SUR UNE IMAGE(EFFET)
MadM@tt
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
14 juil. 2007 à 15:12
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 17 juil. 2007 à 11:01
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 17 juil. 2007 à 11:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/43455-effet-des-vagues-sur-une-image-effet
https://codes-sources.commentcamarche.net/source/43455-effet-des-vagues-sur-une-image-effet
17 juil. 2007 à 11:01
Merci.
Renfield - Admin CS
17 juil. 2007 à 10:59
16 juil. 2007 à 12:29
Je sais pas comment l'utiliser en VB mais je penses que cela doit être un composant COM
16 juil. 2007 à 12:11
quelques toutes petites améliorations :
Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetPixelV Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Sub Command2_Click()
Dim i As Long, j As Long, color As Long
Dim k As Long
Picture2.AutoRedraw = True
Picture2.Cls
For j = 0 To Picture1.ScaleHeight
k = 6 * Sin(j / 20)
For i = 0 To Picture1.ScaleWidth
color = GetPixel(Picture1.hdc, i, j)
SetPixelV Picture2.hdc, i + k, j, color
Next i
Next j
Picture2.AutoRedraw = False
End Sub
et pour l'enregistrement, c'est simplement :
Private Sub CcBtnSave_Click()
SavePicture Picture2.Image, "C:\a.jpg"
End Sub
16 juil. 2007 à 11:51
c accessible par le backcolor du picturebox:
Picture2.backcolor = "votre couleur"
14 juil. 2007 à 15:12