drag drop ne fonction pas

Question

Bonjour,
j'ai réalisé plusieurs applications, sur lesquels le copier coller entre 2 listbox fonctionne mais sur la derniere il n'y a pas moyen que ca marche.
Lorsque j'arrive sur le controle sur lequel je veux coller, j'ai le pointeur "interdiction" qui apparait.
J'aimerais savoir s'il y a une propriété qui gère ça.

voici le code
----------------------------------------
Private Sub Lstb_joueur_marché_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Cancel = True
    Effect = 1
End Sub
-----------------------------------------
Private Sub Lstb_joueur_marché_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim MyDataObject As DataObject
Dim données As Variant
If Button = 1 Then
    Set MyDataObject = New DataObject
    Dim Effect As Integer
    With Usf_gestion_equipe.Lstb_joueur_marché
        ReDim données(0 To .ColumnCount - 2)
        For i = 0 To UBound(données)
            données(i) = .List(.ListIndex, i)
        Next i
    End With
    MyDataObject.SetText Join(données, ";")
    Effect = MyDataObject.StartDrag
End If
-------------------------------
Private Sub Lstb_joueur_equipe_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
Effect = 1
Dim données As Variant
données = Split(Data.GetText, ";")

With Usf_gestion_equipe.Lstb_joueur_equipe
    For i = 0 To UBound(données)
        .List(.ListIndex, i + 2) = données(i)
    Next i
End With

End Sub

je ne pense pas mettre foiré dans le code vu que je peux coller dans un textbox ou combobox mais pas dans un listbox

Merci d'avance

cs_DARKSIDIOUS · Answer

Vérifie que la propriété PropMode de ton listbox est en manual et non en none

TOUF57 · Answer

Merci mais je n'ai pas de propriété propmode.
Je voudrais savoir si en affectant un tableau au listbox, est ce que ca pourrait empecher le drag drop.
j'ai copier un listbox, sur lequel ca marche, sur le form en question (pour recupérer ses propriétés). puis j'ai affecté le code de lstb_joueur_equipe et ca fonctionne, ca colle bien dans lstb_joueur_equipe (excepté le listindex).
Mais quand je renomme le listbox (qui fonctionne) en lstb_joueur_equipe ca marche pas.
je ne comprend pas.
J'ai automatisé le nombre de colonnes, et je l'ai remplit grace à un tableau (variant), parce que plus de 10 colonnes ca marche pas sans passer par un tableau. Et c'est tout ce que je fais sur ce listbox.

Là je pige pas.

TOUF57 · Answer

le PC vient de me planter, pas de sauvegardes bien entendu, j'ai donc refait la meme procedure mais maintenant ca marche plus. ca m'ennerve.

Drag drop ne fonction pas

3 réponses

Votre réponse

Discussions similaires