Problema con DragDrop
Publicado por Alberto (12 intervenciones) el 23/11/2003 13:02:55
Me pasa algo muy extraño:
Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles
ListView1.DragDrop
Dim MiItem As ListViewItem
MiItem = CType e.Data.GetData "System.Windows.Forms.ListViewItem()"), ListViewItem)
MessageBox.Show(MiItem.Text)
ListView1.Items.Add(MiItem.Text)
End Sub
Por raro que parezca, las instrucciones MessageBox.Show(MiItem.Text) y ListView1.Items.Add(MiItem.Text) NO SE EJECUTAN!!!!
En la ejecución paso a paso he podido comprobar que si se alcanzan pero no tienen efecto. En los eventos relacionados con DragDrop siempre me pasa lo mismo y no puedo hacer nada. ¿Qué está pasando?
Muchas gracias
Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles
ListView1.DragDrop
Dim MiItem As ListViewItem
MiItem = CType e.Data.GetData "System.Windows.Forms.ListViewItem()"), ListViewItem)
MessageBox.Show(MiItem.Text)
ListView1.Items.Add(MiItem.Text)
End Sub
Por raro que parezca, las instrucciones MessageBox.Show(MiItem.Text) y ListView1.Items.Add(MiItem.Text) NO SE EJECUTAN!!!!
En la ejecución paso a paso he podido comprobar que si se alcanzan pero no tienen efecto. En los eventos relacionados con DragDrop siempre me pasa lo mismo y no puedo hacer nada. ¿Qué está pasando?
Muchas gracias
Valora esta pregunta
0