Image en mosaique (effet)

Soyez le premier à donner votre avis sur cette source.

Vue 11 216 fois - Téléchargée 519 fois

Description

Pour mosaiquer votre image...
c la serie des effets des images...
de 4every1

Source / Exemple :


' 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 mosaique               *
'                                **********************************************************

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), j), color
Next j
Next i
End Sub

Private Sub Form_Load()
Picture1.AutoSize = True
Picture2.AutoSize = True
Picture2.DrawWidth = 30
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

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.