25 lines
724 B
Plaintext
25 lines
724 B
Plaintext
Public Class Class1
|
|
Implements EDOKA_PluginLib.IPlugin
|
|
|
|
Private objHost As EDOKA_PluginLib.IHost
|
|
|
|
Public Sub Initialize(ByVal Host As EDOKA_PluginLib.IHost) _
|
|
Implements EDOKA_PluginLib.IPlugin.Initialize
|
|
objHost = Host
|
|
End Sub
|
|
|
|
Public ReadOnly Property Name() As String Implements _
|
|
EDOKA_PluginLib.IPlugin.Name
|
|
Get
|
|
Return "EDOKA_Scan"
|
|
End Get
|
|
End Property
|
|
|
|
Public Function Show(ByVal CurrentUser As String, Connectionstring As String, parentform As Object) Implements EDOKA_PluginLib.IPlugin.Show
|
|
Globals.Mitarbeiternr = CurrentUser
|
|
Dim f As New frmScan
|
|
f.MdiParent = parentform
|
|
f.Show()
|
|
End Function
|
|
End Class
|