Dario Sassi
112 lines
3.6 KiB
VB.net
112 lines
3.6 KiB
VB.net
Imports EgtUILib.EgtInterface
|
|
|
|
Public Class tsInfo
|
|
|
|
Private m_scene As Scene
|
|
|
|
'Create button
|
|
Public btnGetDist As New ToolStripButton
|
|
Public btnAnalyze As New ToolStripButton
|
|
|
|
Sub New()
|
|
|
|
MyBase.New()
|
|
Me.Anchor = AnchorStyles.None
|
|
Me.Dock = DockStyle.None
|
|
' Chiamata richiesta dalla finestra di progettazione.
|
|
InitializeComponent()
|
|
AddButtons()
|
|
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
|
|
|
|
End Sub
|
|
|
|
Public Sub SetScene(ByRef scene As Scene)
|
|
m_scene = scene
|
|
End Sub
|
|
|
|
Public Sub AddButtons()
|
|
With btnGetDist
|
|
'Set properties
|
|
.Name = "btnGetDist"
|
|
.AutoToolTip = True
|
|
.DisplayStyle = ToolStripItemDisplayStyle.Image
|
|
.Image = EgtUILib.My.Resources.Resources.GetDist
|
|
.Checked = False
|
|
.Text = ""
|
|
.ToolTipText = "GetDist"
|
|
End With
|
|
|
|
With btnAnalyze
|
|
'Set properties
|
|
.Name = "btnAnalyze"
|
|
.AutoToolTip = True
|
|
.DisplayStyle = ToolStripItemDisplayStyle.Image
|
|
.Image = EgtUILib.My.Resources.Resources.Analyze
|
|
.Checked = False
|
|
.Text = ""
|
|
.ToolTipText = "Analyze"
|
|
End With
|
|
|
|
'Create a Handle to Click and CheckedChanged Events
|
|
AddHandler btnGetDist.Click, AddressOf btnGetDist_Click
|
|
AddHandler btnGetDist.CheckedChanged, AddressOf btnGetDist_CheckedChanged
|
|
AddHandler btnAnalyze.Click, AddressOf btnAnalyze_Click
|
|
AddHandler btnAnalyze.CheckedChanged, AddressOf btnAnalyze_CheckedChanged
|
|
|
|
'Add to toolstrip
|
|
MyClass.Items.Add(btnGetDist)
|
|
MyClass.Items.Add(btnAnalyze)
|
|
|
|
End Sub
|
|
|
|
'The Click and CheckedChanged Events
|
|
Private Sub btnGetDist_Click(sender As Object, e As System.EventArgs)
|
|
' era selezionato -> va deselezionato
|
|
If btnGetDist.Checked Then
|
|
btnGetDist.Checked = False
|
|
' non era selezionato -> va selezionato
|
|
Else
|
|
btnGetDist.Checked = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnGetDist_CheckedChanged(sender As Object, e As System.EventArgs)
|
|
If btnGetDist.Checked Then
|
|
btnAnalyze.Checked = False ' l'altro bottone va deselezionato
|
|
m_scene.SetStatusGetDistance()
|
|
Else
|
|
' Salvo il contesto corrente e imposto quello della scena
|
|
Dim nOldGseCtx = EgtGetCurrentContext()
|
|
If nOldGseCtx <> m_scene.GetCtx() Then
|
|
EgtSetCurrentContext(m_scene.GetCtx())
|
|
End If
|
|
' Reset nel contesto corretto della scena
|
|
m_scene.ResetStatusGetDistance()
|
|
' Ripristino il contesto originale
|
|
If nOldGseCtx <> m_scene.GetCtx() Then
|
|
EgtSetCurrentContext(nOldGseCtx)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnAnalyze_Click(sender As Object, e As System.EventArgs)
|
|
' era selezionato -> va deselezionato
|
|
If btnAnalyze.Checked Then
|
|
btnAnalyze.Checked = False
|
|
' non era selezionato -> va selezionato
|
|
Else
|
|
btnAnalyze.Checked = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnAnalyze_CheckedChanged(sender As Object, e As System.EventArgs)
|
|
If btnAnalyze.Checked Then
|
|
btnGetDist.Checked = False ' l'altro bottone va deselezionato
|
|
m_scene.SetStatusAnalyze()
|
|
Else
|
|
m_scene.ResetStatusAnalyze()
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|