VB.NET language

Imports NextFEMplugin

 Public Class plugin

    Implements IPlugin

     Public Sub LaunchMe(hnd As IntPtr) Implements IPlugin.LaunchMe

        Dim frm As New TrussDrawer

        frm.caller = Me

        frm.Text = Me.PluginName

        frm.Show(System.Windows.Forms.Control.FromHandle(hnd))

    End Sub

     Public ReadOnly Property PluginAuthor As String Implements IPlugin.PluginAuthor

        Get

            Return “NextFEM Support Team”

        End Get

    End Property

     Public ReadOnly Property PluginName As String Implements IPlugin.PluginName

        Get

            Return “Truss Drawer”

        End Get

    End Property

     Public ReadOnly Property iconFile As String Implements IPlugin.iconFile

        Get

            Return “NextFEM.ico”

        End Get

    End Property

     Public Event updateModel(sender As Object, resize As Boolean, Vstate As ViewState) Implements IPlugin.updateModel

    Friend Sub RequestScreenUpdate(sender As Object,resize As Boolean, Vstate As ViewState)

        RaiseEvent updateModel(sender, resize, Vstate)

    End Sub

    Public Event undoCall(undoProperty As undoOps) Implements IPlugin.undoCall

    Friend Sub RequestUndo(undoProperty As undoOps)

        RaiseEvent undoCall(undoProperty)

    End Sub

 

    Public Property API As NextFEMapi.API Implements IPlugin.API

    Public Property currentLoadcase As String Implements IPlugin.currentLoadcase

    Public Property currentTime As String Implements IPlugin.currentTime

End Class