Графика на форме через Handle

[X-BOND]

Загружаю картинку с помощью LoadImage
Можно ли с помощью BitBlt нарисовать ее, зная Handle?

[Yurich]

Можно!

BitBlt Form.hDC, 0, 0, 100, 100, PictureBox.hDC, 0, 0, &HCC0020

[X-BOND]

Попровляюсь:
LoadImage
это функция Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long которая возвращает, цетирую: ...the return value is the handle of the newly loaded image

Никаких пикчеров на форме у меня нет.
Надо, зная этот handle нарисовать на форме картинку.

[Kostyan]

Конечно можно, только, как говорится, через ж...

Код: Выделить всё

hIm = LoadImage(0, "C:\bg.bmp", 0, 0, 0, 80)
CompDC = CreateCompatibleDC(Me.hdc)
OldIm = SelectObject(CompDC, hIm)
Call DeleteObject(hIm)
Call BitBlt(Me.hdc, 0, 0, Me.ScaleWidth, Me.ScaleHeight, CompDC, 0, 0, vbSrcCopy)
Call SelectObject(CompDC, OldIm)
Call DeleteDC(CompDC)
Me.Refresh


И поставь у формы ScaleMode=3, AutoRedraw=True

[X-BOND]

Спсибо, работает

Но *.gif я так понял, этим способом нарисовать не получится?

[Kostyan]

Я тоже так понял, ни gif, ни jpg не загрузишь этой этой функцией.

[X-BOND]

Можно, в принципе, использовать TransparentBlt наверно...

А вообще, как по грамотному вывести графику на форме, не используя ни одного контрола?

[Kostyan]

Ты наверное не понял, функция LoadImage может открывать ТОЛЬКО bmp, ico и cur файлы, больше ничего.

[GSerg]

loadpicture открывает и jpg, и gif, и tiff, и ещё чёрт знает что ещё. А savepicture, действительно, в bmp.

[Kostyan]

2 X-BOND:
Вот тебе и решение. Чтобы загружать любые форматы и не использовать контролов используй LoadPicture, она как раз возвращает дискриптор рисунка, который можо использовать в API-функциях. Вот пример, который я давал тебе выше, но уже переделаный под LoadPicture:

Код: Выделить всё

CompDC = CreateCompatibleDC(Me.hdc)
OldIm = SelectObject(CompDC, LoadPicture("C:\1.jpg"))
Call BitBlt(Me.hdc, 0, 0, Me.ScaleWidth, Me.ScaleHeight, CompDC, 0, 0, vbSrcCopy)
Call DeleteObject(SelectObject(CompDC, OldIm))
Call DeleteDC(CompDC)
Me.Refresh


[X-BOND]

Как говорится, век живи - век учись
Спасибо


P.S.

Можно, в принципе, использовать TransparentBlt наверно...

Я имел ввиду, что можно использовать BMP файл с ключевым цветом фона вместо GIF.

[anian]

Тогда такой вопрос:

имею объект picMem as Picture (или IPicture, или IPictureDisp...без разницы в данном случае)

загружаем в него иконку, потом пишем:

Код: Выделить всё

    lhDC = CreateCompatibleDC(Me.hdc)
       If lhDC <> 0 Then
          lhBmpOld = SelectObject(lhDC, picMem.Handle) ' *1
             If lhBmpOld <> 0 Then
                BitBlt Me.hdc, 50, 50, lpicWidth, lpicHeight, lhDC, 0, 0, SRCCOPY
                   SelectObject lhDC, lhBmpOld
       End If


Запускаю и вижу, шо lhBmpOld после (*1) равен 0, а lhDC не изменился...BitBlt, соответственно, ни фига не рисует...
Где косяк - не пойму..может у меня в генах?

[Kostyan]

Так ты пиши не picMem.Handle а picMem.Picture.Handle ну вобщем, поэкспериментируй сам. Должно быть какое-то свойство у PictureBox, в котором содержится тот самый дескриптор рисунка.

[anian]

picMem - это не PictureBox, а переменная типа Picture...
Имеет свойства: width, height, hPal, Handle, type и метод Render...все, больше ничего нет. Функции типа DrawIcon с удовольствием хавают Handle, а вот BitBlt не хочет.

[anian]

Хмм...вот ежели в Picture засунуть битмапу, то битблт хавает...ежели иконку, то нет..пробовал создавать объект Picture через OleCreateIndirectBitmap - на CurDC ругается...