Ad:

VB.NET Discussion Thread
Marked Solved
Views: 2549

May 5th, 2008

Converting from C# .NET 1.0 to VB.NET 2.0

Expand Post »

Hi!

It's been a while since i last posted, and now I'm in need of some expert assistance.

I've found this Control written in C# with .NET 1.0 on vbAccelerator and wanted to use it with my current project. I decided to convert the entire code to VB.NET but one of the subs contains "pointer code".

I know you can use combinations of IntPtr, Marshal and GCHandle to emulate(?) pointer handling, but I don't know how.
I would very much appreciate some help with converting this portion of the code.
More specifically those lines that contain "pointer code" (marked with red).

(Toggle Plain Text)

BitmapData bmData = glyph.LockBits(
            new Rectangle(0, 0, glyph.Width, glyph.Height),
            ImageLockMode.ReadWrite,
            PixelFormat.Format24bppRgb);
         IntPtr scan0 = bmData.Scan0;
         int nOffset = bmData.Stride - glyph.Width * 3;

         unsafe
         {
            byte * pDest = (byte *)(void *)scan0;

            for (int y = 0; y < glyph.Height; ++y)
            {
               for (int x = 0; x < glyph.Width; ++x)
               {
                  // Check whether transparent:
                  if (transColor.R == pDest[2] && 
                     transColor.G == pDest[1] &&
                     transColor.B == pDest[0])
                  {
                     // set to background colour
                     pDest[2] = backColor.R;
                     pDest[1] = backColor.G;
                     pDest[0] = backColor.B;
                  }
                  else
                  {
                     // Get HLS of existing colour:
                     Color pixel = Color.FromArgb(pDest[2], pDest[1], pDest[0]);
                     float lumPixel = pixel.GetBrightness();
                     if (lumPixel <= 0.9F)
                     {
                        float lumOffset = lumPixel / transLuminance;
                        lumPixel = backLuminance * lumOffset;
                        if (lumPixel > 1.0F)
                        {
                           lumPixel = 1.0F;
                        }
                     
                     }
                     // Calculate the new colour
                     HLSRGB newPixel = new HLSRGB(backHue, lumPixel,
                      backSaturation);

                     // set the values:
                     pDest[0] = newPixel.Blue;
                     pDest[1] = newPixel.Green;
                     pDest[2] = newPixel.Red;
                  }
                  // Move to next BGRA
                  pDest += 3;
               }
               pDest += nOffset;
            }
         }
         glyph.UnlockBits(bmData);

BitmapData bmData = glyph.LockBits(
            new Rectangle(0, 0, glyph.Width, glyph.Height),
            ImageLockMode.ReadWrite,
            PixelFormat.Format24bppRgb);
         IntPtr scan0 = bmData.Scan0;
         int nOffset = bmData.Stride - glyph.Width * 3;

         unsafe
         {
            byte * pDest = (byte *)(void *)scan0;

            for (int y = 0; y < glyph.Height; ++y)
            {
               for (int x = 0; x < glyph.Width; ++x)
               {
                  // Check whether transparent:
                  if (transColor.R == pDest[2] && 
                     transColor.G == pDest[1] &&
                     transColor.B == pDest[0])
                  {
                     // set to background colour
                     pDest[2] = backColor.R;
                     pDest[1] = backColor.G;
                     pDest[0] = backColor.B;
                  }
                  else
                  {
                     // Get HLS of existing colour:
                     Color pixel = Color.FromArgb(pDest[2], pDest[1], pDest[0]);
                     float lumPixel = pixel.GetBrightness();
                     if (lumPixel <= 0.9F)
                     {
                        float lumOffset = lumPixel / transLuminance;
                        lumPixel = backLuminance * lumOffset;
                        if (lumPixel > 1.0F)
                        {
                           lumPixel = 1.0F;
                        }
                     
                     }
                     // Calculate the new colour
                     HLSRGB newPixel = new HLSRGB(backHue, lumPixel,
                      backSaturation);

                     // set the values:
                     pDest[0] = newPixel.Blue;
                     pDest[1] = newPixel.Green;
                     pDest[2] = newPixel.Red;
                  }
                  // Move to next BGRA
                  pDest += 3;
               }
               pDest += nOffset;
            }
         }
         glyph.UnlockBits(bmData);

Any help or suggestions would be helpful.

Thanks!

Similar Threads

Converting Excel Data to MSAccess .MDB in VB.NET in VB.NET
Object Orientated C+++.net Calculator! in C++
Converting VFP to .NET (how difficult to do) in VB.NET
VB .NET > New Programmer > Please Help in VB.NET
problem in converting from ntext to nvarchar in ASP.NET

Oxiegen

Reputation Points: 87

Solved Threads: 128

Practically a Master Poster

Offline

652 posts
since Jun 2006

Permalink

May 5th, 2008

Re: Converting from C# .NET 1.0 to VB.NET 2.0

vb.net Syntax (Toggle Plain Text)
Dim bmData As BitmapData = glyph.LockBits(New Rectangle(0, 0, glyph.Width, glyph.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
Dim scan0 As IntPtr = bmData.Scan0
Dim nOffset As Integer = bmData.Stride - glyph.Width * 3
 
Dim pDest As Byte* = CByte(CType(scan0, void*))
For y As Integer = 0 To glyph.Height - 1
 
    For x As Integer = 0 To glyph.Width - 1
        ' Check whether transparent:
        If transColor.R = pDest(2) AndAlso transColor.G = pDest(1) AndAlso transColor.B = pDest(0) Then
            ' set to background colour
            pDest(2) = backColor.R
            pDest(1) = backColor.G
            pDest(0) = backColor.B
        Else
            ' Get HLS of existing colour:
            Dim pixel As Color = Color.FromArgb(pDest(2), pDest(1), pDest(0))
            Dim lumPixel As Single = pixel.GetBrightness()
            If lumPixel <= 0.9F Then
                Dim lumOffset As Single = lumPixel / transLuminance
                lumPixel = backLuminance * lumOffset
                If lumPixel > 1F Then
                    lumPixel = 1F
 
                End If
            End If
            ' Calculate the new colour
            Dim newPixel As New HLSRGB(backHue, lumPixel, backSaturation)
 
            ' set the values:
            pDest(0) = newPixel.Blue
            pDest(1) = newPixel.Green
            pDest(2) = newPixel.Red
        End If
        ' Move to next BGRA
        pDest += 3
    Next
    pDest += nOffset
Next
 
glyph.UnlockBits(bmData)
Dim bmData As BitmapData = glyph.LockBits(New Rectangle(0, 0, glyph.Width, glyph.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
Dim scan0 As IntPtr = bmData.Scan0
Dim nOffset As Integer = bmData.Stride - glyph.Width * 3

Dim pDest As Byte* = CByte(CType(scan0, void*))
For y As Integer = 0 To glyph.Height - 1
    
    For x As Integer = 0 To glyph.Width - 1
        ' Check whether transparent:
        If transColor.R = pDest(2) AndAlso transColor.G = pDest(1) AndAlso transColor.B = pDest(0) Then
            ' set to background colour
            pDest(2) = backColor.R
            pDest(1) = backColor.G
            pDest(0) = backColor.B
        Else
            ' Get HLS of existing colour:
            Dim pixel As Color = Color.FromArgb(pDest(2), pDest(1), pDest(0))
            Dim lumPixel As Single = pixel.GetBrightness()
            If lumPixel <= 0.9F Then
                Dim lumOffset As Single = lumPixel / transLuminance
                lumPixel = backLuminance * lumOffset
                If lumPixel > 1F Then
                    lumPixel = 1F
                    
                End If
            End If
            ' Calculate the new colour
            Dim newPixel As New HLSRGB(backHue, lumPixel, backSaturation)
            
            ' set the values:
            pDest(0) = newPixel.Blue
            pDest(1) = newPixel.Green
            pDest(2) = newPixel.Red
        End If
        ' Move to next BGRA
        pDest += 3
    Next
    pDest += nOffset
Next

glyph.UnlockBits(bmData)

Jx_Man

Reputation Points: 1182

Solved Threads: 392

Posting Sensei

Offline

3,140 posts
since Nov 2007

Permalink

May 5th, 2008

Re: Converting from C# .NET 1.0 to VB.NET 2.0

I'm wondering if you have tried this yourself? And it works?
For me, it doesn't work in VB = I've tried before posting.
This gives the error: End of statement expected.
Dim pDest As Byte* = CByte(CType(scan0, void*))
The * indicates that this is a pointer and only works in C++/C#.
These types of declarations are not possible In VB.

I actually put the entire sub through an online conversiontool and that resultet in the very same code you posted.

Currently I'm working with Marshal and a byte array to see if I can get it to work.

(Toggle Plain Text)

Dim pDest As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(scan0))
 pDest = CByte(CType(scan0, Byte))

Suggestions and ideas are welcome.

Thanks!

Oxiegen

Reputation Points: 87

Solved Threads: 128

Practically a Master Poster

Offline

652 posts
since Jun 2006

Permalink

May 5th, 2008

Re: Converting from C# .NET 1.0 to VB.NET 2.0

yeah, i convert it in that tools...

Jx_Man

Reputation Points: 1182

Solved Threads: 392

Posting Sensei

Offline

3,140 posts
since Nov 2007

Permalink

May 5th, 2008

Re: Converting from C# .NET 1.0 to VB.NET 2.0

Instead of:

Visual Basic Syntax (Toggle Plain Text)
Dim bmData As BitmapData = glyph.LockBits(New Rectangle(0, 0, glyph.Width, glyph.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
Dim scan0 As IntPtr = bmData.Scan0
Dim nOffset As Integer = bmData.Stride - glyph.Width * 3
Dim pDest As Byte* = CByte(CType(scan0, void*))
Dim bmData As BitmapData = glyph.LockBits(New Rectangle(0, 0, glyph.Width, glyph.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
Dim scan0 As IntPtr = bmData.Scan0
Dim nOffset As Integer = bmData.Stride - glyph.Width * 3
Dim pDest As Byte* = CByte(CType(scan0, void*))

I create a function for setting up my bitmaps, which works in the graphic editor I am writing just fine:

Visual Basic Syntax (Toggle Plain Text)
        Dim bmData As BitmapData 
        Shared stride As Integer
        Shared Scan0 As System.IntPtr
        Shared nOffset As Integer
        Shared nWidth As Integer
        Shared bytes As Integer
        Shared p() As Byte
        Private Shared Function SetUpBitMap(ByVal b As Bitmap) As Boolean
            Try                
                bmData = b.LockBits(New Rectangle(0, 0, b.Width, b.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
                stride = bmData.Stride
                Scan0 = bmData.Scan0
                nOffset = stride - b.Width * 3
                nWidth = b.Width * 3
                '
                '   Declare an array to hold the bytes of the bitmap.
                '   This code is specific to a bitmap with 24 bits per pixels.
                '
                bytes = b.Width * b.Height * 3
                ReDim p(bytes - 1)
                '
                '   Copy the RGB values into the array.
                '
                Marshal.Copy(Scan0, p, 0, bytes)
                Return True
            Catch ex As Exception
                MessageBox.Show("Error Fetching Bitmap " & ex.Message)
                Return False
            End Try
        End Function
        Dim bmData As BitmapData 
        Shared stride As Integer
        Shared Scan0 As System.IntPtr
        Shared nOffset As Integer
        Shared nWidth As Integer
        Shared bytes As Integer
        Shared p() As Byte
        Private Shared Function SetUpBitMap(ByVal b As Bitmap) As Boolean
            Try                
                bmData = b.LockBits(New Rectangle(0, 0, b.Width, b.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
                stride = bmData.Stride
                Scan0 = bmData.Scan0
                nOffset = stride - b.Width * 3
                nWidth = b.Width * 3
                '
                '   Declare an array to hold the bytes of the bitmap.
                '   This code is specific to a bitmap with 24 bits per pixels.
                '
                bytes = b.Width * b.Height * 3
                ReDim p(bytes - 1)
                '
                '   Copy the RGB values into the array.
                '
                Marshal.Copy(Scan0, p, 0, bytes)
                Return True
            Catch ex As Exception
                MessageBox.Show("Error Fetching Bitmap " & ex.Message)
                Return False
            End Try
        End Function

I know this works because I use it, so give it a try.

bwkeller

Reputation Points: 12

Solved Threads: 6

Junior Poster in Training

Offline

52 posts
since Feb 2008

Permalink

May 6th, 2008

Re: Converting from C# .NET 1.0 to VB.NET 2.0

I tried your solution bwKeller. It works! Thanks a bunch!! :-D

The next part is tricky, because within a nested For loop I need to set 3 colors for each pixel.

VB.NET Syntax (Toggle Plain Text)
For y As Integer = 0 To glyph.Height - 1
     For x As Integer = 0 To glyph.Width - 1
          If transColor.R = pDest(nPixel + 2) AndAlso transColor.G = pDest(nPixel + 1) AndAlso transColor.B = pDest(nPixel) Then
               pDest(nPixel) = backColor.B
               pDest(nPixel + 1) = backColor.G
               pDest(nPixel + 2) = backColor.R
          End If
          nPixel += 3
     Next
     nPixel += nOffset
Next
For y As Integer = 0 To glyph.Height - 1
     For x As Integer = 0 To glyph.Width - 1
          If transColor.R = pDest(nPixel + 2) AndAlso transColor.G = pDest(nPixel + 1) AndAlso transColor.B = pDest(nPixel) Then
               pDest(nPixel) = backColor.B
               pDest(nPixel + 1) = backColor.G
               pDest(nPixel + 2) = backColor.R
          End If
          nPixel += 3
     Next
     nPixel += nOffset
Next

However, the byte array only becomes 1083 (give or take a few) in size and pDest(nPixel + 1) is larger than that, I get an Index out of bounds error.

I'm guessing the array needs to be increased in size by a factor of nOffset so I'm just gonna test that and see what happens.
The array will probably be larger then needed. Would that screw up the bitmap?

Oxiegen

Reputation Points: 87

Solved Threads: 128

Practically a Master Poster

Offline

652 posts
since Jun 2006

Permalink

May 6th, 2008

Re: Converting from C# .NET 1.0 to VB.NET 2.0

Here is a function I use in conjunction with the previous SetUpBitMap() function to convert a graphic to grayscale. I think it should help you solve your issue:

vb.net Syntax (Toggle Plain Text)
Public Shared Function GrayScale(ByVal b As Bitmap) As Boolean
            If SetUpBitMap(b) Then
                Dim red As Byte, green As Byte, blue As Byte, Gray As Byte
                For counter As Integer = 0 To p.Length - 1 Step 3
                    blue = p(counter)
                    green = p(counter + 1)
                    red = p(counter + 2)
                    Gray = CByte((0.299 * red + 0.587 * green + 0.114 * blue))
                    p(counter) = Gray
                    p(counter + 1) = Gray
                    p(counter + 2) = Gray
                Next
                ' 
                '   Copy the RGB values back to the bitmap
                '
                System.Runtime.InteropServices.Marshal.Copy(p, 0, Scan0, bytes)
                '
                '   Unlock the bitmap
                '
                b.UnlockBits(bmData)
                Return True
            End If
        End Function
Public Shared Function GrayScale(ByVal b As Bitmap) As Boolean
            If SetUpBitMap(b) Then
                Dim red As Byte, green As Byte, blue As Byte, Gray As Byte
                For counter As Integer = 0 To p.Length - 1 Step 3
                    blue = p(counter)
                    green = p(counter + 1)
                    red = p(counter + 2)
                    Gray = CByte((0.299 * red + 0.587 * green + 0.114 * blue))
                    p(counter) = Gray
                    p(counter + 1) = Gray
                    p(counter + 2) = Gray
                Next
                ' 
                '   Copy the RGB values back to the bitmap
                '
                System.Runtime.InteropServices.Marshal.Copy(p, 0, Scan0, bytes)
                '
                '   Unlock the bitmap
                '
                b.UnlockBits(bmData)
                Return True
            End If
        End Function

bwkeller

Reputation Points: 12

Solved Threads: 6

Junior Poster in Training

Offline

52 posts
since Feb 2008

Permalink

May 6th, 2008

Re: Converting from C# .NET 1.0 to VB.NET 2.0

Thanks!
It works perfectly!!

This problem has now been solved...

Oxiegen

Reputation Points: 87

Solved Threads: 128

Practically a Master Poster

Offline

652 posts
since Jun 2006

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Using Dataset in OledbConnection

Next Thread in VB.NET Forum Timeline: Program loses response during large DB queries VB.NET

DaniWeb Message

Cancel Changes

User Name
Password