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 |