Visual Basic

Aus Sceneo Wiki

Beispielimplementierung des Interfaces ICentralPlugin in VB.Net

Imports System.Runtime.InteropServices

Namespace tvcplugin
    <ComVisible(True), GuidAttribute("Hier kommt die GUID rein !")> _
    <ProgId("tvcplugin.tvcplugin")> _
    <ClassInterface(ClassInterfaceType.None)> _
    Public Class tvcplugin
       Implements TVcentral.ICentralPlugin


       Public ReadOnly Property Name() As String Implements TVcentral.ICentralPlugin.Name
           Get
               Return ("pluginname")
           End Get
       End Property


       'wird z.Z. nicht benutzt:
       Public Sub CloseConfiguration(ByVal core As TVcentral.TVcentralServer) Implements _ 
                  TVcentral.ICentralPlugin.CloseConfiguration
       End Sub


       'wenn Message an Plugin gesendet wird:
       Public Sub Execute(ByVal core As TVcentral.TVcentralServer, ByVal msg As TVcentral.MessageItem) _
                  Implements TVcentral.ICentralPlugin.Execute


           'Dieses Kommando wird später von TVC4 ausgelöst,
           ' wenn das plugin aufgerufen wird:
           If msg.Command = "pluginname_command_1" Then
                  
               'z.B. Screen öffnen ...
                     

           'Plugin beenden:
           ElseIf msg.Command = "control" And (msg.Value = "exit" Or msg.Value = "back") Then
                  
               'z.B. Screen schliessen ...  
                  
           
           'hier können noch weitere Kommandos abgefragt werden:
           'z.B. ElseIf msg.Command = "Kommando" Then


           End If

 
       End Sub


       'Plugin wird geladen (Start von TVC):
       Public Sub LoadPlugin(ByVal core As TVcentral.TVcentralServer) Implements _
                  TVcentral.ICentralPlugin.LoadPlugin
       End Sub


       'wird z.Z. nicht benutzt:
       Public Sub OpenConfiguration(ByVal core As TVcentral.TVcentralServer) Implements _
                  TVcentral.ICentralPlugin.OpenConfiguration
       End Sub


       'Plugin wird geschlossen (Ende von TVC):
       Public Sub UnloadPlugin(ByVal core As TVcentral.TVcentralServer) Implements _
                  TVcentral.ICentralPlugin.UnloadPlugin
       End Sub


    End Class


    'hier können noch andere Klassen hin


End Namespace