Aide pour glisser déposer

Question

J'ai deux textbox avec chacune un texte.
Je voudrais faire glisser la textbox1 sur la textbox2 et que les textes s'intervertissent.

J'arrive à faire glisser l'une dans l'autre, mais je ne sais pas comment désigner le textbox d'arrivée pour programmer mon dragdrop.

En fait, le premier s'appelle "source", mais comment s'appelle celui dans lequel on dépose ?

Merci de votre aide. :question) 

Benedict :)

plaineR · Answer

Tu n'as pas besoin de connaitre la textbox d'arrivée pour faire une drag and drop.

Si tu veux déplacer le text1 vers text2 voici le code (sinon il n'y a qu'à inverser) :

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Drag
End Sub

Private Sub Text2_DragDrop(Source As Control, X As Single, Y As Single)
Dim src As String
If Source = Text1 Then
  src = Text1.Text
  Text1.Text = Text2.Text
  Text2.Text = src
End If
End Sub

cs_benedict · Answer

Je comprends maintenant : 
Source est le contrôle de départ et index est l'index du controle destination.

Merci beaucoup de ton aide. :) 

Benedict :)

Aide pour glisser déposer

2 réponses

Discussions similaires