Mettre une image en flou !!! (pixelisation)

Commenter

Contenu du snippet

juste mettre une imge en flou comme dit le titre avec une image principal une image de reception un nivo et un mode....

Source / Exemple : 


Private Sub Command2_Click()
flou Picture1, Picture2, 50, 1 'modepuiss = 1 ou 2 ou 3 .... = le scale mode
End Sub

Sub flou(Picture1 As PictureBox, Picture2 As PictureBox, Nivo, ModePuiss As Integer)
Picture1.ScaleMode = ModePuiss
Picture2.ScaleMode = Picture1.ScaleMode
For x = 0 To Picture1.ScaleHeight Step Nivo
For y = 0 To Picture1.ScaleWidth Step Nivo
Picture2.Line (x, y)-(x + Nivo - 1, y + Nivo - 1), Picture1.Point(x + Nivo - 1, y + Nivo - 1), BF
DoEvents
Next
Next
End Sub

Conclusion :


Il est tt a fait possible de metre 2x le mm picture !
merci de laisser vos commentaires et vos noes.... ;-)

A voir également

S'inscrire maintenant

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.

Du même auteur (intello2001)