1
2
3
4
5
6
7
8
9
10
11
12
13
|
Private Sub TreeView1_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
Dim varOpen As String
Dim n As TreeNode
n = e.Node
If n.Tag Is Nothing Then Exit Sub
varOpen = n.Tag.ToString()
Select Case varOpen
'Dann mit den cases die treenode-tags abfragen
Case "Beispiel"
'Verarbeitung.....
End Select
End Sub
|