Discussion :

[kelegan]

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 :

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

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 ?

[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

[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 =/

[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

[kelegan]

Code :

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

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 !

[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"