DRAGANDROP DE LISTBOX PARA LISTVIEW

HILARIO 03/10/2006 22:51:29
#175436

Olá a todos,
Estou enfrentando dificuldade em adaptar este código para um listview.
Em vez de list1 gostaria de substituir por listview1.
O listview que eu estou usando tem dois campos: um descrição e outro preço.
Desde já agradeço a preciosa ajuda.
Avbraços!

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim strList As String
  
  If Not Data.GetFormat(vbCFText) Then Exit Sub
  
  strList = Data.GetData(vbCFText)
  
  If Not strList = List1.Text Then
    List1.AddItem strList
 
    
  End If

CLEVERTON 03/10/2006 22:53:59
#175438 Resposta escolhida

pra adicionar

Listview1.listitems.add ,, strList

HILARIO 03/10/2006 23:01:10
#175440

Valeu Cleverton! Sem querer abusar, mas abusando, como faço para subustituir o list1.text? No listview não tem essa propriedade.

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar