Public Class frmLizenzbeziehung_Aendern

    Dim Treelizenzelement As New TreeView
    Dim Bezeichnung As String
    Dim Selectednode As Integer
    Dim liztree As TKB.VV.Lizenz.clsLizenzTree
    Sub New()

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Sub New(ByRef lizenztree As TKB.VV.Lizenz.clsLizenzTree, ByVal bez As String, ByVal selnode As Integer)
        InitializeComponent()
        Me.liztree = lizenztree
        Me.Bezeichnung = bez
        Me.Selectednode = selnode
    End Sub


    Private Sub frmLizenzbeziehung_Aendern_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.txtBemerkung.Text = Me.Bezeichnung
        Me.TreeLizenzen.Nodes.Clear()
        liztree.Load_Treeview(Me.TreeLizenzen)
        Try
            Me.TreeLizenzen.SelectedNode = liztree.FindNode(Me.TreeLizenzen.Nodes, Me.Selectednode, "")
        Catch ex As Exception
            Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
        End Try

    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        liztree.Load_Tree(Me.TreeLizenzen, True)
        Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
    End Sub
End Class