SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: jodijo5 en Jueves 1 de Febrero de 2007, 19:34

Título: Re: Icono Para Drag&drop
Publicado por: jodijo5 en Jueves 1 de Febrero de 2007, 19:34

hola amigos, tengo un problema, o mas bien una duda, estoy haciendo drag&drop y nose como ponerle un cursor determinado mientras estoy en el proceso de arrastrado.
por si acaso les doy mi codigo:

Código: Text

1.  
2. Public Class Form1
3.     Private Sub Label1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label1.DragEnter
4.         Dim y As ListViewItem = e.Data.GetData(GetType(ListViewItem).ToString, True)
5.         Label1.Text = y.Text
6.     End Sub
7.     Private Sub ListView1_MouseCaptureChanged(ByVal sender As Object, ByVal e As ItemDragEventArgs) Handles ListView1.ItemDrag
8.         '    On Error Resume Next
9.         Dim x As New DataObject(ListView1.SelectedItems(0))
10.         ListView1.DoDragDrop(x, DragDropEffects.Copy)
11.     End Sub
12. End Class
13.  
14.