Drag Bitmap tutorial/code anywhere?

5 Oct 2006 11:11 AM

Robinson

Hi,

Can anyone point me towards a good drag/drop tutorial that allows me to
create/render my own drag-cursor (i.e. for instance, if I wish to drag a
list item, I can render the list item at the cursor location as the user
drags it around the screen). Has anyone successfully done this in VB.NET?
How does it perform? Any pitfalls?

Thanks,

Robin

5 Oct 2006 2:38 PM

Peter Proost

Hi this sample shows how to create a cutsom cursor, haven't tested it with
dragging and dropping.

Dim myCur As Cursor()
Dim g As Graphics
Dim cur As Cursor

g = TextBox1.CreateGraphics
Dim myBmp As New Bitmap(CInt(g.MeasureString(TextBox1.Text,
TextBox1.Font).Width), 20)
g = Graphics.FromImage(myBmp)
g.Clear(Color.Red)
g.DrawString(TextBox1.Text, TextBox1.Font, Brushes.White, 2, 2)
g.Dispose()
Dim ptrCur As IntPtr = myBmp.GetHicon
cur = New Cursor(ptrCur)
Cursor.Current = cur

hope this helps,

Greetz, Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning. (Rich Cook)

Show quoteHide quote

"Robinson" <toomuchspamhaspassed@myinboxtoomuchtoooften.com> schreef in
bericht news:eg2p9i$ho2$1$8302bc10@news.demon.co.uk...
> Hi,
>
> Can anyone point me towards a good drag/drop tutorial that allows me to
> create/render my own drag-cursor (i.e. for instance, if I wish to drag a
> list item, I can render the list item at the cursor location as the user
> drags it around the screen). Has anyone successfully done this in VB.NET?
> How does it perform? Any pitfalls?
>
> Thanks,
>
>
>
> Robin
>
>

6 Oct 2006 10:49 AM

Robinson

Show quote Hide quote

"Peter Proost" <pproost@nospam.hotmail.com> wrote in message
news:OAQdzvI6GHA.756@TK2MSFTNGP05.phx.gbl...
> Hi this sample shows how to create a cutsom cursor, haven't tested it with
> dragging and dropping.
>
> Dim myCur As Cursor()
> Dim g As Graphics
> Dim cur As Cursor
>
> g = TextBox1.CreateGraphics
> Dim myBmp As New Bitmap(CInt(g.MeasureString(TextBox1.Text,
> TextBox1.Font).Width), 20)
> g = Graphics.FromImage(myBmp)
> g.Clear(Color.Red)
> g.DrawString(TextBox1.Text, TextBox1.Font, Brushes.White, 2, 2)
> g.Dispose()
> Dim ptrCur As IntPtr = myBmp.GetHicon
> cur = New Cursor(ptrCur)
> Cursor.Current = cur
>
> hope this helps,
>
> Greetz, Peter
> --

Thanks for that Peter. I also found some samples like this one:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=3855&lngWId=10.
I'm going to give it a try this afternoon.

Robin