LoadImageFromResource

Синтаксис

Function LoadImageFromResource(byval lpResName As LPCTSTR, byval color As Integer=&hf0f0f0) As HBITMAP

Описание

Позволяет из ресурсов , получить битмап. Поддерживаемые форматы: Jpeg, Png, Gif, Bmp, Tiff, Ico

Параметры

lpResName - идентификатор ресурса RCDATA. Для тех кто не знает, в файле ресурсов прописываем примерно следующее: 100 RCDATA "1.png"

color - цвет фона, на котором будет отрисовано изображение. Используется для изображений поддерживающих прозрачность (PNG,TIFF,GIF)

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd
hwnd=OpenWindow("",10,10,200,200) : CenterWindow(hwnd)
ImageGadget(1,50,30,170,170,LoadImageFromResource(Cast(any ptr,100)))
Do
  event=WaitEvent()
  If Event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free Kindle producer