Release für ewa

app/DD-Record-Organizer/frmNodeNavigation_RenameNode.vb

@@ -0,0 +1,24 @@
+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