Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 23:37:34

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

+ de logiciels à télécharger

1 464 925 membres
415 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 030 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

EFFET DES VAGUES SUR UNE IMAGE(EFFET)

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é: 8 629 / 494

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

GESTION COPIAGE DE PLUSIEURS TEXTES

LA NOUVELLE VERSION DU NEW FOLDER LOOK EN FRANÇAIS

UN NOUVEAU PAINT...

COMPARER DES IMAGES

IMAGE EN MOSAIQUE (EFFET)

Toutes les sources de 4every1

Sources de la même categorie

AFFICHEUR 7 SEGMENTS par elguevel

SCREENCOLORINVERTER par slayer418

CHART COURBE STATISTIQUE DAO par amita

GABSCREENSHOT : FAITES SIMPLEMENT ET RAPIDEMENT VOS CAPTURES... par GabSoftware

BITBLT ENTRE 2 PICTUREBOX EN VB NET par Galain

Toutes les sources de la catégorie Graphique

Sources en rapport avec celle ci

IMAGES ET EFFETS HLSL / SHADERS DIRECTX 9 par BumpMANN

UN NOUVEAU PAINT... par 4every1

IMAGE EN MOSAIQUE (EFFET) par 4every1

IMAGE DE TV (EFFET) par 4every1

UN EFFET WATER SUR VOS IMAGES par OujdaMajid

Commentaires et avis

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 dans le forum

Effet de superposition [ par supermotaboy ] SuperMotaBoyJe recherche un moyen de créer un effet de transparence avec une picturebox ou image qui serait superposée par dessus une autre image. Le EFFET DE VAGUE PAR SCRIPT (PARAMETRABLE) de blackwizzard [ par ced74 ] Bonjour, j'ai recupere le code de blackwizzard ici :http://www.flashkod.com/code.aspx?ID=18723Il permet de faire un effet de vague..par contre j'ai u EFFET DE VAGUE PAR SCRIPT (PARAMETRABLE) de blackwizzard [ par ced74 ] Bonjour, j'ai recupere le code de blackwizzard ici :http://www.flashkod.com/code.aspx?ID=18723Il permet de faire un effet de vague..par contre j'ai u EFFET DE VAGUE PAR SCRIPT (PARAMETRABLE) de blackwizzard [ par ced74 ] Bonjour, j'ai recupere le code de blackwizzard ici :http://www.flashkod.com/code.aspx?ID=18723Il permet de faire un effet de vague..par contre j'ai u Effet de vague [ par ced74 ] Bonjour, j'ai recupere le code de blackwizzard ici :http://www.flashkod.com/code.aspx?ID=18723Il permet de faire un effet de vague..par contre j'ai u Effet de vague [ par ced74 ] Bonjour, j'ai recupere le code de blackwizzard ici :http://www.flashkod.com/code.aspx?ID=18723Il permet de faire un effet de vague..par contre j'ai u Effet de vague [ par ced74 ] Bonjour, j'ai recupere le code de blackwizzard ici :http://www.flashkod.com/code.aspx?ID=18723Il permet de faire un effet de vague..par contre j'ai u Effet de vague [ par ced74 ] Bonjour, j'ai recupere le code de blackwizzard ici :http://www.flashkod.com/code.aspx?ID=18723Il permet de faire un effet de vague..par contre j'ai u Effet d'image survolée [ par JoJo738 ] Bonjour a tous, ( je passe la parole a un ami .... ) Alors voilà j'ai une image (http://perso.wanadoo.fr/dido0/Sanstitre.JPG) et je voudrais que Effet d'image survolée [ par JoJo738 ]