From f71246c5a6647bdb85a4a9da062d2fd5b9c74514 Mon Sep 17 00:00:00 2001 From: OlgunR Date: Wed, 8 Apr 2026 14:53:01 +0200 Subject: [PATCH] Update profile selection in frmNIVerknuepfungen --- ToolCollection/frmNIVerknuepfungen.vb | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/ToolCollection/frmNIVerknuepfungen.vb b/ToolCollection/frmNIVerknuepfungen.vb index c78f59d..7df898f 100644 --- a/ToolCollection/frmNIVerknuepfungen.vb +++ b/ToolCollection/frmNIVerknuepfungen.vb @@ -486,25 +486,23 @@ Public Class frmNIVerknuepfungen ''' ''' Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked - ClassNIProfile.aktivesProfil = ClassNIProfile.getProfilByName(e.ClickedItem.Text) - Me._selectedProfil = ClassNIProfile.aktivesProfil Try - 'wenn noch kein Profil geladen wurde soll das ausgewählte auf jeden Fall geladen werden If Me._selectedProfil IsNot Nothing Then - Me.LoadSelectedProfile(e.ClickedItem.Text) - Me.pnlZielQuelle.Enabled = True - Else ' wenn bereits ein Profil geladen war + If e.ClickedItem.Text = Me._selectedProfil.Profilname Then Exit Sub If Me._selectedProfil.HasChanges Then Me._selectedProfil.Save(True, "profile") End If - ' wenn ein anderes Profil ausgewählt wurde - If Not e.ClickedItem.Text = Me._selectedProfil.OriginalProfilname Then - Me.LoadSelectedProfile(e.ClickedItem.Text) - Else - 'MsgBox("Keine Änderung") - End If End If + Me.LoadSelectedProfile(e.ClickedItem.Text) + Me.pnlZielQuelle.Enabled = True + + For i = 0 To arrProfile.GetUpperBound(0) + If arrProfile(i, 0) = e.ClickedItem.Text Then + _pos = arrProfile(i, 1) + End If + Next + Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei der Auswahl der Profile") End Try