Public Class frmLizenzbeziehung_Aendern

    Dim Treelizenzelement As New TreeView
    Dim Bezeichnung As String
    Dim Selectednode As Integer
    Dim liztree As TKB.VV.Lizenz.clsLizenzTree
    Dim sHyperlink As String
    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, ByVal Hyperlink As String)
        InitializeComponent()
        Me.liztree = lizenztree
        Me.Bezeichnung = bez
        Me.Selectednode = selnode
        Me.sHyperlink = Hyperlink
    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
        Try
            Me.txtHyperlink.Text = sHyperlink

        Catch ex As Exception
            Me.txtHyperlink.Text = ""
        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

    Private Sub txtHyperlink_TextChanged(sender As Object, e As EventArgs) Handles txtHyperlink.TextChanged

    End Sub

    Private Sub txtHyperlink_Leave(sender As Object, e As EventArgs) Handles txtHyperlink.Leave
        Dim clsv As New clsValidator
        If clsv.VerifyString(Me.txtHyperlink.Text) = False Then
            Me.txtHyperlink.Select()
            MsgBox(clsv.Resultmessage, vbExclamation)

        End If
        clsv = Nothing
    End Sub
End Class