SDL Jetzt erst recht!

VERAG_PROG_ALLGEMEIN/frmSourceList.vb

@@ -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