Cet exemple met en pratique l'ensemble des fonction possibles :

'****************************************************************************
'Déclaration des variables

Dim Couleur As Long 'Variable de couleur type long

Dim ComposanteRouge As Byte 'Variable de composante rouge
Dim ComposanteVerte As Byte 'Variable de composante verte
Dim ComposanteBleue As Byte 'Variable de composante bleue

Dim Montype As BmpType 'Variable de type d'image

Dim PixelX As Single 'Coordonnée X du pixel
Dim PixelY As Single 'Coordonnée Y du pixel

'Définition du pixel que l'on veut lire
PixelX = 7
PixelY = 15

'****************************************************************************

'Ouverture de l'image
BmpCtrl1.OpenBmp "C:\test.bmp"

'Récupère la couleur de type long du pixel
Couleur = BmpCtrl1.GetPixColor(PixelX, PixelY)

'Récupère les composantes RVB séparément
ComposanteRouge = BmpCtrl1.GetRed(PixelX, PixelY)
ComposanteVerte = BmpCtrl1.GetGreen(PixelX, PixelY)
ComposanteBleue = BmpCtrl1.GetBlue(PixelX, PixelY)

'Modifie les composantes RVB une à une
BmpCtrl1.SetPixComposante PixelX, PixelY, Rouge, ComposanteRouge
BmpCtrl1.SetPixComposante PixelX, PixelY, Verte, ComposanteVerte
BmpCtrl1.SetPixComposante PixelX, PixelY, Bleue, ComposanteBleue

'Inscrit les composantes RVB séparément
BmpCtrl1.SetPixel PixelX, PixelY, ComposanteRouge, ComposanteVerte, ComposanteBleue

'Calcul la couleur en fonction des différentes composantes
Couleur = RGB(CInt(ComposanteRouge), CInt(ComposanteVerte), CInt(ComposanteBleue))

'Inscrit la couleur de type long
BmpCtrl1.SetPixLng PixelX, PixelY, Couleur

'Récupère le type de bmp
Montype = BmpCtrl1.TypeBmp

'Affiche le type
If Montype = Bmp24bits Then MsgBox "Type = 24 bits"
If Montype = Bmp8Bits Then MsgBox "Type = 8 bits (256 couleurs)"
If Montype = Bmp4Bits Then MsgBox "Type = 4 bits (16 couleurs)"
If Montype = BmpMonochrome Then MsgBox "type = Monochrome (N&B)"

'Affiche la largeur et la hauteur de l'image
MsgBox "Hauteur de l'image : " & BmpCtrl1.Hauteur
MsgBox "Largeur de l'image : " & BmpCtrl1.Largeur

'Ferme l'image
BmpCtrl1.CloseBmp

Retour