Cursor from BitMap

[Dennis]

Can I create a cusor in vb.net code from a bitmap?
--
Dennis in Houston

[Herfried K. Wagner [MVP]]

"Dennis" <De****@discussions.microsoft.com> schrieb:

Can I create a cusor in vb.net code from a bitmap?

See (complete thread):

<URL:http://www.google.de/groups?theadm=Pstdd.92876%24ct3.2218732%40wagner.v ideotron.net>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Cor Ligthert]

Does Herfried support a link that interest me, does it not work.

:-)

Cor

[Ken Tucker [MVP]]

Hi,

You can create a bitmap then create the cursor from the bitmap.
Dim bmCur As New Bitmap(60, 60)

Dim g As Graphics = Graphics.FromImage(bmCur)

g.FillRectangle(Brushes.Transparent, 0, 0, 60, 60)

g.DrawEllipse(Pens.Red, 10, 10, 40, 40)

g.DrawEllipse(Pens.Red, 0, 0, 60, 60)

g.DrawEllipse(Pens.Red, 30, 30, 1, 1)

g.DrawEllipse(Pens.Red, 25, 25, 10, 10)

Dim ptrCur As IntPtr = bmCur.GetHicon

Dim cur As Cursor

cur = New Cursor(ptrCur)

Me.Cursor = cur

Ken

-----------
"Dennis" <De****@discussions.microsoft.com> wrote in message
news:73**********************************@microsof t.com...
Can I create a cusor in vb.net code from a bitmap?
--
Dennis in Houston

[Herfried K. Wagner [MVP]]

"Cor Ligthert" <no************@planet.nl> schrieb:

Does Herfried support a link that interest me, does it not work.

I made a typo ("theadm" instead of "threadm"):

<URL:http://www.google.de/groups?threadm=Pstdd.92876%24ct3.2218732%40wagner. videotron.net>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Cor Ligthert]

Herfried,

Sorry I remembered me this one again it is from Ken I took it already in my
HKW brainconnector replacer.

:-)

Cor

[Dennis]

That works great. Thanks a lot.

"Ken Tucker [MVP]" wrote:

Hi,

You can create a bitmap then create the cursor from the bitmap.
Dim bmCur As New Bitmap(60, 60)

Dim g As Graphics = Graphics.FromImage(bmCur)

g.FillRectangle(Brushes.Transparent, 0, 0, 60, 60)

g.DrawEllipse(Pens.Red, 10, 10, 40, 40)

g.DrawEllipse(Pens.Red, 0, 0, 60, 60)

g.DrawEllipse(Pens.Red, 30, 30, 1, 1)

g.DrawEllipse(Pens.Red, 25, 25, 10, 10)

Dim ptrCur As IntPtr = bmCur.GetHicon

Dim cur As Cursor

cur = New Cursor(ptrCur)

Me.Cursor = cur

Ken

-----------
"Dennis" <De****@discussions.microsoft.com> wrote in message
news:73**********************************@microsof t.com...
Can I create a cusor in vb.net code from a bitmap?
--
Dennis in Houston