+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

Drag & Drop

  1. #1
    Post
    1
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ciao,
    dovrei implementare una lista in cui posso trascinare un elemento in un'altra posizione (della lista stessa) per esempio come nella lista di esecuzione dei brani in Winamp... Come posso fare?
    Grazie, Stefano

  2. #2
    L'avatar di dolcissimo
    dolcissimo non è in linea Scribacchino
    Post
    1,267
    Like Inviati  
    0
    Like Ricevuti  
    0

  3. #3
    L'avatar di dolcissimo
    dolcissimo non è in linea Scribacchino
    Post
    1,267
    Like Inviati  
    0
    Like Ricevuti  
    0
    Prova a mettere due listbox sul tuo form, lasci il nome di default e incolla questo codice:
    Private Sub Form_Load()
        List1.AddItem "James"
        List1.AddItem "Frederick"
        List1.AddItem "Ann"
        List1.AddItem "Paul"
        List1.AddItem "Sarah"
        List1.OLEDropMode = 1
        List2.OLEDropMode = 1
    End Sub
    Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    List1.OLEDrag
    End Sub
    
    Private Sub List1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    AllowedEffects = vbDropEffectMove
    Data.SetData List1
    End Sub
    
    Private Sub List2_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 = List2.Text Then
        List2.AddItem strList
        List1.RemoveItem List1.ListIndex
    End If
    End Sub
    
    Private Sub List2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    List2.OLEDrag
    End Sub
    
    Private Sub List2_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    AllowedEffects = vbDropEffectMove
    Data.SetData List2
    End Sub
    
    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
        List2.RemoveItem List2.ListIndex
    End If
    End Sub
    
    Spero che era quello che volevi. buon pranzo a tutti.
    ℹ️ Leggi di più su dolcissimo ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Drag & Drop
    Da fabel nel forum Visual Basic 6
    Risposte: 6
    Ultimo Post: 14-11-2016, 07:37
  2. Drag And drop
    Da M4ndr4k377 nel forum C#
    Risposte: 3
    Ultimo Post: 01-10-2015, 08:44
  3. Drag&Drop
    Da IOprogrammo nel forum Visual Basic .Net
    Risposte: 12
    Ultimo Post: 29-01-2008, 10:00
  4. Drag’n drop????
    Da massimo74rn nel forum Visual Basic 6
    Risposte: 14
    Ultimo Post: 03-04-2005, 15:12
  5. Drag’n Drop
    Da Bubino nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 22-01-2005, 01:29