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.

[nala]

Merci de vous intéresser a mon problème.
Le souci n'est pas de réaliser le drag and drop mais que celui ci se fasse à l'endroit ou le curseur apparaît lorsque la souris se trouve sur le textbox.
et pour l'instant, je n'ai pas trouvé de réponse.
J'utilise l'astuce de Patricktoulon mais le texte ne se place pas toujours au bon endroit surtout lorsqu'il y a des retour chariots.

[patricktoulon]

bonsoir harkam
nikel
par contre je ne trouve pas cette aide concernant le drag and drop listbox j'ai trouvé par contre de (textbox a textbox)
j'ai donc testé ton code et visiblement le fait de mettre le " StartDrag"au dataobject enleve le focus de la listbox et le donne au textbox en donnant un selstart quand on est dessus avec la souris
je ne savais pas
dans l'aide j'ai tapé (drag drop listbox )
je tourne sur 2007
edit:
c'est bon je l'ai trouvé dans mousemove tout court

[patricktoulon]

nala
la solution de Arkham fonctionne tres bien dans un textbox multiline et ce place tres bien (j'ai testé)

[nala]

Ben chez moi, cela ne fonctionne pas.
Pourrais tu me mettre ton classeur en pièce jointe afin que je vois ce qui cloche chez moi ?
voila le code que j'ai mis pour le textbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub TB1_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
If Len(TB1.Value) = 0 Then
    TB1.Value = Data.GetText
Else
    TB1.Value = Left(TB1.Value, TB1.SelStart) & Data.GetText & Right(TB1.Value, Len(TB1.Value) - TB1.SelStart)
End If
End Sub

Merci d'avance

[patricktoulon]

tu n'a rien a mettre dans le textbox NADA!!!
juste la sub que t'a donné Arkham en mettant le nom de ta listbox bien sur
et rien d'autre !!!!!

[nala]

Super , ça marche.
Je ne voyais pas cela aussi simple.
Du coup, j'avais conservé tout mon code précédent.

Merci à Patricktoulon et a arkham.

Sujet résolu