23 lines
577 B
VB.net
23 lines
577 B
VB.net
Imports PluginContracts
|
|
Public Class Class1
|
|
Implements PluginContracts.IPlugin
|
|
|
|
Public ReadOnly Property Name() As String Implements IPlugin.Name
|
|
Get
|
|
Return "ScanKorrektur"
|
|
End Get
|
|
End Property
|
|
|
|
Public Function Show(CurrentUser As String, Connectionstring As String, Parentform As Object) As Object Implements IPlugin.Show
|
|
Globals.Mitarbeiternr = CurrentUser
|
|
Dim f As New frmScanKorrektur
|
|
Try
|
|
f.MdiParent = Parentform
|
|
Catch
|
|
End Try
|
|
|
|
f.Show()
|
|
|
|
End Function
|
|
|
|
End Class |