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.
73 lines
2.7 KiB
73 lines
2.7 KiB
Public Class frmLizenzsuche
|
|
|
|
Public Treeviewdata_Lizenz_Suche As New TKB.VV.Lizenz.clsLizenzTree
|
|
Public activenodetag As Integer
|
|
|
|
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.BeendenToolStripMenuItem_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub frmLizenzsuche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Treeviewdata_Lizenz_Suche.Load_Tree(Me.Treelizenzen, False, "", , , , , )
|
|
|
|
End Sub
|
|
|
|
Private Sub btnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuche.Click
|
|
Me.Treelizenzen.Nodes.Clear()
|
|
Treeviewdata_Lizenz_Suche.Load_Tree(Me.Treelizenzen, False, Me.txtSuche.Text, , , , )
|
|
End Sub
|
|
|
|
Private Sub txtSuche_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSuche.KeyDown
|
|
If e.KeyCode = Keys.Enter Then btnSuche_Click(sender, e)
|
|
End Sub
|
|
|
|
Dim aktivnode As TreeNode
|
|
Private Sub Treelizenzen_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Treelizenzen.DoubleClick
|
|
Dim i As Integer
|
|
Try
|
|
Dim s As String
|
|
s = Treelizenzen.SelectedNode.Tag
|
|
s = s.Replace("*", "0")
|
|
s = s.Replace(" ", "0")
|
|
Me.activenodetag = s
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Treelizenzen_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles Treelizenzen.AfterSelect
|
|
Dim AktivNode As TreeNode = Me.Treelizenzen.SelectedNode
|
|
Try
|
|
Dim s As String
|
|
s = Treelizenzen.SelectedNode.Tag
|
|
s = s.Replace("*", "0")
|
|
s = s.Replace(" ", "0")
|
|
Me.activenodetag = s
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Friend selectPoint As New System.Drawing.Point()
|
|
|
|
|
|
Private Sub TreeLizenzen_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Treelizenzen.MouseDown
|
|
Try
|
|
Dim mouseEvents As MouseEventArgs
|
|
mouseEvents = e
|
|
selectPoint.Y = mouseEvents.Y
|
|
selectPoint.X = mouseEvents.X
|
|
Me.TreeLizenzen.SelectedNode = Me.TreeLizenzen.GetNodeAt(selectPoint)
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
End Class |