CLR: .Net / Mono / Boo / Otros CLR > VB .NET
Re: Icono Para Drag&drop
(1/1)
jodijo5:
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 --- Public Class Form1 Private Sub Label1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label1.DragEnter Dim y As ListViewItem = e.Data.GetData(GetType(ListViewItem).ToString, True) Label1.Text = y.Text End Sub Private Sub ListView1_MouseCaptureChanged(ByVal sender As Object, ByVal e As ItemDragEventArgs) Handles ListView1.ItemDrag ' On Error Resume Next Dim x As New DataObject(ListView1.SelectedItems(0)) ListView1.DoDragDrop(x, DragDropEffects.Copy) End SubEnd Class
Navegación
Ir a la versión completa