You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 lines
1.7 KiB
49 lines
1.7 KiB
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 |