Codejock Developer Community : Loadbitmapfromresource

Loadbitmapfromresource : Thanks Guys, I mange to solve...

Sat, 12 Apr 2008 12:19:27 +0000

Author: WaleedSeada
Subject: 9901
Posted: 12 April 2008 at 12:19pm

Thanks Guys, I mange to solve that issue ..

Best regards,

Loadbitmapfromresource : Hello ijwelch, Thanks for your...

Sat, 12 Apr 2008 09:46:07 +0000

Author: WaleedSeada
Subject: 9901
Posted: 12 April 2008 at 9:46am

Hello ijwelch,

Thanks for your example, I try to load one bitmap and it shown okay, when I try to load another one the commandbar doesn't show any image;

here is the code I have:

Dim MainModulesIDs(), SubModulesIDs() As Long
Dim oRes As CResource

Set oRes = New CResource
oRes.Init App.Path & "\xxxxx.DLL"

ReDim MainModulesIDs(16)
MainModulesIDs(0) = ID_1

MainModulesIDs(1) = ID_2
MainModulesIDs(2) = ID_3

and so on ....

CommandBars.Icons.LoadBitmapFromResource oRes.hModule, 1000, MainModulesIDs(), xtpImageNormal
(this went fine for the first time)

    ReDim SubModulesIDs(8)
    SubModulesIDs(0) = ID_10
    SubModulesIDs(1) = ID_11
    SubModulesIDs(2) = ID_12
    and so on ...

CommandBars.Icons.LoadBitmapFromResource oRes.hModule, 1001, SubModulesIDs(), xtpImageNormal

the only difference is that I added then to the commandbars.icons not to the ImageManager ...

any ideas ...

Best regards,

Loadbitmapfromresource : Thanks ijwelch, VB examples can...

Tue, 18 Mar 2008 03:05:58 +0000

Author: WaleedSeada
Subject: 9901
Posted: 18 March 2008 at 3:05am

Thanks ijwelch, VB examples can always help.

again thanks for your reply.

Best,

Loadbitmapfromresource : Hi, here's VB6 code: This...

Sun, 16 Mar 2008 23:04:39 +0000

Author: ijwelch
Subject: 9901
Posted: 16 March 2008 at 11:04pm

Hi, here's VB6 code:

This in new class named CResource:

Option Explicit

Private Const ERR_BASE As Long = 3375

Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200
Private Declare Function FormatMessage _
                Lib "kernel32" _
                Alias "FormatMessageA" (ByVal dwFlags As Long, _
                                        lpSource As Any, _
                                        ByVal dwMessageId As Long, _
                                        ByVal dwLanguageId As Long, _
                                        ByVal lpBuffer As String, _
                                        ByVal nSize As Long, _
                                        Arguments As Long) As Long
Private Declare Function LoadLibraryEx _
                Lib "kernel32" _
                Alias "LoadLibraryExA" (ByVal lpLibFileName As String, _
                                        ByVal hFile As Long, _
                                        ByVal dwFlags As Long) As Long
Private Declare Function FreeLibrary _
                Lib "kernel32" (ByVal hLibModule As Long) As Long
Private m_sFileName As String
Private m_hMod As Long

Public Property Get Filename() As String
    Filename = m_sFileName
End Property

Public Property Let Filename(ByVal sFileName As String)
    Init sFileName
End Property

Public Property Get hModule() As Long
    hModule = m_hMod
End Property

Public Function Init(ResourceFile As String) As Boolean
    On Error GoTo ErrHandler
    pClearUp
    m_sFileName = ResourceFile

    If Not (m_sFileName = "") Then
        m_hMod = LoadLibraryEx(m_sFileName, 0, 0)

        If (m_hMod = 0) Then
            Err.Raise vbObjectError + 1048 + 1, "CResource", pWinError( _
                Err.LastDllError)
            Init = False
        Else
            Init = True
        End If
    End If

    Exit Function
ErrHandler:

    Err.Raise vbObjectError + ERR_BASE, "CResource.Init", _
        "CResource component failure in Function Init"
End Function

Private Sub Class_Terminate()
    pClearUp
End Sub

Private Sub pClearUp()
    On Error Resume Next

    If (m_hMod <> 0) Then
        FreeLibrary m_hMod
    End If

    m_hMod = 0
    m_sFileName = ""
End Sub

Private Function pWinError(ByVal lLastDLLError As Long) As String
    On Error Resume Next
    Dim sBuff As String
    Dim lCount As Long

    sBuff = String$(256, 0)
    lCount = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM Or _
        FORMAT_MESSAGE_IGNORE_INSERTS, 0, lLastDLLError, 0&, sBuff, Len( _
        sBuff), ByVal 0)

    If lCount Then
        pWinError = Left$(sBuff, lCount)
    End If

End Function

Then use it with code like this:

Private Sub pLoadResources()
    Dim IDS() As Long
    Dim oRes As CResource

    ReDim IDS(7)
    IDS(0) = ID_VIEWTHUMBS
    IDS(1) = ID_VIEWICONS
    IDS(2) = ID_VIEWSMALLICONS
    IDS(3) = ID_VIEWLIST
    IDS(4) = ID_VIEWDETAILS
    IDS(5) = ID_SHOWGROUPS
    IDS(6) = ID_ARROWDOWN
    IDS(7) = ID_ARROWUP

    Set oRes = New CResource
    oRes.Init "C:\The path to MyResourceDLL.dll"
    ImageManager1.Icons.LoadBitmapFromResource oRes.hModule, 1000, IDS(), xtpImageNormal
    Set oRes = Nothing

End Sub

Loadbitmapfromresource : Hi, Use ImageMaanger control...

Sun, 16 Mar 2008 15:12:17 +0000

Author: Oleg
Subject: 9901
Posted: 16 March 2008 at 3:12pm

Hi,

Use ImageMaanger control instead. Add ImageManager to form, show properties and add icons you need.

Loadbitmapfromresource : Hello All, I want to implement...

Sun, 16 Mar 2008 10:23:10 +0000

Author: WaleedSeada
Subject: 9901
Posted: 16 March 2008 at 10:23am

Hello All,

I want to implement the loadbitmapfrom resource, but i can't get it to work.

can anyone paste a sample of the script to do that.

Best regards