DirListBox et OLEDragMode

Question

Bonjour,
Je voudrais utiliser le contrôle DirListBox comme source OLE, mais, même si j'active OLEDragMode, je ne peux pas saisir l'objet.
Cela fonctionne bien avec un contrôle FileLisBox.

Y'a t'il autre chose à activer pour les contrôles DirListBox ? Pourtant ce contrôle est compatible avec le drag & drop Ole.

Merci par avance,
ManuNg

manung · Answer

J'ai trouvé une solution pas très élégante, mais je la mets ici si cela peut aider quelqu'un. Si vous avez ne meilleur solution, n'hésitez pas à me la communiquer.

J'utilise le drag & drop classique que je déclenche si l'utilisateur re-clique sur la liste.
Il y a un contrôle DirListBox (nom : dir1) et un contrôle ListBox (list1)

------------------------------------------------------------------
Option Explicit

Dim bDrag As Boolean
Private Sub Dir1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  
  If Button And Not bDrag Then
    bDrag = True
    Dir1.Drag vbBeginDrag
    bDrag = False
  End If

End Sub

Private Sub List1_DragDrop(Source As Control, X As Single, Y As Single)

If Source.Name = "Dir1" Then
    ... mon traitement
End If

End Sub

DirListBox et OLEDragMode

1 réponse

Votre réponse

Discussions similaires