Jag fyller en listview med poster från en databas, så långt allt väl.

Att sätta DragIcon på Listview har jag insett att det inte går, ingen post blir vald, bara första postens ID som kommer med.

Men nu till mitt problem.

Jag har en picture som jag släpper mitt ID på, men jag är tvungen att klicka på den för att Picture1_DragDrop ska triggas.
DragMode = Automatic
OLEDragMode = 1 Automatic
OLEDropMode = 2 Automatic

Jag har testat alla kombinationer på Dragmode, men ingen vill fungera.
Hur jag än gör så måste jag klicka på den för att dragDrop ska triggas.
Koden ser ut så här:

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
  Picture1.SetFocus
  iArray = lwCustomers.SelectedItem.Key
  iArray = Replace(iArray, "c", "")
  MsgBox "Du släppte något på mig ID= " & iArray
  ' stoppa in lite värden i våran array label, vill vi kasta flera projekt så ska det gå.
  If lblArray.Caption = 1 Then
    lblArray.Caption = iArray
  Else
    lblArray.Caption = lblArray.Caption & "," & iArray
  End If
End Sub

Använd OLEDragDrop istället:

<code>
Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
'Kod...
End Sub
</code>

Tackar, det löste problemet, har sitit mitt hår idag med detta problem.

Har på kuppen lört mig något också.


//Anna-Karin