MS V 3.1.3 Beta RightGroups und NodeConfig-Adding

app/DD-Record-Organizer/frmStructureNodeConfig.vb

@@ -378,9 +378,7 @@
 
     End Sub
 
-    Private Sub TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.CurrentChanged
-        Load_image()
-    End Sub
+
     Sub Load_Image()
         If GUIDTextBox.Text <> "" Then
             Try
@@ -416,6 +414,7 @@
                 Dim ID = SelectedNode.Tag
                 If IsNumeric(ID) Then
                     TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.Filter = "GUID = " & ID
+                    Load_Image()
                 End If
             End If
             Me.lblSave.Visible = False
@@ -438,12 +437,22 @@
     End Sub
 
     Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
-        Try
-            TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.AddNew()
-            GroupBoxNodeIcon.Enabled = False
-        Catch ex As Exception
-            MsgBox("Error in AddNode:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
+        'Try
+        '    TBPMO_STRUCTURE_NODES_CONFIGURATIONBindingSource.AddNew()
+        '    GroupBoxNodeIcon.Enabled = False
+        'Catch ex As Exception
+        '    MsgBox("Error in AddNode:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        'End Try
+        Dim oParentID = GUIDTextBox.Text
+        If oParentID = "" Then
+            oParentID = 0
+        End If
+        Dim NewAddForm As New frmNodeConfigAdd(GUIDTextBox.Text, ComboBoxEntity.SelectedValue, ComboBoxEntity.Text)
+        NewAddForm.ShowDialog()
+        LoadData()
+    End Sub
+
+    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs)
 
     End Sub
 End Class