Faire glisser un item : Lixtbox vers Textbox [VB6]

[Résolu]
Signaler
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
bonsoir
Est ce possible à partir d'une Listbox de faire glisser un item dans un Textbox
merci
@ plus
Petchy

3 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
(humour, quand tu nous tiens ...)

Alors, il faut :
- Propriété OLEDragMode du ListBox à "1- Automatic"
- Propriété OLEDropMode du TextBox à "0 - Manual"
- Dans l'évènement List1_OLEStartDrag du ListBox :
Dim r As Long, Temp As String
' Place dans l'objet la liste des données qui sont sélectionnés
For r = 0 To (List1.ListCount - 1)
If List1.Selected(r) = True Then
Temp = Temp & List1.List(r) & vbCrLf
End If
Next r
' Précise que l'objet est une liste de textes
Data.Clear
Data.SetData Temp, vbCFText
' Type de DragDrop
AllowedEffects = vbDropEffectCopy
- Dans l'évènement Text1_OLEDragDrop du TextBox :
Dim Temp As String
Temp = Data.GetData(vbCFText)
Text1.Text = Text1.Text & Temp

Voilà, c'est tout.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
Oui, c'est possible.
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
salut Jack
merci pour ta réponse,c'est nickel,mais je suis obliger de faire un double-click pour pouvoir faire glisser l'item .
@ plus
petchy