Sujet Précédent Sujet Suivant

Faire glisser un item : Lixtbox vers Textbox [VB6]

Résolu
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 27 déc. 2005 à 20:55
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 28 déc. 2005 à 05:04
bonsoir
Est ce possible à partir d'une Listbox de faire glisser un item dans un Textbox
merci
@ plus
Petchy
A voir également:

3 réponses

Réponse 1 / 3
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
28 déc. 2005 à 04:24
(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
Réponse 2 / 3
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
28 déc. 2005 à 04:20
Oui, c'est possible.
0
Réponse 3 / 3
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 3
28 déc. 2005 à 05:04
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
0
Rejoignez-nous