Visual Basic .NET Code
Public Class clsAddStartInfoDemo Implements CD2000Plugin.Interfaces.IPlugin Public varHost As CD2000Plugin.Interfaces.CD2000 Public Sub Initialize(ByVal Host As CD2000Plugin.Interfaces.CD2000) Implements CD2000Plugin.Interfaces.IPlugin.Initialize varHost = Host End Sub Public Function Events(ByVal Message As CD2000Plugin.Interfaces.IPlugin.EnumMessages, ByVal Data As Object) As Boolean Implements CD2000Plugin.Interfaces.IPlugin.Events Select Case Message Case CD2000Plugin.Interfaces.IPlugin.EnumMessages.MainForm_OnCopyDiscovery2000Start varHost.CD2000.AddStartInfo("Demo Plugin :: Information", "Interessante Informationen über das Plugin. Und noch mehr hilfreiche Infos über die Verwendung von Demo Plugin. Und so weiter.", AddressOf ShowMessage) End Select End Function Public Sub ShowMessage(ByVal sender As Object, ByVal e As EventArgs) MessageBox.Show("Event ausgeführt") End Sub End Class