Discussion :

[Oh!Tofocus]

Bonjour
j'utilise ce code :

Code :

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

1
2
3
4
5
6
    Private Sub TextBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
        If e.Data.GetDataPresent(DataFormats.Text) = True Then
            e.Effect = DragDropEffects.All
        End If
 
    End Sub

pour entrer des données dans une TextBox.
Mais le DRAGandDROP efface les données déjà présentes dans le TextBox.
Comment faire pour qu'il s'ajoute à la suite des données déjà présentes ?
merci d'avance

[umfred]

Le code que tu montres c'est ce qu'il se passe lorsque le curseur entre sur la texbox en mode drag and drop.
L'action se fait dans l'événement DragDrop du contrôle, dans lequel tu pourras décider d'ajouter les éléments au contrôle
https://learn.microsoft.com/en-us/do...owsdesktop-8.0

[Oh!Tofocus]

merci umfred pour ta reponse
Je regarde ça demain.

[Oh!Tofocus]

Bon sang ! ... mais qu'est ce que je suis c.. (étourdi )
plus loin dans mon code j'avais mis

Code :

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

1
2
3
4
5
    Private Sub TextBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
        If e.Data.GetDataPresent(DataFormats.Text) = True Then
            TextBox1.Text =  e.Data.GetData(DataFormats.Text)
        End If
    End Sub

alors qu'il faut mettre :

Code :

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

TextBox1.Text = TextBox1.Text + e.Data.GetData(DataFormats.Text)

Je suis vraiment désolé pour le dérangement