Demetrio Cassarino
43 lines
1.1 KiB
VB.net
43 lines
1.1 KiB
VB.net
Imports EgtUILib.EgtInterface
|
|
|
|
Public Class SceneHostV
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_MySceneHostVM As MySceneHostVM
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' La chiamata è richiesta dalla finestra di progettazione.
|
|
InitializeComponent()
|
|
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
|
|
Me.DataContext = New MySceneHostVM
|
|
m_MySceneHostVM = DirectCast(Me.DataContext, MySceneHostVM)
|
|
m_MySceneHostVM.SetMainScene(MainScene)
|
|
Map.SetRefSceneHostV(Me)
|
|
|
|
AddHandler MainScene.GotFocus, AddressOf MainScene_GotFocus
|
|
AddHandler MainScene.LostFocus, AddressOf MainScene_LostFocus
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "EVENTS"
|
|
|
|
Private Sub MainScene_GotFocus()
|
|
m_MySceneHostVM.SetIsFocused(True)
|
|
Map.refTopPanelVM.SetView_Msg("▼" & EgtMsg(110019)) ' Vista
|
|
Map.refTopPanelVM.SetProspectiveView_Msg("▼" & EgtMsg(110027)) ' Vista Prospettica
|
|
End Sub
|
|
|
|
Private Sub MainScene_LostFocus()
|
|
m_MySceneHostVM.SetIsFocused(False)
|
|
End Sub
|
|
|
|
#End Region ' Events
|
|
|
|
End Class
|