Как скопировать изображение из одного 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
Но код не работает!!! В чем проблема?! Мне необходимо скопировать рисунок из одного контекста в другой.


textual

Код к задаче: «Как скопировать изображение из одного DC в другое? - VB»

SelectObject hBG, oIBG
DeleteDc hBg
SelectObject hDS, oIDS 
DeleteDc hDS
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.100 из 5

Источник