Glisser deplacer d'une listbox vers textbox

Signaler
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005
-
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
-
bonjour a tous
je suis en vb.net et je bloc depuid quelque jour , j'ai essayer de codé un drap and drop d'une liste box vers un text box c'est a dire quand je veux récuperer l'un des nom de mes client générer dans une liste box et l'afficher dans un textbox mais j'ai une erreur dans mon code.
quand je récupè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

26 réponses

Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
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 ça fait si tu enlèves ça?
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

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écupere pas le nom de mon client

que faire!!!!!!!!!!!!!!!! aidez moi
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

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!!!!!!
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
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ées, essaye avec ça...

@+
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
J'avais pas lu ton dernier message. As-tu essayé d'utiliser SelectedItem?
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
ou alors essaye

ListBox1.DoDragDrop(ListBox1.SelectedItems(ListBox1.Items(ListBox1.IndexFromPoint(e.X, e.Y))), DragDropEffects.Copy Or DragDropEffects.Move)
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

alors avec le selecteditem sa ne marche je ne peu même pas faire le glisser déplacer et avec
L9.Text = e.Data.GetData(DataFormats.Text).ToString que vous m'aviez proposer de faire elle existe dé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
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

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.
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

a votre avis que dois je faire ???? aidez moi
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
Je me suis planté, je voulais dire :

ListBox1.DoDragDrop(ListBox1.Items(ListBox1.IndexFromPoint(e.X, e.Y))), DragDropEffects.Copy Or DragDropEffects.Move)
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

désolé de te déranger encore mais j'ai toujours la même erreur qui est

Cast du type 'DataRowView' en type 'Integer' non valide.

mê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é depuid 2 jours si ce n'est pas plus aidez moi!!!!!!!!!!!!!!
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
Tu as essayé d'enlever "ListBox1.SelectedItems" dans cette ligne de code?
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

voila le code que jutilise maintenant:

'premiè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
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

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
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
quand tu mets autre chose que DataFormats.Text, qu'obtients-tu?
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
quand tu mets autre chose que DataFormats.Text, qu'obtients-tu?
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

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
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

alors que dois je faire pour résoudre se grop probleme???????
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
Je fais un dragdrop dans un treeview, voici le code de mon évè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 ça va t'aidere....
Messages postés
67
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
8 août 2005

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