18 lines
544 B
VB.net
18 lines
544 B
VB.net
Public Class frmErrorList
|
|
|
|
Dim ErrorList As List(Of String)
|
|
|
|
Public Sub New(errorlist As List(Of String))
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
Me.ErrorList = errorlist
|
|
End Sub
|
|
Private Sub frmErrorList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
txtErrors.Text = String.Join(vbCrLf, ErrorList.ToArray)
|
|
txtErrors.DeselectAll()
|
|
End Sub
|
|
End Class |