vb.net crosshair cursor...

7 Apr 2005 10:13 AM

Pj

hi,

i have the following code for drawing a crosshair cursor & it works:

        'Custom cursor
        'Declare bitmap
        Dim bm As New Bitmap(64, 64)
        'Declare graphics
        Dim g As Graphics = Graphics.FromImage(bm)
        'Clear the graphics
        g.Clear(Color.Transparent)
        'Declare cursor pen and set colr + width
        Dim myCursorPen As Pen = New Pen(Color.White, 2)
        'Draw cross hair
        g.DrawLine(myCursorPen, 32, 0, 32, 64)
        g.DrawLine(myCursorPen, 0, 32, 64, 32)
        'Dispose the graphics
        g.Dispose()
        'Declare a cursor object
        Dim cur As New Cursor(bm.GetHicon)
        'Set the cursor object
        Me.Cursor = cur

the problem is that its 64*64 and i cannot increase it. how can make
it to 500*500?? if i try it does not work!

any ideas?

thanks
pj

7 Apr 2005 5:34 PM

Herfried K. Wagner [MVP]

"Pj" <prashjo***@gmail.com> schrieb:
> i have the following code for drawing a crosshair cursor & it works:
>[...]
> the problem is that its 64*64 and i cannot increase it. how can make
> it to 500*500?? if i try it does not work!

Instead of using a cursor, hide the cursor and draw the crosshair on the
desired position onto the form/control.

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