Cut out a region of a bitmap

[VBTricks.de.vu Webmaster]

Hello,

I have an bitmap in a resources file containing all icons displayed in
the toolbar. To display the icons I need to cut them out of the bitmap
and add them to an imagelist. The problem is the cutting out. I wrote
the following function:
[vb]
Public Shared Function CutOutIcon(ByRe f vBitmap As Image, _
ByVal iIndex As Integer) As Image

Try
Dim Bmp2 As Bitmap = New Bitmap(32, 32)
Dim GFX As Graphics = Graphics.FromIm age(Bmp2)
GFX.DrawImage(v Bitmap, 0, 0, New Rectangle(iInde x * 32,_
0, 32, 32), GraphicsUnit.Pi xel)
Return New Bitmap(32, 32, GFX)
Catch ex As Exception
End Try
End Function
[/vb]
vBitmap contains the pic from the resource (it really does, I checked
it). But all I get is a blank image.

What am I doing wrong?

Thanks in advance,
Stefan

--
_______________ _______________ _____www.VBTric ks.de.vu
the free resource for Visual Basic, Gambas and Pascal
components, tips & complete projects

www: http://www.VBTricks.de.vu
mail: vbtricks <at> gmx <dot> net
_______________ _______________ _______________ ________

[VBTricks.de.vu Webmaster]

Misinterpreted the syntax of the Bitmap constructor. So replace line

Return New Bitmap(32, 32, GFX) by Return Bmp2

Now I see something, but it's still not working correctly. The function
does not seem to cut out the right part. It cuts out only about 20x20
pixels and sizes it to 32x32. Must be something wrong with the dpi's...
Images 2 to 10 (iIndex 1 To 9) are empty as the first one before the
correction. The bitmap in the resources file has 75x75dpi.
Stefan

--
_______________ _______________ _____www.VBTric ks.de.vu
the free resource for Visual Basic, Gambas and Pascal
components, tips & complete projects

www: http://www.VBTricks.de.vu
mail: vbtricks <at> gmx <dot> net
_______________ _______________ _______________ ________

[Supra]

put this outside orf trap
\\
end try
Return New Bitmap(32, 32, GFX)
end sub

regards

VBTricks.de.vu Webmaster wrote:

Hello,

I have an bitmap in a resources file containing all icons displayed in
the toolbar. To display the icons I need to cut them out of the bitmap
and add them to an imagelist. The problem is the cutting out. I wrote
the following function:
[vb]
Public Shared Function CutOutIcon(ByRe f vBitmap As Image, _
ByVal iIndex As Integer) As Image

Try
Dim Bmp2 As Bitmap = New Bitmap(32, 32)
Dim GFX As Graphics = Graphics.FromIm age(Bmp2)
GFX.DrawImage(v Bitmap, 0, 0, New Rectangle(iInde x * 32,_
0, 32, 32), GraphicsUnit.Pi xel)
Return New Bitmap(32, 32, GFX)
Catch ex As Exception
End Try
End Function
[/vb]
vBitmap contains the pic from the resource (it really does, I checked
it). But all I get is a blank image.

What am I doing wrong?

Thanks in advance,
Stefan

[Tom Spink]

Hi Stefan,

Use the DrawImageUnscal ed method (GFX.DrawImageU nscaled(...)), as opposed to
the DrawImage method, and this should solve your problem!

-- Tom Spink

VBTricks.de.vu Webmaster wrote:

Misinterpreted the syntax of the Bitmap constructor. So replace line

Return New Bitmap(32, 32, GFX)

by

Return Bmp2

Now I see something, but it's still not working correctly. The function
does not seem to cut out the right part. It cuts out only about 20x20
pixels and sizes it to 32x32. Must be something wrong with the dpi's...
Images 2 to 10 (iIndex 1 To 9) are empty as the first one before the
correction. The bitmap in the resources file has 75x75dpi.
Stefan

[VBTricks.de.vu Webmaster]

This solved my problem:

Dim Bmp2 As Bitmap = New Bitmap(32, 32)
Dim GFX As Graphics = Graphics.FromIm age(Bmp2)
Dim sourceRect As Rectangle = New Rectangle(count * 32, 0, 32, 32)
Dim destRect As Rectangle = New Rectangle(0, 0, 32, 32)
GFX.DrawImage(v bitmap, destRect, sourceRect, GraphicsUnit.Pi xel)
Return Bmp2

Stefan

--
_______________ _______________ _____www.VBTric ks.de.vu
the free resource for Visual Basic, Gambas and Pascal
components, tips & complete projects

www: http://www.VBTricks.de.vu
mail: vbtricks <at> gmx <dot> net
_______________ _______________ _______________ ________