Lecture pixels

Question

Comment pouvoir lire les pixels d'une image ?
merci

RicoNuch · Answer

Hello !

La méthode PSet définit la couleur d'un pixel isolé.
La méthode Point Renvoie la couleur d'un point spécifié.

Ne me demande pas comment ça marche, je ne les ai jamais utilisées. Mais ça peut servir de point de départ pour une recherche...

RicoNuch

crenaud76 · Answer

Ben c'est bete comme choux : 
Dans un novueau projet, ajotue un picture1 et un picture2 sur la form et un bouton Command1. Met une image
Dans le code de Command1 colles ça :

Private Sub Command1_Click()
Dim i As Long, j As Long

    With Picture1
        .ScaleMode = vbPixels
        .AutoSize = True
        .Picture = LoadPicture("d:\divers\graphics\happy2.bmp")
    End With
    With Picture2
        .ScaleMode = vbPixels
        .Width = Picture1.Width
        .Height = Picture1.Height
    End With
    
    For i = 0 To Picture1.Width
        For j = 0 To Picture1.Height
            Picture2.PSet (i, j), Picture1.Point(i, j)
        Next
    Next
End Sub


Dans le loadpicture(), rempalce le nom de mon fichier par un fichier existant sur ta machine et lance le projet puis clique sur le bouton ...
Tu verras picture2 se dessiner à l'identique de Picture1

Christophe R.

crenaud76 · Answer

J'ai oublié un truc ... 
Dans le With Picture2 ..., il faut ajouter un ".AutoSize = True" aussi ...
Et éventuellement un DoEvents après le Picture2.Pset ... pour que ce soit plus zoli (mais plus lent)
A noter que cette méthode n'est pas la plus optimale pour dupliquer une picturebox, mais elle montre l'utilsiation de Pset et de Point

Christophe R.

RicoNuch · Answer

Cool, je me coucherai moins bête ce soir.

RicoNuch ;-)

Lecture pixels

4 réponses

Discussions similaires