converting C# code to vb6.0

Question

0.00/5 (No votes)

See more:

Dear All,

I have got something like this in C#:

C#

public static Cursor CreateCursor(Bitmap bmp, int xHotSpot, int yHotSpot)
        {
            IconInfo tmp = new IconInfo();
            GetIconInfo(bmp.GetHicon(), ref tmp);
            tmp.xHotspot = xHotSpot;
            tmp.yHotspot = yHotSpot;
            tmp.fIcon = true;
            return new Cursor(CreateIconIndirect(ref tmp));
        }

C#

public struct IconInfo
        {
            public bool fIcon;
            public int xHotspot;
            public int yHotspot;
            public IntPtr hbmMask;
            public IntPtr hbmColor;
        }

Can Anyone please help me to convert the same into VB6.0 code?

Thanks,

Posted 26-Nov-13 3:03am

Raj.rcr

Add a Solution

Comments

♥…ЯҠ…♥ 26-Nov-13 9:07am

You sure, you want it in VB6.0? or VB.Net?

thatraja 26-Nov-13 9:14am

I have posted a blog about list of converters but not this one included & I won't. I suggest you to get rid of VB 6, it's almost dead.

Dave Kreskowiak 26-Nov-13 10:20am

Almost?? It IS dead!

thatraja 26-Nov-13 10:25am

No, ~~few~~ some people made that as zombie
:(

CHill60 26-Nov-13 18:19pm

Good Heavens! I've wasted so much time trying to convince non-technical managers to allow us to use .NET languages (ANY .net language would do) and to migrate VB6 code NOW (actually about 3 years ago would still have been rather late)... please, please, please don't do this conversion. Stick with the C#, or if you must then stick with the VB.NET conversion (in solution 1)

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

♥…ЯҠ…♥ · Answer 1 · 2013-11-26T03:12:00

Hi Raj,

I do not know why you want to convert C# code to VB6.0 ;-)
What I would like to suggest is, try to convert the C# code to VB.Net initially then convert VB.Net code to VB6.0.
Probably it would be easy for you to do it.
I have converted C# code to VB.Net code for you

VB

Public Shared Function CreateCursor(bmp As Bitmap, xHotSpot As Integer, yHotSpot As Integer) As Cursor
    Dim tmp As New IconInfo()
    GetIconInfo(bmp.GetHicon(), tmp)
    tmp.xHotspot = xHotSpot
    tmp.yHotspot = yHotSpot
    tmp.fIcon = True
    Return New Cursor(CreateIconIndirect(tmp))
End Function

VB

Public Structure IconInfo
	Public fIcon As Boolean
	Public xHotspot As Integer
	Public yHotspot As Integer
	Public hbmMask As IntPtr
	Public hbmColor As IntPtr
End Structure

Now its your work to rewrite the concept from VB.Net to VB6.0
Hope this helps you a bit.

Regards,
RK