AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update profile selection in frmNIVerknuepfungen

Browse Source
This commit is contained in:
OlgunR
2026-04-08 14:53:01 +02:00
parent b7f67af9b2
commit f71246c5a6
1 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
ToolCollection/frmNIVerknuepfungen.vb
View File

@@ -486,24 +486,22 @@ Public Class frmNIVerknuepfungen
''' </summary> ''' </summary>
''' <remarks></remarks> ''' <remarks></remarks>
Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked 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 Try
'wenn noch kein Profil geladen wurde soll das ausgewählte auf jeden Fall geladen werden
If Me._selectedProfil IsNot Nothing Then If Me._selectedProfil IsNot Nothing Then
Me.LoadSelectedProfile(e.ClickedItem.Text) If e.ClickedItem.Text = Me._selectedProfil.Profilname Then Exit Sub
Me.pnlZielQuelle.Enabled = True
Else ' wenn bereits ein Profil geladen war
If Me._selectedProfil.HasChanges Then If Me._selectedProfil.HasChanges Then
Me._selectedProfil.Save(True, "profile") Me._selectedProfil.Save(True, "profile")
End If End If
' wenn ein anderes Profil ausgewählt wurde End If
If Not e.ClickedItem.Text = Me._selectedProfil.OriginalProfilname Then
Me.LoadSelectedProfile(e.ClickedItem.Text) Me.LoadSelectedProfile(e.ClickedItem.Text)
Else Me.pnlZielQuelle.Enabled = True
'MsgBox("Keine Änderung")
End If For i = 0 To arrProfile.GetUpperBound(0)
If arrProfile(i, 0) = e.ClickedItem.Text Then
_pos = arrProfile(i, 1)
End If End If
Next
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei der Auswahl der Profile") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei der Auswahl der Profile")