• Sábado 27 de Abril de 2024, 00:22

Autor Tema:  Re: Icono Para Drag&drop  (Leído 787 veces)

jodijo5

  • Miembro HIPER activo
  • ****
  • Mensajes: 518
  • Nacionalidad: pe
    • Ver Perfil
    • http://www.bluetecnologia.com
Re: Icono Para Drag&drop
« en: Jueves 1 de Febrero de 2007, 19:34 »
0
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.  
=============================
Daniel Pomalaza Mendoza
visita el Dinosaurio Azul :-D
http://bluetecnologia.com