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.
70 lines
2.4 KiB
70 lines
2.4 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
|
|
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 |