Public Sub SetNodeBuchN(ParentNode As Object, strBuchname As String, lngBuchID _
  As Long)
Dim ChildNode As pvxNode
 
Set ChildNode = frmSerienplaner.PVExplorer1.Nodes.Add(ParentNode, pvxPrevious, _
  strBuchname, 2, 2)
ChildNode.WindowObject = frmBuchdaten.hWnd
ChildNode.Key = "4$" & lngBuchID
ChildNode.Selected = True
 
End Sub
 
(damit wird Knoten gelöscht)
Private Sub Cmdloeschen_Click()
On Error GoTo DeleteErr
 
Buchn = txtname
lngIDB = Adodc.Recordset("ID_Nummer").Value
 
With Adodc.Recordset
.Delete
.MoveNext
 
End With
 
 
Call NodeDeleted(tvwneuKnoten, Buchn, lngIDB) _
  frmSerienplaner.PVExplorer1.TreeView.Redraw = True ' refresh vom treeview
frmSerienplaner.Refresh
 
DeleteErr:
MsgBox Err.Description
End Sub
 
Public Sub NodeDeleted(ParentNode As Object, strBuchname As String, lngBuchID _
  As Long)
Dim ChildNode As pvxNode
 
Set tvwKnoten = frmSerienplaner.PVExplorer1.TreeView.Nodes
Set tvwneuKnoten = frmSerienplaner.PVExplorer1.SelectedNode
 
Set tvwneuKnoten = Nothing
 
End Sub