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

22
ToolCollection/frmNIVerknuepfungen.vb
View File

@@ -486,25 +486,23 @@ 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
If Not e.ClickedItem.Text = Me._selectedProfil.OriginalProfilname Then
Me.LoadSelectedProfile(e.ClickedItem.Text)
Else
'MsgBox("Keine Änderung")
End If
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 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")
End Try End Try