BMP из ресурса на форму

[netdemon]

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


Private Sub Form_DblClick()
  Dim bm As BITMAP
  Dim mem_bm As Long
  Dim mem_dc As Long
  Dim orig_bm As Long

     mem_dc = CreateCompatibleDC(Me.hdc)
     mem_bm = LoadBitmap(App.hInstance, "lw")
     orig_bm = SelectObject(mem_dc, mem_bm)
         
     GetObjectAPI mem_bm, Len(bm), bm
     
     TransparentBlt Me.hdc, Pice(0).left, Pice(0).top, _
       Pice(0).right - Pice(0).left, Pice(0).bottom - Pice(0).top, _
         mem_dc, 0, 0, bm.bmWidth, bm.bmHeight, vbWhite
     
      SelectObject mem_dc, orig_bm
     
       DeleteObject mem_bm
     
End Sub



Изображение не появляется на форме

[AGP]

а почему именно из ресурса? попробуй проще - создай невидимый пикчур бокс, и помести рисунок в него. потом можешо его присваивать другим пикчурам, просто выводить, и т.д. конечно не самый красивый вариант, но в условиях неумения работы с ресурсами выглядит наиболее подходящим =)

[netdemon]

а почему именно из ресурса? попробуй проще - создай невидимый пикчур бокс, и помести рисунок в него. потом можешо его присваивать другим пикчурам, просто выводить, и т.д. конечно не самый красивый вариант, но в условиях неумения работы с ресурсами выглядит наиболее подходящим =)

Потомучто если делать, то делать по человечески, а не через Заднее место. Спасибо Хакеру за попытку меня к этому приучить.

К тому же твой метод будет медленнее и гемора с ним больше. Я его уже пробовал и он не устраивает.

У меня этих рисунков целых 50 штук и что для каждого Pbox делать? Не жирно ли будет?

[AGP]

http://www.vbstreets.ru/VB/Articles/66233.aspx
http://www.sdteam.com/?tid=474
http://www.vbnet.ru/samples/showgroup.aspx?id=1

на последней ссылке есть аж два примера решения твоей проблемы. умей искать

[Saturn.65]

Что-то у тебя код навороченый.
Вроде все гораздо проще.

Загрузка графических данных

Объект = LoadResPicture(index,format)
Index – идентификационный номер строки с картинкой
Format – тип загружаемых данных: VbResBitmap - картинки
VbResCursor - курсоры
VbResIcon - иконки

Объект – PictureBox, Image и все остальное, куда можно грузить графику

Попробуй этак.

[netdemon]

Что-то у тебя код навороченый.
Вроде все гораздо проще.

Загрузка графических данных

Объект = LoadResPicture(index,format)
Index – идентификационный номер строки с картинкой
Format – тип загружаемых данных: VbResBitmap - картинки
VbResCursor - курсоры
VbResIcon - иконки

Объект – PictureBox, Image и все остальное, куда можно грузить графику

Попробуй этак.

Вы оба не в теме. Читайте внимательно вопрос и смотрите код.

Функция TranspepentBlt НЕ случайно здесь применяется.

Рисунки в ресурсе с белым фоном их нужно загрузить без этого фона и поместить на форму в позиции указанной Pice(...).

Pice()-Массив типа RECT Всего в нём 64 элемента. Т.е. 64 позиции для вывода рисунка.

Form.PaintPicture тоже не подходит.

[Saturn.65]

Обязательно BMP? Я иной раз белый фон в фотошопе под цвет формы делаю.

[netdemon]

В общем первоначальный код заработал.

Вот так тока поменял:

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

TransparentBlt Me.hdc, Pice(0).left, Pice(0).top, _
       bm.bmWidth,  bm.bmHeight, _
         mem_dc, 0, 0, bm.bmWidth, bm.bmHeight, vbWhite



Оказалось что этот код работает только в скомпиленном проекте. Запускаю Exe работает, а из IDE нифига.

[t116]

netdemon
Твоя программа ссылается на XP_Button.ocx которого нет.

[netdemon]

Вот так получается.

[netdemon]

netdemon
Твоя программа ссылается на XP_Button.ocx которого нет.

Вот что получилось:

[/img]