Initial commit

EDOKA_Toolset/Plugin_Scan/Class1.vb

@@ -0,0 +1,24 @@
+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