EFFET DES VAGUES SUR UNE IMAGE(EFFET) vague, effet, image, flag, Source N°43455

Information sur la source

Catégorie :Graphique Classé sous : vague, effet, image, flag Niveau : Débutant Date de création : 14/07/2007 Vu / téléchargé: 6 222 / 447

Auteur : 4every1

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Pour inserer des vagues à votre images...
c la serie des effets des images...
de 4every1

Source

' code developpé par moi (4every1)
' c comme mon pseudo
' c pour ts
' mais comment enregistrer l'image modifiée
' j'ai besoin d'aide
' **********************************************************
' * code 3: Effet vagues *
' **********************************************************
Private Sub Command1_Click()
cdc.Filter = "JPG|*.jpg|BMP|*.bmp|GIF|*.gif"
cdc.ShowOpen
Text1.Text = cdc.FileName
Picture1.Picture = LoadPicture(Text1.Text)
End Sub
Private Sub Command2_Click()
Dim i, j, color
For i = 0 To Picture1.ScaleWidth Step 1
For j = 0 To Picture1.ScaleHeight Step 1
color = Picture1.Point(i, j)
Picture2.PSet (i + 6 * Sin(j / 20), j), color
Next j
Next i
End Sub
Private Sub Form_Load()
Picture1.AutoSize = True
Picture2.AutoSize = True
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
Picture2.Top = Picture1.Top + Picture1.Height
Form1.Width = Picture1.Width + 120
Form1.Height = Picture1.Height + Picture2.Height + 850
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
End Sub
Private Sub Picture1_Resize()
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
Picture2.Top = Picture1.Top + Picture1.Height
Form1.Width = Picture1.Width + 120
Form1.Height = Picture1.Height + Picture2.Height + 850
End Sub

' code developpé par moi (4every1)
' c comme mon pseudo
' c pour ts
' mais comment enregistrer l'image modifiée
' j'ai besoin d'aide
'                                **********************************************************
'                                *                   code 3: Effet vagues                 *
'                                **********************************************************


Private Sub Command1_Click()
cdc.Filter = "JPG|*.jpg|BMP|*.bmp|GIF|*.gif"
cdc.ShowOpen
Text1.Text = cdc.FileName
Picture1.Picture = LoadPicture(Text1.Text)
End Sub

Private Sub Command2_Click()
Dim i, j, color
For i = 0 To Picture1.ScaleWidth Step 1
For j = 0 To Picture1.ScaleHeight Step 1
color = Picture1.Point(i, j)
Picture2.PSet (i + 6 * Sin(j / 20), j), color
Next j
Next i
End Sub

Private Sub Form_Load()
Picture1.AutoSize = True
Picture2.AutoSize = True
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
Picture2.Top = Picture1.Top + Picture1.Height
Form1.Width = Picture1.Width + 120
Form1.Height = Picture1.Height + Picture2.Height + 850
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
End Sub

Private Sub Picture1_Resize()
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
Picture2.Top = Picture1.Top + Picture1.Height
Form1.Width = Picture1.Width + 120
Form1.Height = Picture1.Height + Picture2.Height + 850
End Sub

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Form1.frm 3 633 octets
Projet1.vbp 687 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de 4every1

Sources de la même categorie

Toutes les sources de la catégorie Graphique

Sources en rapport avec celle ci

Commentaires

Commentaire de MadM@tt le 14/07/2007 15:12:04

L'effet marche bien, par contre il faudrait remplir de noir ou blanc (ou autre couleur) les cotés qui sont vides après l'effet de vague, ça rendrait peut etre mieux
Commentaire de 4every1 le 16/07/2007 11:51:11

oui MADM@TT:
c accessible par le backcolor du picturebox:

Picture2.backcolor = "votre couleur"
Commentaire de Renfield le 16/07/2007 12:11:52 administrateur CS

que c'est lent...

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
Commentaire de FREMYCOMPANY le 16/07/2007 12:29:17

Pourquoi ne pas utiliser le filtre Wave de Microsoft ?
Je sais pas comment l'utiliser en VB mais je penses que cela doit être un composant COM
Commentaire de 4every1 le 17/07/2007 10:59:17

Pour que tu sois un bon programmeur, il faut que tu fais tous les pas personnellement je v faire tt les chose par moi mm...
Commentaire de Renfield le 17/07/2007 11:01:10 administrateur CS

4every1, arretes le SMS ! ca commence a m'agacer.

Merci.

Renfield - Admin CS

Ajouter un commentaire

Discussions en rapport avec ce code source

Effet de superposition par supermotaboy

EFFET DE VAGUE PAR SCRIPT (PARAMETRABLE) de blackwizzard par ced74

EFFET DE VAGUE PAR SCRIPT (PARAMETRABLE) de blackwizzard par ced74

EFFET DE VAGUE PAR SCRIPT (PARAMETRABLE) de blackwizzard par ced74

Effet de vague par ced74

Effet de vague par ced74

Effet de vague par ced74

Effet de vague par ced74

Effet d'image survolée par JoJo738

Effet d'image survolée par JoJo738