glisser deplacer d'une listbox vers textbox

Question

bonjour a tous
je suis en vb.net et je bloc depuid quelque jour , j'ai essayer de cod&#233; un drap and drop d'une liste box vers un text box c'est a dire quand je veux  r&#233;cuperer l'un des nom de mes client g&#233;n&#233;rer dans une liste box et l'afficher dans un textbox  mais j'ai une erreur dans mon code.
quand je r&#233;cup&#232;re un nom d'un de mes client d'une listbox vers une textbox . dans le text box cela m'affiche system.data.datarowview et je ne vois pas d'ou vient l'erreure voici mon code si si quelqu'un peu m'aider
' recuperer de la liste box le nom d'un client


Private 
Sub ListBox1_MouseDown(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.MouseEventArgs) 
Handles ListBox1.MouseDown


ListBox1.DoDragDrop(ListBox1.SelectedItems(ListBox1.IndexFromPoint(e.X, e.Y).ToString).GetType.ToString, DragDropEffects.Copy 
Or DragDropEffects.Move)



End 
Sub

'afficher dans mon text box



Private 
Sub l9_DragEnter(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.DragEventArgs) 
Handles L9.DragEnter



If (e.Data.GetDataPresent(
GetType(System.String))) 
Then


e.Effect = DragDropEffects.Copy



Else


e.Effect = DragDropEffects.None



End 
If



End 
Sub



Private 
Sub l9_DragDrop(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.DragEventArgs) 
Handles L9.DragDrop


L9.Text = e.Data.GetData(DataFormats.Text).ToString



End 
Sub

cs_drahcir · Answer

Salut,

Pourquoi lapartie en rouge dans la ligne siuvante?

ListBox1.DoDragDrop(ListBox1.SelectedItems(ListBox1.IndexFromPoint(e.X, e.Y).ToString).GetType.ToString, DragDropEffects.Copy Or DragDropEffects.Move)


Qu'est-ce que &#231;a fait si tu enl&#232;ves &#231;a?

hy_honey · Answer

j'ai bien enlever le gettype.tostring la function est devenu



Private 
Sub ListBox1_MouseDown(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.MouseEventArgs) 
Handles ListBox1.MouseDown


ListBox1.DoDragDrop(ListBox1.SelectedItems(ListBox1.IndexFromPoint(e.X, e.Y)).ToString(), DragDropEffects.Copy 
Or DragDropEffects.Move)



End 
Sub

mais il y a toujours la meme ereur qui s'affiche sur le textbox qui est: system.data.datarowview
se qui veu dir quil ne r&#233;cupere pas le nom de mon client 

que faire!!!!!!!!!!!!!!!! aidez moi

hy_honey · Answer

j'ai affecter  
ListBox1.DoDragDrop(ListBox1.SelectedItems(ListBox1.IndexFromPoint(e.X, e.Y)).ToString(), DragDropEffects.Copy Or DragDropEffects.Move)


dans une variable string pour voir se qu'elle me genere et elle me genere l'index 1 car le mot que j'ai pris est en position un dans la liste box

est ce qu'il faudra pas changer IndexFromPoint par autre chose?? aidez moi!!!!!!

cs_drahcir · Answer

L9.Text = e.Data.GetData(DataFormats.Text).ToString

A mon avis, l'erreur se situe dans cette ligne (en rouge). Avec e.Data.GetFormats tu obtients les formats que contient tes donn&#233;es, essaye avec &#231;a...

@+

cs_drahcir · Answer

J'avais pas lu ton dernier message. As-tu essay&#233; d'utiliser SelectedItem?

cs_drahcir · Answer

ou alors essaye 

ListBox1.DoDragDrop(ListBox1.SelectedItems(ListBox1.Items(ListBox1.IndexFromPoint(e.X, e.Y))), DragDropEffects.Copy Or DragDropEffects.Move)

hy_honey · Answer

alors avec le selecteditem sa ne marche je ne peu m&#234;me pas faire le glisser d&#233;placer et avec 
L9.Text = e.Data.GetData(DataFormats.Text).ToString que vous m'aviez proposer de faire elle existe d&#233;ja dans ma 3 eme procedure qui est 


Private 
Sub l9_DragDrop(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.DragEventArgs) 
Handles L9.DragDrop


L9.Text = e.Data.GetData(DataFormats.Text).ToString



End 
Sub


 que faire !!!!!!!!!! aidez moi

hy_honey · Answer

avec  ListBox1.DoDragDrop(ListBox1.SelectedItems(ListBox1.Items(ListBox1.IndexFromPoint(e.X, e.Y))), DragDropEffects.Copy Or DragDropEffects.Move)
  une erreure se produit qui est 

Cast du type 'DataRowView' en type 'Integer' non valide.

hy_honey · Answer

a votre avis que dois je faire ???? aidez moi

cs_drahcir · Answer

Je me suis plant&#233;, je voulais dire : 

ListBox1.DoDragDrop(ListBox1.Items(ListBox1.IndexFromPoint(e.X, e.Y))), DragDropEffects.Copy Or DragDropEffects.Move)

hy_honey · Answer

d&#233;sol&#233; de te d&#233;ranger encore mais j'ai toujours la m&#234;me erreur qui est 

Cast du type 'DataRowView' en type 'Integer' non valide.

m&#234;me avec :


ListBox1.DoDragDrop(ListBox1.SelectedItems(ListBox1.Items(ListBox1.IndexFromPoint(e.X, e.Y))), DragDropEffects.Copy 
Or DragDropEffects.Move)

que faire je doit avoir finie cette partie depuid hier et je suis toujours coins&#233; depuid 2 jours si ce n'est pas plus aidez moi!!!!!!!!!!!!!!

cs_drahcir · Answer

Tu as essay&#233; d'enlever "ListBox1.SelectedItems" dans cette ligne de code?

hy_honey · Answer

quand j'enleve " listbox1.selecteditems" il m'affiche dans le  text box 

system.data.datarowview

donc l'erreur vien peu etre de sa :



Private 
Sub l9_DragDrop(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.DragEventArgs) 
Handles L9.DragDrop


L9.Text = e.Data.GetData(DataFormats.Text).ToString



end sub

hy_honey · Answer

voila le code que jutilise maintenant:

'premi&#232;re procedure

Private 
Sub ListBox1_MouseDown(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.MouseEventArgs) 
Handles ListBox1.MouseDown


ListBox1.DoDragDrop((ListBox1.Items(ListBox1.IndexFromPoint(e.X, e.Y))).ToString(), DragDropEffects.Copy 
Or DragDropEffects.Move)



End 
Sub



'2eme procedure

Private 
Sub l9_DragEnter(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.DragEventArgs) 
Handles L9.DragEnter



If (e.Data.GetDataPresent(
GetType(System.String))) 
Then


e.Effect = DragDropEffects.Copy



Else


e.Effect = DragDropEffects.None



End 
If



End 
Sub



'3eme procedure

Private 
Sub l9_DragDrop(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.DragEventArgs) 
Handles L9.DragDrop


L9.Text = e.Data.GetData(DataFormats.Text).ToString




L9.Text = e.Data.GetData(DataFormats.Text).ToString



End 
Sub

cs_drahcir · Answer

quand tu mets autre chose que DataFormats.Text, qu'obtients-tu?

cs_drahcir · Answer

quand tu mets autre chose que DataFormats.Text, qu'obtients-tu?

hy_honey · Answer

j'ai mis 
L9.Text = 
CType(ListBox1.SelectedItem, 
String).ToString()
ici j'ai rien obtenu rien ne s'affiche 

j'ai aussi mis
L9.Text = CType(ListBox1.selectevalues, 
String)
j'ai obtenu 01

j'ai aussi mis
L9.Text = CType(ListBox1.SelectedItem, 
String)
je n'ai rien obtenu

hy_honey · Answer

alors que dois je faire pour r&#233;soudre se grop probleme???????

cs_drahcir · Answer

Je fais un dragdrop dans un treeview, voici le code de mon &#233;v&#232;nement DragDrop : 

Dim tnNvNoeud 
As TreeNode



If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", 
False) 
Then



tnNvNoeud = e.Data.GetData("System.Windows.Forms.TreeNode")
...

je sais pas si &#231;a va t'aidere....

hy_honey · Answer

non sela ne ma pa du tous servie tu n'as pas une autre id&#233;e ou un email d'une personne que je pourrai demander??
tu vas vr&#233;ment m'aider !!!!!!!! et j'en ai vraiment besoin!!!!

Glisser deplacer d'une listbox vers textbox

26 réponses