Как можно узнать цвет определенного пикселя на картинке? - VB
Формулировка задачи:
Допустим, я загрузил картинку в PictureBox1. как можно узнать цвет определенного пикселя на этой картинке? Формат изображения: png)Разрешение: 100х100.
Помогите пожалуйста)
Решение задачи: «Как можно узнать цвет определенного пикселя на картинке?»
textual
Листинг программы
Private Type GdiplusStartupInput GdiplusVersion As Long DebugEventCallback As Long SuppressBackgroundThread As Long SuppressExternalCodecs As Long End Type Private Type COLORBYTES BlueByte As Byte GreenByte As Byte RedByte As Byte AlphaByte As Byte End Type Private Declare Function GdiplusStartup Lib "gdiplus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long Private Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal token As Long) Private Declare Function GdipLoadImageFromFile Lib "gdiplus" (ByVal FileName As String, image As Long) As Long Private Declare Function GdipBitmapGetPixel Lib "gdiplus" (ByVal Bitmap As Long, ByVal X As Long, ByVal Y As Long, color As Long) As Long Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal image As Long) As Long Private Declare Function GetMem4 Lib "msvbvm60" (pSrc As Any, pDst As Any) As Long Dim GpInput As GdiplusStartupInput Dim token As Long Private Sub Form_Load() Dim Pic As Long, Col As Long Dim Comp As COLORBYTES GpInput.GdiplusVersion = 1 GdiplusStartup token, GpInput GdipLoadImageFromFile StrConv("Путь к картинке", vbUnicode), Pic GdipBitmapGetPixel Pic, 10, 10, Col GdipDisposeImage Pic GdiplusShutdown token GetMem4 Col, Comp End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д