Emmanuele Sassi
36 lines
989 B
VB.net
36 lines
989 B
VB.net
Imports System.ComponentModel.Composition
|
|
Imports System.Text
|
|
Imports Supervisor.Plugin.Interface
|
|
|
|
<Export(GetType(IPluginControl))>
|
|
<ExportMetadata("Name", "Project")>
|
|
Public Class FiveLakesUI
|
|
Implements IPluginControl
|
|
|
|
<Import(GetType(IHost))>
|
|
Public Host As IHost
|
|
|
|
Private m_FiveLakesUIVM As FiveLakesUIVM
|
|
|
|
Sub New()
|
|
|
|
' This call is required by the designer.
|
|
InitializeComponent()
|
|
|
|
'' Add any initialization after the InitializeComponent() call.
|
|
'Host.PlgOutLog("Comando su log da Plugin!!!!!")
|
|
m_FiveLakesUIVM = New FiveLakesUIVM
|
|
Me.DataContext = m_FiveLakesUIVM
|
|
AddHandler Me.Loaded, AddressOf FiveLakesUIV_Loaded
|
|
End Sub
|
|
|
|
'Private Sub Button1_Click(sender As Object, e As RoutedEventArgs) Handles Button1.Click
|
|
' 'TextBlockTest.Text = Host.PluginTestInfo
|
|
'End Sub
|
|
|
|
Private Sub FiveLakesUIV_Loaded(sender As Object, e As RoutedEventArgs)
|
|
m_FiveLakesUIVM.SetTextTest("Prova 1!!")
|
|
End Sub
|
|
|
|
End Class
|