GDI+: GdipCreateBitmapFromResource

[José Roca]

The following example creates a Bitmap object based on an application instance handle and the name of a bitmap resource.

Code Select Expand


SUB GDIP_BmpFromResource (BYVAL hdc AS DWORD)

   LOCAL hStatus AS LONG
   LOCAL hInstance AS DWORD
   LOCAL pGraphics AS DWORD
   LOCAL pBitmap AS DWORD
   LOCAL strName AS STRING

   hInstance = GetModuleHandle(BYVAL %NULL)
   hStatus = GdipCreateFromHDC(hdc, pGraphics)

   '  // Create a Bitmap object from a resource
   strName = UCODE$("BitmapResource1")
   hStatus = GdipCreateBitmapFromResource(hInstance, STRPTR(strName), pBitmap)

   ' // Draw the bitmap
   hStatus = GdipDrawImageI(pGraphics, pBitmap, 10, 10)

   ' // Cleanup
   IF pBitmap THEN GdipDisposeImage(pBitmap)
   IF pGraphics THEN GdipDeleteGraphics(pGraphics)

END SUB