21 lines
961 B
VB.net
21 lines
961 B
VB.net
Public Class frmMIParameterHinzufügen
|
|
Public selectedProfil As ClassMI_Profil
|
|
Public Shared _windream As New ClassWindream_allgemein(CURR_LogConfig)
|
|
|
|
Private Sub frmParameterHinzufügen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
If Not Me.selectedProfil.DokumenttypString = "" Then
|
|
Dim indexe() As String = _windream.GetIndicesByObjecttype(Me.selectedProfil.DokumenttypString, True, "MI")
|
|
|
|
For Each index As String In indexe
|
|
Me.lbxIndexe.Items.Add(index)
|
|
Next
|
|
Else
|
|
MsgBox("Es wurde kein Dokumenttyp angegeben.", MsgBoxStyle.Exclamation, "Fehlende Informationen")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click
|
|
Me.selectedProfil.AddParameter(Me.lbxIndexe.SelectedItem)
|
|
Me.Close()
|
|
End Sub
|
|
End Class |