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.
51 lines
2.0 KiB
51 lines
2.0 KiB
Public Class frmStrukturauswahl
|
|
#Region "Deklarationen"
|
|
Dim Treeviewdata As New TKB.VV.Lizenz.clsLizenzTree
|
|
Public SelectedValue As Integer = -1
|
|
#End Region
|
|
|
|
Private Sub frmStrukturauswahl_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
|
|
Try
|
|
Me.SelectedValue = Me.TreeLizenzen.SelectedNode.Tag
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Private Sub frmStrukturauswahl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Treeviewdata.Load_Tree(Me.TreeLizenzen, False, "", True)
|
|
Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
|
|
End Sub
|
|
|
|
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.Abort
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.Abort
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TSBtnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSelect.Click
|
|
frmStrukturauswahl_DoubleClick(sender, e)
|
|
End Sub
|
|
|
|
Private Sub TSBtnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbtnSuche.Click
|
|
Dim i As Integer
|
|
Suchen()
|
|
End Sub
|
|
Sub suchen()
|
|
Try
|
|
Treeviewdata.Load_Tree(Me.TreeLizenzen, False, Me.TSTxtSuche.Text, True)
|
|
Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.Nodes(0)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub TSTxtSuche_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TSTxtSuche.KeyDown
|
|
If e.KeyCode = Keys.Enter Then suchen()
|
|
End Sub
|
|
End Class |