Discussion :

[Dhumkazaar]

Bonjour,

j'essaie de m'initier aux treeview grâce au tutoriel intitulé "le treeview et vous" disponible sur ce site.

Il s'agit d'un treeview non dépendant des données. J'ai donc créé un formulaire dans lequel j'ai inséré un Microsoft treeview control.

J'ai tapé le code suivant, qui me renvoie deux message d'erreur successifs :

"L'expression sur chargement entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. Type défini par l'utilisateur non défini"

"L'expression MouseMove entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. Type défini par l'utilisateur non défini"


Voici mon code :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
 
Option Compare Database
 
 
 
Option Explicit
 
Dim Cat As New ADOX.Catalog
Dim rsNoeuds As ADODB.Recordset
Dim mnIndex As Integer
Dim moDragNode As Object
Dim bolFlagEC As Boolean
Dim objDragNode As Object
Dim tblDrag(3, 3) As String
 
 
 
 
Private Sub Form_Load()
 
Set moDragNode = Nothing
 
cmdLast_Click
cmdLast_Click
 
TreeView0.Nodes(1).Selected = True
 
cmdChild_Click
cmdChild_Click
 
TreeView0.Nodes(2).Selected = True
 
cmdChild_Click
 
TreeView0.Nodes(5).Selected = True
 
cmdChild_Click
 
 
End Sub
 
 
Private Sub cmdLast_Click()
Dim skey As String
 
skey = GetNextKey()
 
On Error GoTo myerr
 
TreeView0.Nodes.Add TreeView.SelectedItem.Index, tvwLast, skey, "Last" & skey, 1, 2
 
Exit Sub
 
myerr:
TreeView0.Nodes.Add , tvwLast, skey, "Last" & skey, 1, 2
 
Exit Sub
End Sub
 
Private Sub cmdChild_Click()
 
Dim oNodex As Node
 
Dim skey As String
 
Dim iIndex As Integer
On Error GoTo myerr
 
iIndex = TreeView0.SelectedItem.Index
 
skey = GetNextKey()
 
Set oNodex = TreeView0.Nodes.Add(iIndex, tvwChild, skey, "Child" & skey, 1, 1)
 
oNodex.EnsureVisible
Exit Sub
 
myerr:
 
MsgBox ("Vous devez selectionner un noeud pour ajouter un noeud enfant" & vbCrLf & "Si le treeview est vide, cliquez sur le bouton de commande Add Last pour créer le premier noeud.")
 
Exit Sub
 
Private Function GetNextKey() As String
 
Dim sNewKey As String
Dim iHold As Integer
Dim i As Integer
On Error GoTo myerr
iHold = Val(TreeView0.Nodes(1).Key)
 
i = treevieuw0.Nodes.Count
 
iHold = Val(TreeView0.Nodes(i).Key)
 
iHold = iHold + 1
 
sNewKey = CStr(iHold) & "_"
 
GetNextKey = sNewKey
 
ExitFunction
 
myerr:
GetNextKey = "1_"
 
Exit Function
End Function

[Dhumkazaar]

Bon, le precedent problème semble résolu, j'avais omis une référence dans mon projet.

Désormais, lorsque je lance le tout, j'ai une erreur de compilation : variable non définie (le curseur se place alors sur la partie en gras du code ci dessous)

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

Private Sub cmdLast_Click()

Dim skey As String
skey = GetNextKey()

On Error GoTo myerr

TreeView0.Nodes.Add
TreeView.SelectedItem.Index , tvwLast, skey, "Last" & skey, 1, 2

Exit Sub

myerr:
TreeView0.Nodes.Add , tvwLast, skey, "Last" & skey, 1, 2

Exit Sub
End Sub

[Dhumkazaar]

bon décidement j'ai les yeux en vrac moi, j'avais mal tapé le nom de mon treeview ^^