VB и работа с графическим файлом
Формулировка задачи:
есть файл BMP
размеры для определенности возьмем 320*240 пикселей
как выделить прямоугольник скажем с координатами
Left, Top (20,20)
Right, Bottom (100,100)
и вывести его например в PictureBox?
Решение задачи: «VB и работа с графическим файлом»
textual
Листинг программы
- Private Sub Form_Load()
- Dim hImage As Long, mDC As Long
- hImage = LoadImage(0, 'C:320x240.bmp', IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
- mDC = CreateCompatibleDC(GetDC(GetDesktopWindow))
- SelectObject mDC, hImage
- BitBlt Picture1.hdc, 0, 0, 80, 80, mDC, 20, 20, vbSrcCopy
- DeleteObject mDC
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
