24 lines
950 B
VB.net
24 lines
950 B
VB.net
Public Class frmNodeNavigation_RenameNode
|
||
''' <summary>
|
||
''' Die initiale Beschriftung des Knotens – vor dem Öffnen setzen.
|
||
''' </summary>
|
||
Public Property NodeCaption As String = ""
|
||
|
||
''' <summary>
|
||
''' Die neue Beschriftung nach erfolgreichem Umbenennen.
|
||
''' </summary>
|
||
Public Property NewNodeCaption As String = ""
|
||
Private Sub frmNodeNavigation_RenameNode_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||
txtNode_Caption.Text = NodeCaption
|
||
End Sub
|
||
|
||
Private Sub txtNode_Caption_EditValueChanged(sender As Object, e As EventArgs) Handles txtNode_Caption.EditValueChanged
|
||
btnRename.Enabled = Not String.IsNullOrWhiteSpace(txtNode_Caption.Text)
|
||
End Sub
|
||
|
||
Private Sub btnRename_Click(sender As Object, e As EventArgs) Handles btnRename.Click
|
||
NewNodeCaption = txtNode_Caption.Text.Trim()
|
||
Me.DialogResult = DialogResult.OK
|
||
Me.Close()
|
||
End Sub
|
||
End Class |