Structure treeview drag'n drop

Version imprimable

16/02/2011, 16h43
kelegan

Structure treeview drag'n drop
Bonjour à tous !

Je suis actuellement sur un projet. Mon projet possède des treeviews où je peux faire du drag'n drop.

Pour créer mes treeviews, il n'y a aucun soucis. Les éléments des treeviews viennent directement d'une base de données MSSQL.

Pour avoir un id associé à chaque nom, j'ai utilisé des tableaux de structure comme ceci :
Code:

1 2 3 4 Public Structure Ressources Dim Id As Integer Dim Name As String End Structure
Jusque là, aucun problème, pour chaque structure, j'ai bien mon id associé a mon name, et je peux les récupérer.

Mon problème vient du drag'n drop. J'utilise aussi les structures pour mes autres treeviews où je fais le drag'n drop.
Je voudrai garder la structure entière lors du drag'n drop, c'est à dire que le name, mais aussi l'id se déplace dans mon treeview principal.
Comment puis-je procéder ? Quelqu'un à déjà fait celà ?
D'autant qu'il faut que je garde l'id, sinon, ce n'est pas très "pro" si je fais mes requêtes sur le nom :)

M'avez-vous compris ?
16/02/2011, 17h22
Pol63

une classe est en général mieux qu'une structure

sinon pour le drag and drop tu peux passer une instance classe donc surement une structure aussi
16/02/2011, 17h29
kelegan

Les classes, c'est toujours mieux ^^

Mais en faite, je suis partie sur des structures dès le début, et je viens juste de penser à faire des classes.

Si il est possible de faire du drag'n drop sur des structures, je ne vois pas du tout comment faire =/
16/02/2011, 17h33
Pol63

comment fais tu du drag and drop ?

de mémoire y a une méthode pour dire quelle donnée on veut mettre dans le démarrage du drag and drop
et une méthode à utiliser au survol et drop pour vérifier que la donnée contenu dans le drag and drop est bien du type qu'on veut
donc avec une classe ca ne pose pas de soucis

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub TreeView_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TreeView.DragDrop, TreeViewEtapes.DragDrop
	Dim OrigineNode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
	If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", False) Then
		Dim pt As Point
		Dim DestinationNode As TreeNode
		'Utilisez PointToClient pour calculer l'endroit de la souris sur le destination TreeView.
		pt = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
		'Utilisez ce Point pour recevoir le noeud le plus proche dans la destination TreeView.
		DestinationNode = CType(sender, TreeView).GetNodeAt(pt)
		If (DestinationNode.Level < 2) Then
			DestinationNode.Nodes.Add(CType(OrigineNode.Clone, TreeNode))
		End If
	End If
End Sub
Private Sub TreeView_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TreeView.DragEnter
	'L'événement DragEnter est déclenché lorsque l'utilisateur fait glisser pour la première fois le curseur de la souris au-dessus du contrôle durant une opération de glisser-déplacer.
	If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then
		e.Effect = DragDropEffects.All
	Else
		e.Effect = DragDropEffects.None
	End If
End Sub
Private Sub TreeView_DragLeave(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TreeView.DragLeave
	'Se produit lorsque l'utilisateur fait glisser un élément et que le pointeur de la souris n'est plus sur la zone cliente de cet élément
	If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then
		e.Effect = DragDropEffects.All
	Else
		e.Effect = DragDropEffects.None
	End If
End Sub
Private Sub TreeView_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles TreeView.ItemDrag, TreeViewOperations.ItemDrag, TreeViewEtapes.ItemDrag
	'Se produit lorsque l'utilisateur commence à faire glisser un élément.
	If e.Button = Windows.Forms.MouseButtons.Left Then
		DoDragDrop(e.Item, DragDropEffects.Move Or DragDropEffects.Copy Or DragDropEffects.All)
	End If
End Sub

Voici comment je fais mon drag'n drop !

16/02/2011, 17h57
Pol63

au lieu de passer un treenode tu peux passer une classe avec les infos dont tu as besoin

ou alors faire une classe qui hérite de treenode avec des propriétés en plus

car là si un utilisateur fait un drag drop d'un treeview à un autre treeview mais contenant autre chose le test va te dire que c'est un treenode alors qu'il ne contient pas le même type de données
avec une classe personnalisée on peut éviter ce "problème"
17/02/2011, 09h34
kelegan

Donc si je comprends bien, dans ma programmation, au lieu d'écrire

Code:

Dim OrigineNode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)

j'écris quelque chose dans ce style

Code:

Dim uneRessource As Ressource = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), Ressource)

C'est bien ça ?

Comment puis-je déclarer ma classe avec un treenode ?
17/02/2011, 09h42
Pol63

non c'est pas vraiment ca

dans le cas d'une classe de données au moment du setdata il ne faut pas passer le treenode mais l'instance de la classe avec les infos
et au moment du getdata c'est directcast(getdata("montype"),montype)
après il faut pouvoir retrouver l'intance de la classe qui correspond au treenode
ou alors comme je disais faire un classe qui hérite de treenode

directcast est plus rapide que ctype pour un cast, ctype est utile pour une conversion (genre décimal en int)
18/02/2011, 09h32
kelegan

Bon, j'ai réussi à trouver mon vrai problème.

En faite, quand je fais du drag'n drop, j'insère dans mon treeview un nouvel élément. Mais le compteur lui reste le même !

Il faudrait donc que je décale de 1 à partir du noeud d'insertion !
18/02/2011, 14h52
kelegan
Bon alors, voici ma solution pour garder le tag et le texte lors du drag'n drop. Il ne faut pas non plus oublier de bien passer l'objet en entier lors du chargement des treeviews :
Code:

1 2 3 4 5 6 While (MyExecut.Read()) Node = New TreeNode() Node.Tag = MyExecut(0) Node.Text = MyExecut(2) TreeView.Nodes.Add(Node) End While
Et voilà :)