Discussion :

[nala]

Bonjour à tous,
J'aimerai, en utilisant le drag and drop, pouvoir construire un texte à l'aide de phrases prises dans un litsbox.
J'arrive à faire glisser mes phrases du listbox vers le textbox. En revanche, je n'arrive pas à les placer a l'endroit ou se trouve le curseur lorsque je lâche le bouton de la souris.
La seule "solution" que j'ai trouvée est de sélectionner dans le textbox l'endroit ou je veux déposer ma phrase puis ensuite faire un glisser déposer.
Quelqu'un aurait il une solution ?

Merci d'avance

[patricktoulon]

bonsoir
je ne crois pas qu'avec lesdraganddrop/over tu puisse lefaire
d'unepart parce que quand tu apuie avec le bouton de la souris dans la listebox elle prend le focus et l'evenement est libéréque l'ors du mouseup que tu soit encore dessus ou pas

cependant

voici une petite astuce quiconsiste a cliquer sur un item de ta liste et a cliquer a un endroit precis dans le text du textbox et l'item que tu a selectionner va se placer ici
si le textbox est vide bien evidement l'item va se placer au debut
tu constatera que j'utilise les mouse up

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim var
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    var = ListBox1.List(ListBox1.ListIndex, 0)
End Sub
 
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With TextBox1
        pos = .SelStart
        If pos = 0 And TextBox1.Value = "" Then
            TextBox1 = var
        Else
            .Value = Mid(.Value, 1, pos) & var & Mid(.Value, pos + 1)
        End If
    End With
End Sub
Private Sub UserForm_Activate()
    ListBox1.List = Array("toto", "titi", "riri", "fifi", "loulou")
End Sub

je crois que tu n'aura pas mieux a ma connaissance

[nala]

Bonsoir Patricktoulon et merci de ta réponse.

Je vais utiliser ton astuce.
J'avais espéré une solution car lorsqu'on déplace la souris sur le textbox après avoir sélectionné un item, on voit un curseur qui se déplace avec la souris.

Je laisse le sujet ouvert quelque temps si jamais quelqu'un avait une astuce pour réaliser un vrai drag and drop.

Encore merci pour ton aide.

[patricktoulon]

re

J'avais espéré une solution car lorsqu'on déplace la souris sur le textbox après avoir sélectionné un item, on voit un curseur qui se déplace avec la souris.

pas en restant apuyé comme si tu voulais draguer c'est impossible car le textbox ne peut en aucun cas prendre le focus hors pour qu'il y est un selstart il faut qu'il est le focus

fait le test reste appuyé sur ta listbox en selectionnant un item et promene toi sur le textbox tu verra tu n'aura pas le carret(curseur),impossible !!!

[nala]

Bonsoir Patricktoulon,

J'ai fait le test et j'ai bien un curseur qui se déplace dans le textbox.
Il suit les déplacements de la souris.
En revanche, ce curseur est un peu large que le curseur quand tu fais une sélection dans le textbox en cliquant directement dessus.

Mais la solution que tu m'as proposée fonctionne très bien ... sauf lorsqu'il y a des retour chariot dans le textbox.
Dans ce cas, l'insertion du texte ne se fait pas au bon endroit.
Mais en cherchant, je vais trouver une solution.

Encore merci de ton aide.

[Arkham46]

Bonjour,

Il suffit d'ajouter une opération de drag sur MouseMove de la ListBox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub MaListBox_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim MyDataObject As DataObject
If Button = 1 Then
    Set MyDataObject = New DataObject
    Dim Effect As Integer
    MyDataObject.SetText MaListBox.Value
    Effect = MyDataObject.StartDrag
End If
End Sub

Pour information le code est issu de l'aide Excel qui explique comment faire du drag & drop entre deux ListBox.