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 |
Partager