Как можно узнать цвет определенного пикселя на картинке? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы