convert function from VB.6 to VB.NET

[Joao Tomas]

Please, can someone help me to translate this single function to VB.NET ?
' DECLARATIONS
Private Const BMP_MAGIC_COOKI E As Short = 19778

Private Structure BITMAPFILEHEADE R '14 bytes
Dim bfType As Short
Dim bfSize As Integer
Dim bfReserved1 As Short
Dim bfReserved2 As Short
Dim bfOffBits As Integer
End Structure

Private Structure BITMAPINFOHEADE R '40 bytes
Dim biSize As Integer
Dim biWidth As Integer
Dim biHeight As Integer
Dim biPlanes As Short
Dim biBitCount As Short
Dim biCompression As Integer
Dim biSizeImage As Integer
Dim biXPelsPerMeter As Integer
Dim biYPelsPerMeter As Integer
Dim biClrUsed As Integer
Dim biClrImportant As Integer
End Structure
Private Structure RGBQUAD
Dim Red As Byte
Dim Green As Byte
Dim Blue As Byte
Dim Reserved As Byte
End Structure

Private Structure BITMAP
Dim bmType As Integer
Dim bmWidth As Integer
Dim bmHeight As Integer
Dim bmWidthBytes As Integer
Dim bmPlanes As Short
Dim bmBitsPixel As Short
Dim bmBits As Integer
End Structure
Private Const BI_RGB As Integer = 0

Private Declare Function GetProcessHeap Lib "kernel32.d ll" () As Integer
'handle

Private Declare Function HeapAlloc Lib "kernel32.d ll" (ByVal hHeap As
Integer, ByVal dwFlags As Integer, ByVal dwBytes As Integer) As Integer

Private Declare Function HeapFree Lib "kernel32.d ll" (ByVal hHeap As
Integer, ByVal dwFlags As Integer, ByVal lpMem As Integer) As Integer

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMem ory" (ByRef
dest As IntPtr, ByVal fromAddress As String, ByVal bytesToCopy As Long)

Private Const HEAP_ZERO_MEMOR Y As Integer = &H8S

Private m_memBits() As Byte
Private m_memBitmapInfo () As Byte
Private m_bih As BITMAPINFOHEADE R
Private m_bfh As BITMAPFILEHEADE R
'FUNCTION
Public Function CreateFromPacke dDIBPointer(ByR ef pDIB As Long) As Boolean

Debug.Assert pDIB <0

'Creates a full-color (no palette) DIB from a pointer to a full-color memory
DIB

'get the BitmapInfoHeade r

Call CopyMemory(ByVa l VarPtr(m_bih.bi Size), ByVal pDIB, Len(m_bih))
If m_bih.biBitCoun t < 16 Then
Debug.Print "Error! DIB was less than 16 colors."
Exit Function 'only supports high-color or full-color dibs
End If

'now get the bitmap bits

If m_bih.biSizeIma ge < 1 Then Exit Function 'return False
ReDim m_memBits(0 To m_bih.biSizeIma ge - 1)
Call CopyMemory(m_me mBits(0), ByVal pDIB + 40, m_bih.biSizeIma ge)

'and BitmapInfo variable-length UDT

ReDim m_memBitmapInfo (0 To 39) 'don't need first 14 bytes (fileinfo)
Call CopyMemory(m_me mBitmapInfo(0), m_bih, Len(m_bih))

'create a file header
With m_bfh
.bfType = BMP_MAGIC_COOKI E
.bfSize = 55 + m_bih.biSizeIma ge 'size of file as written to disk
.bfReserved1 = 0&
.bfReserved2 = 0&
.bfOffBits = 54 'BitmapInfoHead er + BitmapFileHeade r
End With

'and return True
CreateFromPacke dDIBPointer = True

End Function

[Spam Catcher]

"Joao Tomas" <[e-mail] te in news:ec******** **@news.datemas .de:

Please, can someone help me to translate this single function to VB.NET ?

Which part are you having trouble with?

[Joao Tomas]

"Spam Catcher" <sp**********@r ogers.comwrote in message
news:Xn******** *************** ***********@127 .0.0.1...

"Joao Tomas" <[e-mail] te in news:ec******** **@news.datemas .de:

>Please, can someone help me to translate this single function to VB.NET ?

Which part are you having trouble with?

CopyMemory

VB.net doesn't support it anymore

vb.net is bad for memory pointers

[Cor Ligthert [MVP]]

Joao,

I am not a VB6 guy, however why do you need, it or in other words do you
known the memorystream?

http://msdn.microsoft.com/library/de...classtopic.asp

I hope this helps,

Cor

>

[gene kelley]

On Mon, 28 Aug 2006 05:13:47 +0100, "Joao Tomas" <[e-mail] :

>
"Spam Catcher" <sp**********@r ogers.comwrote in message
news:Xn******* *************** ************@12 7.0.0.1...

>"Joao Tomas" <[e-mail] te in news:ec******** **@news.datemas .de:

>>Please, can someone help me to translate this single function to VB.NET ?

Which part are you having trouble with?

CopyMemory

VB.net doesn't support it anymore

vb.net is bad for memory pointers

Maybe this might be helpful.

(VB2005)
I have an app that uses this declare for CopyMemory:

Public Declare Sub CopyMemory Lib "kernel32.d ll" Alias "RtlMoveMem ory" _
(ByVal Destination As Byte(), ByVal Source As Int32, ByVal Length As Int32)

I use it in conjunction with the API's "GlobalLock ", "GlobalSize ", "GlobalFree ", "GlobalUnlo ck"

Dim bBlob() As Byte
Dim hBuffer As System.Int32 = sHandle 'handle to a memory buffer
Dim bData As Int32 = GlobalLock(hBuf fer)
Dim bSize As Int32 = GlobalSize(hBuf fer)
ReDim bBlob(bSize)

CopyMemory(bBlo b, bData, bSize)

GlobalUnlock(bD ata)
GlobalFree(bDat a)

Gene