Emmanuele Sassi
32 lines
936 B
VB.net
32 lines
936 B
VB.net
Imports System.ComponentModel.Composition
|
|
Imports Effector.Plugin.Interface
|
|
|
|
<Export(GetType(IPluginControl))>
|
|
<ExportMetadata("Name", "Project")>
|
|
Public Class FiveLakesUI
|
|
Implements IPluginControl
|
|
|
|
|
|
Private m_FiveLakesUIVM As FiveLakesUIVM
|
|
|
|
<ImportingConstructor>
|
|
Sub New(Host As IHost)
|
|
' This call is required by the designer.
|
|
InitializeComponent()
|
|
'' Add any initialization after the InitializeComponent() call.
|
|
m_FiveLakesUIVM = Me.DataContext
|
|
'Me.DataContext = m_FiveLakesUIVM
|
|
AddHandler Me.Loaded, AddressOf FiveLakesUIV_Loaded
|
|
Map.SetRefSupervisorFunction(Host)
|
|
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
|