Änderung der Logik der Vollmachtsverwaltung im Kunden (nun können pro VM-Typ mehrere Vollmachten hinterlegt werden). Weiters wurde die GUI der Vollmachten überarbeitet

This commit is contained in:
2022-09-19 08:29:11 +02:00
parent 780d763ba4
commit 5d324634de
399 changed files with 259205 additions and 1386 deletions

View File

@@ -0,0 +1,38 @@
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Partial Public Class frmSourceList
Inherits Form
Private m_ListSourceNames As List(Of String) = Nothing
Private m_SelectedIndex As Integer = -1
Public Sub New(listSourceNames As List(Of String))
InitializeComponent()
m_ListSourceNames = listSourceNames
If m_ListSourceNames Is Nothing Then
button1.Enabled = False
End If
For Each temp As String In m_ListSourceNames
listBox1.Items.Add(temp)
Next
listBox1.SelectedIndex = m_ListSourceNames.Count - 1
End Sub
Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
m_SelectedIndex = listBox1.SelectedIndex
Me.Close()
End Sub
Private Sub button2_Click(sender As Object, e As EventArgs) Handles button2.Click
Me.Close()
End Sub
Public Function GetSelectedIndex() As Integer
Return m_SelectedIndex
End Function
End Class