Как скопировать изображение из одного DC в другое? - VB
Формулировка задачи:
Столкнулся с проблемой. Создал два CompitableDC:
Но код не работает!!! В чем проблема?!
Мне необходимо скопировать рисунок из одного контекста в другой.
Листинг программы
- 'Первый контекст
- Public mDC As Long
- Public mBMP As Long, iBMP As Long
- Public iBG As StdPicture, hBG As Long
- mDC = CreateCompatibleDC(Test.hdc)
- mBMP = CreateCompatibleBitmap(Test.hdc, 3000, 3000)
- iBMP = SelectObject(mDC, mBMP)
- 'Второй контекст
- Set iBG = LoadPicture(App.Path + "\bg.jpg")
- hBG = CreateCompatibleDC(Test.hdc)
- SelectObject hBG, iBG.Handle
- 'Копирую
- BitBlt mDC, 0, 0, 2000, 2000, hBG, 0, 0, SRCCOPY
- BitBlt Test.hdc, 0, 0, 1024, 768, mDC, 0, 0, SRCCOPY
Решение задачи: «Как скопировать изображение из одного DC в другое?»
textual
Листинг программы
- SelectObject hBG, oIBG
- DeleteDc hBg
- SelectObject hDS, oIDS
- DeleteDc hDS
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
