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)
"Robinson" <to******************@myinboxtoomuchtoooften.comsc hreef in
bericht news:eg*******************@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