Click here to Skip to main content
15,799,398 members
Articles / Programming Languages / VBScript

Loading Bitmap pictures from external DLL on VB 6.0

Rate me:
Please Sign up or sign in to vote.
4.27/5 (10 votes)
4 May 2004 59.4K   1.1K   13   2
Loading Bitmap pictures from external DLL on VB 6.0 - (run-time).

Bitmap ID 131 fromm Shell32.dll

Bitmap ID 130 fromm Shell32.dll

Bitmap ID 132 fromm Shell32.dll


With this sample, you can use Bitmap stored on external file (DLL). Then you can use bitmaps from Windows system or you create your bitmap repository inside VB DLL. It's useful to create bitmap library without keep a lot of files on hard disk. On that case, anyone can erase the pictures.

Module Code

     Data1 As Long
     Data2 As Integer
     Data3 As Integer
     Data4(7) As Byte
End Type

Type PicBmp
     Size As Long
     Type As Long
     hBmp As Long
     hPal As Long
     Reserved As Long
End Type

Declare Function OleCreatePictureIndirect Lib "olepro32.dll" _
           (PicDesc As PicBmp, RefIID As GUID, ByVal fPictureOwnHandle As Long, _
           IPic As IPicture) As Long
Declare Function LoadBitmap Lib "user32" Alias "LoadBitmapA" _
               (ByVal hInstance As Long, ByVal lpBitmapID As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" _
               (ByVal lpLibFileName As String) As Long
Declare Function FreeLibrary Lib "kernel32" _
               (ByVal hLibModule As Long) As Long

'Exemplo em SHELL32.DLL com ID 131               
Public Function LoadPictureDLL(sResourceFileName As String, _
                        ByVal lResourceId As Long) As Picture
     Dim hInst As Long
     Dim hBmp  As Long
     Dim Pic As PicBmp
     Dim IPic As IPicture
     Dim IID_IDispatch As GUID
     Dim lRC As Long
     hInst = LoadLibrary(sResourceFileName)
     If hInst <> 0 Then
          hBmp = LoadBitmap(hInst, lResourceId)
          If hBmp <> 0 Then
               IID_IDispatch.Data1 = &H20400
               IID_IDispatch.Data4(0) = &HC0
               IID_IDispatch.Data4(7) = &H46
               Pic.Size = Len(Pic)
               Pic.Type = vbPicTypeBitmap
               Pic.hBmp = hBmp
               Pic.hPal = 0
               lRC = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)
               If lRC = 0 Then
                    Set LoadPictureDLL = IPic
                    Set IPic = Nothing
                    Call DeleteObject(hBmp)
               End If
          End If
          FreeLibrary (hInst)
          hInst = 0
     End If
End Function


The sample application has a better code sample. Download it to get more information.


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Written By
Software Developer
Brazil Brazil
- MS VB6
- C/C++/C#
- VBScript
- JScript
- Clipper
- Cobol
- Natural
- Pascal
- TCL/Tk
- Python
Willian Silva Rodrigues
--- --- --- ---
BBM PIN: 238d4349

Comments and Discussions

QuestionHelp me convert this code to C# code? Pin
Andrewpeter12-Oct-12 6:50
Andrewpeter12-Oct-12 6:50 
Thanks you for your sharing. I'm making a C# project and want to use your code in my project; i cant invoke OleCreatePictureIndirect() function in C#, please help me do this, thanks. My question is at: How to invoke OleCreatePictureIndirect() API in C#?[^].
GeneralMy vote of 5 Pin
Andrewpeter12-Oct-12 6:46
Andrewpeter12-Oct-12 6:46 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.