22 lines
630 B
VB.net
22 lines
630 B
VB.net
Public Class Class1
|
|
Implements EDOKA_PluginLib.IPlugin
|
|
|
|
Private objHost As PluginLib.IHost
|
|
|
|
Public Sub Initialize(ByVal Host As PluginLib.IHost) _
|
|
Implements PluginLib.IPlugin.Initialize
|
|
objHost = Host
|
|
End Sub
|
|
|
|
Public ReadOnly Property Name() As String Implements _
|
|
PluginLib.IPlugin.Name
|
|
Get
|
|
Return "Example Plugin 1 - Adds two numbers"
|
|
End Get
|
|
End Property
|
|
|
|
Public Function Show(ByVal CurrentUser As String, Connectionstring As String, parentform As Object) Implements EDOKA_PluginLib.IPlugin.Show
|
|
MsgBox(CurrentUser)
|
|
End Function
|
|
End Class
|