Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 554
  • Last Modified:

How do I use MAKEINTRESOURCE in VB


Hey.  I'm using a big bitmap in my VB app, for various reasons I have used VB resource editor to load it into a RES file which is included in the project.  The bitmap called itself image number 101.

Now how do I use it?  It looks like LoadImage requires use of the MAKEINTRESOURCE macro to turn the number 101 into the proper resource identifier.  But VB won't recognize this macro.  How can I declare it?  Or how can I use LoadImage w/o it?

Thanks.
0
riceman0
Asked:
riceman0
  • 6
  • 3
1 Solution
 
fds_fatboyCommented:
LoadResPicture(101, vbResBitmap) returns a reference to your bitmap.
0
 
fds_fatboyCommented:
Sorry - I should have said
LoadResPicture(101, vbResBitmap) returns a reference to your bitmap as a stdPicture object

Therefore you should be able to work with this...
    hBMP = LoadResPicture(101, vbResBitmap).handle
0
 
riceman0Author Commented:

Looks great, but doesn't seem to work.  The old way:

Dim hbmpBack as long
hbmpBack = LoadImage(0, DEBUGAPPPATH + BACKIMAGEFILENAME, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
hdcBack = CreateCompatibleDC(hdcCompat)
Call SelectObject(hdcBack, hbmpBack)

works when I try to BitBlt from hdcBack to a picturebox later.  But the new way (using a resource instead of a file)

Dim hbmpBack as long
hbmpBack = LoadResPicture(101, vbResBitmap)
hdcBack = CreateCompatibleDC(hdcCompat)
Call SelectObject(hdcBack, hbmpBack)

seems to result in a black field for BitBlt-ing.  However the LoadResPicture call seems to work, hbmpBack returns a value in both cases.  The picture should be there, compiled into a RES file and appears in the project explorer under "Related documents."  Any ideas?
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
fds_fatboyCommented:
Hmm... That's a surprise. It works a treat for me. Here's the exact code I use if you want to compare and contrast because unfortunately I can't spare the time that this problem requires until I get out of work tonight.

Public Sub DayGraphic(X As Long, Y As Long, Graphic As HighlightGraphic, Color As OLE_COLOR)
    Dim pic As StdPicture
    Dim hBmp As Long
    Dim bmp As BITMAP
    Dim SrcDC As Long
    Dim HoldingDC As Long
    Dim HoldingBmp As Long
    Dim PrevHoldingBmp As Long
    Dim RGBColor As Long
    Dim rcPaint As RECT
    Dim LlnghBrush As Long

    Const LstrPROCEDURE As String = MstrMODULE & ".DayGraphic" ' The procedure name.
    On Error GoTo ErrorHandler

    Select Case Graphic
    Case [Crossed out date]
        If MlnghCrossDC = 0 Then
            MlnghCrossDC = CreateCompatibleDC(picDates.hdc)
            Set pic = LoadResPicture("CrossedOut", vbResBitmap)

            MlnghCrossBmp = pic.Handle
            MlnghPrevCrossBmp = SelectObject(MlnghCrossDC, MlnghCrossBmp)
        End If

        hBmp = MlnghCrossBmp
        SrcDC = MlnghCrossDC
    Case [Ringed date]
        If MlnghRingDC = 0 Then
            MlnghRingDC = CreateCompatibleDC(picDates.hdc)
            Set pic = LoadResPicture("ringedDate", vbResBitmap)

            MlnghRingBmp = pic.Handle
            MlnghPrevRingBmp = SelectObject(MlnghRingDC, MlnghRingBmp)

        End If

        hBmp = MlnghRingBmp
        SrcDC = MlnghRingDC
    End Select

    GetObject hBmp, Len(bmp), bmp

    rcPaint.Left = 0
    rcPaint.Top = 0
    rcPaint.Right = bmp.bmWidth
    rcPaint.Bottom = bmp.bmHeight

    HoldingDC = CreateCompatibleDC(MlnghBufferDC)
    HoldingBmp = CreateCompatibleBitmap(MlnghBufferDC, rcPaint.Right, rcPaint.Bottom)
    PrevHoldingBmp = SelectObject(HoldingDC, HoldingBmp)

    RGBColor = TranslateOLEColor(Color)

    If RGBColor <> vbWhite Then
        LlnghBrush = CreateSolidBrush(RGBColor)
        FillRect HoldingDC, rcPaint, LlnghBrush
        DeleteObject LlnghBrush
        BitBlt HoldingDC, 0, 0, rcPaint.Right, rcPaint.Bottom, SrcDC, 0, 0, vbSrcPaint
        ReleaseDC HoldingBmp, SrcDC
        TransparentBlt MlnghBufferDC, X, Y, rcPaint.Right, rcPaint.Bottom, HoldingDC, 0, 0, rcPaint.Right, rcPaint.Bottom, vbWhite
        ReleaseDC MlnghBufferBmp, HoldingDC
    Else
        BitBlt HoldingDC, 0, 0, rcPaint.Right, rcPaint.Bottom, SrcDC, 0, 0, vbNotSrcCopy
        ReleaseDC HoldingBmp, SrcDC
        TransparentBlt MlnghBufferDC, X, Y, rcPaint.Right, rcPaint.Bottom, HoldingDC, 0, 0, rcPaint.Right, rcPaint.Bottom, vbBlack
        ReleaseDC MlnghBufferBmp, HoldingDC
    End If

    SelectObject HoldingDC, PrevHoldingBmp
    DeleteObject HoldingBmp
    DeleteDC HoldingDC

    Exit Sub
ErrorHandler:
'Error handler code [Generated 18/05/04 Using LCPEditToolbox Ver 1.2 build 90]
'This code block must be the last code in the procedure.
    'Clean up
    Set pic = Nothing

    With Err
        If .Source = App.Title Then
            .Source = App.Title & "::" & LstrPROCEDURE
        End If

        .Raise .Number, .Source, .Description, .HelpFile, .HelpContext
    End With

End Sub
0
 
riceman0Author Commented:

Perfect.  Borrowing from your code, this fixed it:

        Dim pic As StdPicture
        Set pic = LoadResPicture(101, vbResBitmap)
        hbmpBack = pic.handle

Thanks a lot!
0
 
fds_fatboyCommented:
Ahh -  .handle - I didn't spot that earlier - but as I said , I was a bit busy.
Glad it helped.

I also noticed in my code, I forgot to set the pic to nothing so it's probably leaking away - that code's been running for a year or so as well.
0
 
riceman0Author Commented:
I'm suffering from leaks too.  When exactly do you need to set things to nothing?  Is the rule that you need one Nothing for every Set?
0
 
fds_fatboyCommented:
>>Is the rule that you need one Nothing for every Set?

Yes - before it goes out of scope.

Some people will tell you that VB is meant to handle it but I have found it doesn't necessarily. Another nasty is when you have parent and child objects and the child has a reference to its parent. Standard practice is to set module level object references to nothing in the terminate event (Unload event in the case of a form) but in this case, neither object will ever terminate because of the reference held by the other. In this case the the parent must tell the child to remove the reference to itself before it attempts to terminate. Knowing when to to this can be tricky. A way round this is to use store objPtr to the parent as a Long and use it create a temporary local reference to the parent when you need it - removing it as soon as you have finished with it. But that is getting way off topic on this question.
0
 
fds_fatboyCommented:
Also to avoid leaks, I should have said every SelectObject should be put back the way it was. Every object created with an API call should have a DeleteObject/DeleteDC, every blt should have a releaseDC etc.
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

  • 6
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now