Egalware/EgtUILib
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtUILib :

Browse Source 
- aggiornati tutti i bottoni.
This commit is contained in:
Emmanuele Sassi
2014-09-14 19:23:56 +00:00
parent 2ebf3ae018
commit deb1b8187d
68 changed files with 1426 additions and 1630 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtUILib.vbproj
+105 -51
View File
@@ -132,6 +132,60 @@
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="btnBack.Designer.vb">
<DependentUpon>btnBack.vb</DependentUpon>
</Compile>
<Compile Include="btnBack.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="btnExec.Designer.vb">
<DependentUpon>btnExec.vb</DependentUpon>
</Compile>
<Compile Include="btnExec.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="btnExport.Designer.vb">
<DependentUpon>btnExport.vb</DependentUpon>
</Compile>
<Compile Include="btnExport.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="btnFront.Designer.vb">
<DependentUpon>btnFront.vb</DependentUpon>
</Compile>
<Compile Include="btnFront.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="btnImport.Designer.vb">
<DependentUpon>btnImport.vb</DependentUpon>
</Compile>
<Compile Include="btnImport.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="btnIso.Designer.vb">
<DependentUpon>btnIso.vb</DependentUpon>
</Compile>
<Compile Include="btnIso.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="btnLeft.Designer.vb">
<DependentUpon>btnLeft.vb</DependentUpon>
</Compile>
<Compile Include="btnLeft.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="btnNew.Designer.vb">
<DependentUpon>btnNew.vb</DependentUpon>
</Compile>
<Compile Include="btnNew.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="btnOpen.Designer.vb">
<DependentUpon>btnOpen.vb</DependentUpon>
</Compile>
<Compile Include="btnOpen.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="btnRendering.Designer.vb">
<DependentUpon>btnRendering.vb</DependentUpon>
</Compile>
@@ -144,49 +198,49 @@
<Compile Include="btnLookFrom.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="btnZoom.Designer.vb">
<DependentUpon>btnZoom.vb</DependentUpon>
<Compile Include="btnRight.Designer.vb">
<DependentUpon>btnRight.vb</DependentUpon>
</Compile>
<Compile Include="btnZoom.vb">
<SubType>UserControl</SubType>
<Compile Include="btnRight.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="cmdExec.Designer.vb">
<DependentUpon>cmdExec.vb</DependentUpon>
<Compile Include="btnSave.Designer.vb">
<DependentUpon>btnSave.vb</DependentUpon>
</Compile>
<Compile Include="cmdExec.vb">
<SubType>UserControl</SubType>
<Compile Include="btnSave.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="cmdExport.Designer.vb">
<DependentUpon>cmdExport.vb</DependentUpon>
<Compile Include="btnTop.Designer.vb">
<DependentUpon>btnTop.vb</DependentUpon>
</Compile>
<Compile Include="cmdExport.vb">
<SubType>UserControl</SubType>
<Compile Include="btnTop.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="cmdImport.Designer.vb">
<DependentUpon>cmdImport.vb</DependentUpon>
<Compile Include="btnZoomAll.Designer.vb">
<DependentUpon>btnZoomAll.vb</DependentUpon>
</Compile>
<Compile Include="cmdImport.vb">
<SubType>UserControl</SubType>
<Compile Include="btnZoomAll.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="cmdNew.Designer.vb">
<DependentUpon>cmdNew.vb</DependentUpon>
<Compile Include="btnZoomIn.Designer.vb">
<DependentUpon>btnZoomIn.vb</DependentUpon>
</Compile>
<Compile Include="cmdNew.vb">
<SubType>UserControl</SubType>
<Compile Include="btnZoomIn.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="cmdOpen.Designer.vb">
<DependentUpon>cmdOpen.vb</DependentUpon>
<Compile Include="btnZoomOut.Designer.vb">
<DependentUpon>btnZoomOut.vb</DependentUpon>
</Compile>
<Compile Include="cmdOpen.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="cmdSave.Designer.vb">
<DependentUpon>cmdSave.vb</DependentUpon>
</Compile>
<Compile Include="cmdSave.vb">
<SubType>UserControl</SubType>
<Compile Include="btnZoomOut.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="EgtInterface.vb" />
<Compile Include="gbLookFrom.Designer.vb">
<DependentUpon>gbLookFrom.vb</DependentUpon>
</Compile>
<Compile Include="gbLookFrom.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
@@ -202,10 +256,28 @@
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Prova1.Designer.vb">
<DependentUpon>Prova1.vb</DependentUpon>
<Compile Include="rbtnHiddenLine.Designer.vb">
<DependentUpon>rbtnHiddenLine.vb</DependentUpon>
</Compile>
<Compile Include="Prova1.vb">
<Compile Include="rbtnHiddenLine.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="rbtnScene.Designer.vb">
<DependentUpon>rbtnScene.vb</DependentUpon>
</Compile>
<Compile Include="rbtnScene.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="rbtnShading.Designer.vb">
<DependentUpon>rbtnShading.vb</DependentUpon>
</Compile>
<Compile Include="rbtnShading.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="rbtnWireframe.Designer.vb">
<DependentUpon>rbtnWireframe.vb</DependentUpon>
</Compile>
<Compile Include="rbtnWireframe.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Scene.Designer.vb">
@@ -247,24 +319,6 @@
<EmbeddedResource Include="btnRendering.resx">
<DependentUpon>btnRendering.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="btnZoom.resx">
<DependentUpon>btnZoom.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="cmdExport.resx">
<DependentUpon>cmdExport.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="cmdImport.resx">
<DependentUpon>cmdImport.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="cmdNew.resx">
<DependentUpon>cmdNew.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="cmdOpen.resx">
<DependentUpon>cmdOpen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="cmdSave.resx">
<DependentUpon>cmdSave.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
Prova1.vb
-40
View File
@@ -1,40 +0,0 @@
Public Class Prova1
Sub New()
MyBase.New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
AddButton()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
End Sub
Public Sub AddButton()
'Create button
Dim Btn As New ToolStripButton
With Btn
'Set properties
.Text = "Test1"
.DisplayStyle = ToolStripItemDisplayStyle.ImageAndText
End With
'Create a Handle to a Click Event
AddHandler Btn.Click, AddressOf btn_Click
'Add to toolstrip
MyClass.Items.Add(Btn)
End Sub
'The Click Event
Private Sub btn_Click(sender As Object, e As System.EventArgs)
'Code to execute when the button is clicked goes here
End Sub
'Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
' MyBase.OnPaint(e)
'Inserire qui il codice personalizzato
'End Sub
End Class
Scene.vb
+166
View File
@@ -18,6 +18,7 @@ Public Class Scene
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Istruzioni di inizializzazione.
Me.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
SetStyle(ControlStyles.Opaque, True)
SetStyle(ControlStyles.UserPaint, True)
SetStyle(ControlStyles.AllPaintingInWmPaint, True)
@@ -174,4 +175,169 @@ Public Class Scene
Public Event CursorPos(ByVal sender As Object, ByVal sCursorPos As String)
'---- Main Buttons ----
Public Sub NewProject()
If EgtNewFile(m_nGseContext) Then
'ClearObjTree()
EgtZoom(m_nGseContext, ZM_ALL)
End If
End Sub
Public Sub OpenProject()
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.Title = "Open"
OpenFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge|New font EgalTech(*.nfe)|*.nfe|All Files (*.*)|*.*"
OpenFileDialog.FilterIndex = 1
If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Cursor = Cursors.WaitCursor
If EgtOpenFile(m_nGseContext, OpenFileDialog.FileName) Then
EgtZoom(m_nGseContext, ZM_ALL)
'LoadObjTree()
End If
Cursor = Cursors.Default
End If
End Sub
Public Sub SaveProject()
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.Title = "Save"
SaveFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge"
SaveFileDialog.FilterIndex = 1
If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Cursor = Cursors.WaitCursor
' ripristino stato oggetto marcato
'Dim nIdOld As Integer = RevertOldIdInObjTree()
' eseguo salvataggio
EgtSaveFile(m_nGseContext, SaveFileDialog.FileName, NGE_CMPTEXT)
' rimarco oggetto
'SelectIdInObjTree(nIdOld)
Cursor = Cursors.Default
End If
End Sub
Public Sub ImportProject()
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.Title = "Import"
OpenFileDialog.Filter = "Drawing Exchange Fmt(*.dxf)|*.dxf|Stereolithography (*.stl)|*.stl|All Files (*.*)|*.*"
OpenFileDialog.FilterIndex = 1
If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim nFileType As Integer = EgtGetFileType(OpenFileDialog.FileName)
If nFileType = FT_DXF Then
Cursor = Cursors.WaitCursor
EgtNewFile(m_nGseContext)
If EgtImportDxf(m_nGseContext, OpenFileDialog.FileName) Then
EgtZoom(m_nGseContext, ZM_ALL)
'LoadObjTree()
End If
Cursor = Cursors.Default
ElseIf nFileType = FT_STL Then
Cursor = Cursors.WaitCursor
EgtNewFile(m_nGseContext)
If EgtImportStl(m_nGseContext, OpenFileDialog.FileName) Then
EgtZoom(m_nGseContext, ZM_ALL)
'LoadObjTree()
End If
Cursor = Cursors.Default
Else
MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End Sub
Public Sub ExportProject()
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.Title = "Export"
SaveFileDialog.Filter = "Drawing Exchange Fmt(*.dxf)|*.dxf|Stereolithography (*.stl)|*.stl|All Files (*.*)|*.*"
SaveFileDialog.FilterIndex = 1
If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim nFileType As Integer = EgtGetFileType(SaveFileDialog.FileName)
If nFileType = FT_DXF Then
Cursor = Cursors.WaitCursor
EgtExportDxf(m_nGseContext, GDB_ID_ROOT, SaveFileDialog.FileName)
Cursor = Cursors.Default
ElseIf nFileType = FT_STL Then
Cursor = Cursors.WaitCursor
EgtExportStl(m_nGseContext, GDB_ID_ROOT, SaveFileDialog.FileName)
Cursor = Cursors.Default
Else
MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End Sub
Public Sub Exec()
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.Title = "Exec TSC"
OpenFileDialog.Filter = "Test commands(*.tsc)|*.tsc"
OpenFileDialog.FilterIndex = 1
If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Cursor = Cursors.WaitCursor
' pulisco albero degli oggetti
'ClearObjTree()
' eseguo
If EgtTscFileExec(m_nGseContext, OpenFileDialog.FileName) Then
EgtZoom(m_nGseContext, ZM_ALL)
'LoadObjTree()
End If
' ricarico albero degli oggetti
'LoadObjTree()
Cursor = Cursors.Default
End If
End Sub
'---- Zoom Buttons ----
Public Sub ZoomAll()
EgtZoom(m_nGseContext, ZM_ALL)
End Sub
Public Sub ZoomIn()
EgtZoom(m_nGseContext, ZM_IN)
End Sub
Public Sub ZoomOut()
EgtZoom(m_nGseContext, ZM_OUT)
End Sub
'---- Rendering Buttons ----
Public Sub WireFrame()
EgtSetShowMode(m_nGseContext, SM_WIREFRAME)
End Sub
Public Sub HiddenLine()
EgtSetShowMode(m_nGseContext, SM_HIDDENLINE)
End Sub
Public Sub Shading()
EgtSetShowMode(m_nGseContext, SM_SHADING)
End Sub
'---- LookFrom Buttons ----
Public Sub TopView()
EgtSetView(m_nGseContext, CT_TOP)
End Sub
Public Sub IsoView()
EgtSetView(m_nGseContext, CT_ISO_SW)
End Sub
Public Sub FrontView()
EgtSetView(m_nGseContext, CT_FRONT)
End Sub
Public Sub BackView()
EgtSetView(m_nGseContext, CT_BACK)
End Sub
Public Sub LeftView()
EgtSetView(m_nGseContext, CT_LEFT)
End Sub
Public Sub RightView()
EgtSetView(m_nGseContext, CT_RIGHT)
End Sub
End Class
Settings.vb
+2 -3
View File
@@ -1,6 +1,5 @@
Namespace My
Namespace My
'La classe consente la gestione di eventi specifici sulla classe delle impostazioni:
' L'evento SettingChanging viene generato prima della modifica di un valore dell'impostazione.
' L'evento PropertyChanged viene generato dopo la modifica di un valore dell'impostazione.
Prova1.Designer.vb → btnBack.Designer.vb
Generated
+2 -2
View File
@@ -1,6 +1,6 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Prova1
Inherits System.Windows.Forms.ToolStrip
Partial Class btnBack
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
btnBack.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnBack
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "Back"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnBack_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.BackView()
End Sub
End Class
btnExec.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnExec
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnExec.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnExec
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "Exec"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnExec_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.Exec()
End Sub
End Class
btnExport.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnExport
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnExport.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnExport
Private m_scene As Scene
Sub New()
Me.Text = "Export"
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' 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
Private Sub btnExport_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.ExportProject()
End Sub
End Class
btnFront.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnFront
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnFront.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnFront
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "Front"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnFront_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.FrontView()
End Sub
End Class
btnImport.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnImport
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnImport.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnImport
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "Import"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnImport_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.ImportProject()
End Sub
End Class
btnIso.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnIso
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnIso.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnIso
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "Iso"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnIso_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.IsoView()
End Sub
End Class
btnLeft.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnLeft
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnLeft.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnLeft
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "Left"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnLeft_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.LeftView()
End Sub
End Class
btnNew.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnNew
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnNew.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnNew
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "New"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.NewProject()
End Sub
End Class
btnOpen.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnOpen
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnOpen.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnOpen
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "Open"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnOpen_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.OpenProject()
End Sub
End Class
btnRight.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnRight
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnRight.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnRight
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "Right"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnZoomAll_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.RightView()
End Sub
End Class
btnSave.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnSave
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnSave.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnSave
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "Save"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.SaveProject()
End Sub
End Class
btnTop.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnTop
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnTop.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnTop
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "Top"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnTop_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.TopView()
End Sub
End Class
btnZoom.Designer.vb
Generated
-117
View File
@@ -1,117 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnZoom
Inherits System.Windows.Forms.UserControl
'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione Windows Form
Private components As System.ComponentModel.IContainer
'NOTA: la procedura che segue è richiesta da Progettazione Windows Form
'Può essere modificata in Progettazione Windows Form.
'Non modificarla nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.gbZoom = New System.Windows.Forms.GroupBox()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.btnZoomAll = New System.Windows.Forms.Button()
Me.btnZoomIn = New System.Windows.Forms.Button()
Me.btnZoomOut = New System.Windows.Forms.Button()
Me.gbZoom.SuspendLayout()
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'gbZoom
'
Me.gbZoom.Controls.Add(Me.TableLayoutPanel1)
Me.gbZoom.Dock = System.Windows.Forms.DockStyle.Fill
Me.gbZoom.Location = New System.Drawing.Point(0, 0)
Me.gbZoom.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.gbZoom.Name = "gbZoom"
Me.gbZoom.Padding = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.gbZoom.Size = New System.Drawing.Size(167, 43)
Me.gbZoom.TabIndex = 0
Me.gbZoom.TabStop = False
Me.gbZoom.Text = "Zoom"
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.ColumnCount = 3
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33334!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33334!))
Me.TableLayoutPanel1.Controls.Add(Me.btnZoomAll, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.btnZoomIn, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.btnZoomOut, 2, 0)
Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TableLayoutPanel1.Location = New System.Drawing.Point(2, 15)
Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(163, 26)
Me.TableLayoutPanel1.TabIndex = 0
'
'btnZoomAll
'
Me.btnZoomAll.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnZoomAll.Location = New System.Drawing.Point(2, 2)
Me.btnZoomAll.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.btnZoomAll.Name = "btnZoomAll"
Me.btnZoomAll.Size = New System.Drawing.Size(50, 22)
Me.btnZoomAll.TabIndex = 0
Me.btnZoomAll.Text = "All"
Me.btnZoomAll.UseVisualStyleBackColor = True
'
'btnZoomIn
'
Me.btnZoomIn.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnZoomIn.Location = New System.Drawing.Point(56, 2)
Me.btnZoomIn.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.btnZoomIn.Name = "btnZoomIn"
Me.btnZoomIn.Size = New System.Drawing.Size(50, 22)
Me.btnZoomIn.TabIndex = 1
Me.btnZoomIn.Text = "In"
Me.btnZoomIn.UseVisualStyleBackColor = True
'
'btnZoomOut
'
Me.btnZoomOut.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnZoomOut.Location = New System.Drawing.Point(110, 2)
Me.btnZoomOut.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.btnZoomOut.Name = "btnZoomOut"
Me.btnZoomOut.Size = New System.Drawing.Size(51, 22)
Me.btnZoomOut.TabIndex = 2
Me.btnZoomOut.Text = "Out"
Me.btnZoomOut.UseVisualStyleBackColor = True
'
'btnZoom
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.gbZoom)
Me.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
Me.Name = "btnZoom"
Me.Size = New System.Drawing.Size(167, 43)
Me.gbZoom.ResumeLayout(False)
Me.TableLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents gbZoom As System.Windows.Forms.GroupBox
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents btnZoomAll As System.Windows.Forms.Button
Friend WithEvents btnZoomIn As System.Windows.Forms.Button
Friend WithEvents btnZoomOut As System.Windows.Forms.Button
End Class
btnZoom.resx
-120
View File
@@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
btnZoom.vb
-28
View File
@@ -1,28 +0,0 @@
Imports EgtUILib.EgtInterface
Public Class btnZoom
Private m_nContext As Integer
Sub New()
InitializeComponent()
m_nContext = 1
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
End Sub
Private Sub btnZoomAll_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomAll.Click
EgtZoom(m_nContext, ZM_ALL)
End Sub
Private Sub btnZoomIn_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomIn.Click
EgtZoom(m_nContext, ZM_IN)
End Sub
Private Sub btnZoomOut_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomOut.Click
EgtZoom(m_nContext, ZM_OUT)
End Sub
End Class
btnZoomAll.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnZoomAll
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnZoomAll.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnZoomAll
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "ZoomAll"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnZoomAll_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.ZoomAll()
End Sub
End Class
btnZoomIn.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnZoomIn
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnZoomIn.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnZoomIn
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "ZoomIn"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnZoomIn_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.ZoomIn()
End Sub
End Class
btnZoomOut.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class btnZoomOut
Inherits System.Windows.Forms.Button
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
btnZoomOut.vb
+23
View File
@@ -0,0 +1,23 @@
Public Class btnZoomOut
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Text = "ZoomOut"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub btnZoomOut_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.ZoomOut()
End Sub
End Class
cmdExec.Designer.vb
Generated
-57
View File
@@ -1,57 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class cmdExec
Inherits System.Windows.Forms.UserControl
'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione Windows Form
Private components As System.ComponentModel.IContainer
'NOTA: la procedura che segue è richiesta da Progettazione Windows Form
'Può essere modificata in Progettazione Windows Form.
'Non modificarla nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btnExec = New System.Windows.Forms.Button()
Me.ExecFileDialog = New System.Windows.Forms.OpenFileDialog()
Me.SuspendLayout()
'
'btnExec
'
Me.btnExec.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnExec.Location = New System.Drawing.Point(0, 0)
Me.btnExec.Name = "btnExec"
Me.btnExec.Size = New System.Drawing.Size(75, 35)
Me.btnExec.TabIndex = 0
Me.btnExec.Text = "Exec"
Me.btnExec.UseVisualStyleBackColor = True
'
'ExecFileDialog
'
Me.ExecFileDialog.Filter = "Test commands(*.tsc)|*.tsc"
Me.ExecFileDialog.Title = "Exec TSC"
'
'cmdExec
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.btnExec)
Me.Name = "cmdExec"
Me.Size = New System.Drawing.Size(75, 35)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnExec As System.Windows.Forms.Button
Friend WithEvents ExecFileDialog As System.Windows.Forms.OpenFileDialog
End Class
cmdExec.vb
-26
View File
@@ -1,26 +0,0 @@
Imports EgtUILib.EgtInterface
Public Class cmdExec
Private m_nContext As Integer
Sub New()
InitializeComponent()
m_nContext = 1
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
End Sub
Private Sub btnExec_Click(sender As System.Object, e As System.EventArgs) Handles btnExec.Click
If ExecFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Cursor = Cursors.WaitCursor
If EgtTscFileExec(m_nContext, ExecFileDialog.FileName) Then
EgtZoom(m_nContext, ZM_ALL, True)
End If
Cursor = Cursors.Default
End If
End Sub
End Class
cmdExport.Designer.vb
Generated
-59
View File
@@ -1,59 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class cmdExport
Inherits System.Windows.Forms.UserControl
'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione Windows Form
Private components As System.ComponentModel.IContainer
'NOTA: la procedura che segue è richiesta da Progettazione Windows Form
'Può essere modificata in Progettazione Windows Form.
'Non modificarla nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btnExport = New System.Windows.Forms.Button()
Me.ExportFileDialog = New System.Windows.Forms.SaveFileDialog()
Me.SuspendLayout()
'
'btnExport
'
Me.btnExport.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnExport.Location = New System.Drawing.Point(0, 0)
Me.btnExport.Margin = New System.Windows.Forms.Padding(0)
Me.btnExport.Name = "btnExport"
Me.btnExport.Size = New System.Drawing.Size(75, 35)
Me.btnExport.TabIndex = 0
Me.btnExport.Text = "Export"
Me.btnExport.UseVisualStyleBackColor = True
'
'ExportFileDialog
'
Me.ExportFileDialog.Filter = "AutoCAD Drawing Exchange|*.dxf|Stereolithography|*.stl"
Me.ExportFileDialog.Title = "Export File"
'
'cmdExport
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Controls.Add(Me.btnExport)
Me.Name = "cmdExport"
Me.Size = New System.Drawing.Size(75, 35)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnExport As System.Windows.Forms.Button
Friend WithEvents ExportFileDialog As System.Windows.Forms.SaveFileDialog
End Class
cmdExport.resx
-123
View File
@@ -1,123 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ExportFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
cmdExport.vb
-36
View File
@@ -1,36 +0,0 @@
Imports EgtUILib.EgtInterface
Public Class cmdExport
Private m_nContext As Integer
Sub New()
InitializeComponent()
m_nContext = 1
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
End Sub
Private Sub btnExport_Click(sender As System.Object, e As System.EventArgs) Handles btnExport.Click
ExportFileDialog.Title = "Export"
ExportFileDialog.Filter = "Drawing Exchange Fmt(*.dxf)|*.dxf|Stereolithography (*.stl)|*.stl|All Files (*.*)|*.*"
ExportFileDialog.FilterIndex = 1
If ExportFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim nFileType As Integer = EgtGetFileType(ExportFileDialog.FileName)
If nFileType = FT_DXF Then
Cursor = Cursors.WaitCursor
EgtExportDxf(m_nContext, GDB_ID_ROOT, ExportFileDialog.FileName)
Cursor = Cursors.Default
ElseIf nFileType = FT_STL Then
Cursor = Cursors.WaitCursor
EgtExportStl(m_nContext, GDB_ID_ROOT, ExportFileDialog.FileName)
Cursor = Cursors.Default
Else
MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End Sub
End Class
cmdImport.Designer.vb
Generated
-59
View File
@@ -1,59 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class cmdImport
Inherits System.Windows.Forms.UserControl
'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione Windows Form
Private components As System.ComponentModel.IContainer
'NOTA: la procedura che segue è richiesta da Progettazione Windows Form
'Può essere modificata in Progettazione Windows Form.
'Non modificarla nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btnImport = New System.Windows.Forms.Button()
Me.ImportFileDialog = New System.Windows.Forms.OpenFileDialog()
Me.SuspendLayout()
'
'btnImport
'
Me.btnImport.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnImport.Location = New System.Drawing.Point(0, 0)
Me.btnImport.Margin = New System.Windows.Forms.Padding(0)
Me.btnImport.Name = "btnImport"
Me.btnImport.Size = New System.Drawing.Size(75, 35)
Me.btnImport.TabIndex = 0
Me.btnImport.Text = "Import"
Me.btnImport.UseVisualStyleBackColor = True
'
'ImportFileDialog
'
Me.ImportFileDialog.Filter = "AutoCAD Drawing Exchange|*.dxf|Stereolithography|*.stl"
Me.ImportFileDialog.Title = "Import File"
'
'cmdImport
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Controls.Add(Me.btnImport)
Me.Name = "cmdImport"
Me.Size = New System.Drawing.Size(75, 35)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnImport As System.Windows.Forms.Button
Friend WithEvents ImportFileDialog As System.Windows.Forms.OpenFileDialog
End Class
cmdImport.resx
-123
View File
@@ -1,123 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ImportFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
cmdImport.vb
-39
View File
@@ -1,39 +0,0 @@
Imports EgtUILib.EgtInterface
Public Class cmdImport
Private m_nContext As Integer
Sub New()
InitializeComponent()
m_nContext = 1
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
End Sub
Private Sub btnImport_Click(sender As System.Object, e As System.EventArgs) Handles btnImport.Click
If ImportFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim nFileType As Integer = EgtGetFileType(ImportFileDialog.FileName)
If nFileType = FT_DXF Then
Cursor = Cursors.WaitCursor
EgtNewFile(m_nContext)
If EgtImportDxf(m_nContext, ImportFileDialog.FileName) Then
EgtZoom(m_nContext, ZM_ALL, True)
End If
Cursor = Cursors.Default
ElseIf nFileType = FT_STL Then
Cursor = Cursors.WaitCursor
EgtNewFile(m_nContext)
If EgtImportStl(m_nContext, ImportFileDialog.FileName) Then
EgtZoom(m_nContext, ZM_ALL, True)
End If
Cursor = Cursors.Default
Else
MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End Sub
End Class
cmdNew.Designer.vb
Generated
-51
View File
@@ -1,51 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class cmdNew
Inherits System.Windows.Forms.UserControl
'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione Windows Form
Private components As System.ComponentModel.IContainer
'NOTA: la procedura che segue è richiesta da Progettazione Windows Form
'Può essere modificata in Progettazione Windows Form.
'Non modificarla nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btnNew = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'btnNew
'
Me.btnNew.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnNew.Location = New System.Drawing.Point(0, 0)
Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(75, 35)
Me.btnNew.TabIndex = 0
Me.btnNew.Text = "New"
Me.btnNew.UseVisualStyleBackColor = True
'
'cmdNew
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Controls.Add(Me.btnNew)
Me.Name = "cmdNew"
Me.Size = New System.Drawing.Size(75, 35)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnNew As System.Windows.Forms.Button
End Class
cmdNew.resx
-120
View File
@@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
cmdNew.vb
-23
View File
@@ -1,23 +0,0 @@
Imports EgtUILib.EgtInterface
Public Class cmdNew
Private m_nContext As Integer
Sub New()
InitializeComponent()
m_nContext = 1
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
End Sub
Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles btnNew.Click
If EgtNewFile(m_nContext) Then
EgtZoom(m_nContext, ZM_ALL, True)
End If
End Sub
End Class
cmdOpen.Designer.vb
Generated
-59
View File
@@ -1,59 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class cmdOpen
Inherits System.Windows.Forms.UserControl
'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione Windows Form
Private components As System.ComponentModel.IContainer
'NOTA: la procedura che segue è richiesta da Progettazione Windows Form
'Può essere modificata in Progettazione Windows Form.
'Non modificarla nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btnOpen = New System.Windows.Forms.Button()
Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog()
Me.SuspendLayout()
'
'btnOpen
'
Me.btnOpen.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnOpen.Location = New System.Drawing.Point(0, 0)
Me.btnOpen.Margin = New System.Windows.Forms.Padding(0)
Me.btnOpen.Name = "btnOpen"
Me.btnOpen.Size = New System.Drawing.Size(75, 35)
Me.btnOpen.TabIndex = 0
Me.btnOpen.Text = "Open"
Me.btnOpen.UseVisualStyleBackColor = True
'
'OpenFileDialog
'
Me.OpenFileDialog.Filter = "New Geometry EgalTech|*.Nge;"
Me.OpenFileDialog.Title = "Open File"
'
'cmdOpen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Controls.Add(Me.btnOpen)
Me.Name = "cmdOpen"
Me.Size = New System.Drawing.Size(75, 35)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnOpen As System.Windows.Forms.Button
Friend WithEvents OpenFileDialog As System.Windows.Forms.OpenFileDialog
End Class
cmdOpen.resx
-123
View File
@@ -1,123 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="OpenFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
cmdOpen.vb
-29
View File
@@ -1,29 +0,0 @@
Imports EgtUILib.EgtInterface
Public Class cmdOpen
Private m_nContext As Integer
Sub New()
InitializeComponent()
m_nContext = 1
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
End Sub
Private Sub btnOpen_Click(sender As System.Object, e As System.EventArgs) Handles btnOpen.Click
OpenFileDialog.Title = "Open"
OpenFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge|New font EgalTech(*.nfe)|*.nfe|All Files (*.*)|*.*"
OpenFileDialog.FilterIndex = 1
If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Cursor = Cursors.WaitCursor
If EgtOpenFile(m_nContext, OpenFileDialog.FileName) Then
EgtZoom(m_nContext, ZM_ALL, True)
End If
Cursor = Cursors.Default
End If
End Sub
End Class
cmdSave.Designer.vb
Generated
-59
View File
@@ -1,59 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class cmdSave
Inherits System.Windows.Forms.UserControl
'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione Windows Form
Private components As System.ComponentModel.IContainer
'NOTA: la procedura che segue è richiesta da Progettazione Windows Form
'Può essere modificata in Progettazione Windows Form.
'Non modificarla nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btnSave = New System.Windows.Forms.Button()
Me.SaveFileDialog = New System.Windows.Forms.SaveFileDialog()
Me.SuspendLayout()
'
'btnSave
'
Me.btnSave.Dock = System.Windows.Forms.DockStyle.Fill
Me.btnSave.Location = New System.Drawing.Point(0, 0)
Me.btnSave.Margin = New System.Windows.Forms.Padding(0)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 35)
Me.btnSave.TabIndex = 0
Me.btnSave.Text = "Save"
Me.btnSave.UseVisualStyleBackColor = True
'
'SaveFileDialog
'
Me.SaveFileDialog.Filter = "New Geometry EgalTech|*.Nge"
Me.SaveFileDialog.Title = "Save File"
'
'cmdSave
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Controls.Add(Me.btnSave)
Me.Name = "cmdSave"
Me.Size = New System.Drawing.Size(75, 35)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents SaveFileDialog As System.Windows.Forms.SaveFileDialog
End Class
cmdSave.resx
-123
View File
@@ -1,123 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="SaveFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
cmdSave.vb
-27
View File
@@ -1,27 +0,0 @@
Imports EgtUILib.EgtInterface
Public Class cmdSave
Private m_nContext As Integer
Sub New()
InitializeComponent()
m_nContext = 1
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
End Sub
Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
SaveFileDialog.Title = "Save"
SaveFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge"
SaveFileDialog.FilterIndex = 1
If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Cursor = Cursors.WaitCursor
EgtSaveFile(m_nContext, SaveFileDialog.FileName, NGE_CMPTEXT)
Cursor = Cursors.Default
End If
End Sub
End Class
gbLookFrom.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class gbLookFrom
Inherits System.Windows.Forms.GroupBox
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
gbLookFrom.vb
+130
View File
@@ -0,0 +1,130 @@
Public Class gbLookFrom
Private m_scene As Scene
Dim tlpPanel As New TableLayoutPanel
'Create buttons
Dim btnTop As New Button
Dim btnIso As New Button
Dim btnFront As New Button
Dim btnBack As New Button
Dim btnLeft As New Button
Dim btnRight As New Button
Sub New()
Me.Anchor = AnchorStyles.None
Me.Dock = DockStyle.None
'Add tlpPanel to gbLookFrom
Me.Controls.Add(tlpPanel)
' 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 tlpPanel
'Set properties
.ColumnCount = 3
.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 33))
.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 33))
.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 33))
.Dock = DockStyle.Fill
.RowCount = 2
.RowStyles.Add(New RowStyle(SizeType.Percent, 50))
.RowStyles.Add(New RowStyle(SizeType.Percent, 50))
.Controls.Add(btnTop, 0, 0)
.Controls.Add(btnIso, 0, 1)
.Controls.Add(btnFront, 1, 0)
.Controls.Add(btnBack, 1, 1)
.Controls.Add(btnLeft, 2, 0)
.Controls.Add(btnRight, 2, 1)
End With
With btnTop
'Set properties
.Dock = DockStyle.Fill
.Name = "btnTop"
.Text = "Top"
End With
With btnIso
'Set properties
.Dock = DockStyle.Fill
.Name = "btnIso"
.Text = "Iso"
End With
With btnFront
'Set properties
.Dock = DockStyle.Fill
.Name = "btnFront"
.Text = "Front"
End With
With btnBack
'Set properties
.Dock = DockStyle.Fill
.Name = "btnBack"
.Text = "Back"
End With
With btnLeft
'Set properties
.Dock = DockStyle.Fill
.Name = "btnLeft"
.Text = "Left"
End With
With btnRight
'Set properties
.Dock = DockStyle.Fill
.Name = "btnRight"
.Text = "Right"
End With
'Create a Handle to a Click Event
AddHandler btnTop.Click, AddressOf btnTop_Click
AddHandler btnIso.Click, AddressOf btnIso_Click
AddHandler btnFront.Click, AddressOf btnFront_Click
AddHandler btnBack.Click, AddressOf btnBack_Click
AddHandler btnLeft.Click, AddressOf btnLeft_Click
AddHandler btnRight.Click, AddressOf btnRight_Click
End Sub
'The Click Events
Private Sub btnTop_Click(sender As Object, e As System.EventArgs)
m_scene.TopView()
End Sub
Private Sub btnIso_Click(sender As Object, e As System.EventArgs)
m_scene.IsoView()
End Sub
Private Sub btnFront_Click(sender As Object, e As System.EventArgs)
m_scene.FrontView()
End Sub
Private Sub btnBack_Click(sender As Object, e As System.EventArgs)
m_scene.BackView()
End Sub
Private Sub btnLeft_Click(sender As Object, e As System.EventArgs)
m_scene.LeftView()
End Sub
Private Sub btnRight_Click(sender As Object, e As System.EventArgs)
m_scene.RightView()
End Sub
End Class
rbtnHiddenLine.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class rbtnHiddenLine
Inherits System.Windows.Forms.RadioButton
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
rbtnHiddenLine.vb
+24
View File
@@ -0,0 +1,24 @@
Public Class rbtnHiddenLine
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Appearance = Windows.Forms.Appearance.Button
Me.Text = "HiddenLine"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub rbtnHiddenLine_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.HiddenLine()
End Sub
End Class
rbtnScene.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class rbtnScene
Inherits System.Windows.Forms.RadioButton
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
rbtnScene.vb
+16
View File
@@ -0,0 +1,16 @@
Public Class rbtnScene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
End Sub
Private Sub rbtnScene_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
'enableview()
End Sub
End Class
rbtnShading.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class rbtnShading
Inherits System.Windows.Forms.RadioButton
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
rbtnShading.vb
+24
View File
@@ -0,0 +1,24 @@
Public Class rbtnShading
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Appearance = Windows.Forms.Appearance.Button
Me.Text = "Shading"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub rbtnShading_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.Shading()
End Sub
End Class
rbtnWireframe.Designer.vb
Generated
+29
View File
@@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class rbtnWireframe
Inherits System.Windows.Forms.RadioButton
'Control esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Richiesto da Progettazione controlli
Private components As System.ComponentModel.IContainer
' NOTA: la procedura che segue è richiesta da Progettazione componenti
' Può essere modificata in Progettazione componenti. Non modificarla
' nell'editor del codice.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
End Class
rbtnWireframe.vb
+24
View File
@@ -0,0 +1,24 @@
Public Class rbtnWireframe
Private m_scene As Scene
Sub New()
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
Me.Appearance = Windows.Forms.Appearance.Button
Me.Text = "Wireframe"
End Sub
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Private Sub rbtnWireframe_Click(sender As System.Object, e As System.EventArgs) Handles Me.Click
m_scene.WireFrame()
End Sub
End Class
tsLookFrom.vb
+10 -13
View File
@@ -1,8 +1,6 @@
Imports EgtUILib.EgtInterface
Public Class tsLookFrom
Public Class tsLookFrom
Private m_nContext As Integer
Private m_scene As Scene
'Create buttons
Dim btnTop As New ToolStripButton
@@ -17,7 +15,6 @@ Public Class tsLookFrom
MyBase.New()
Me.Anchor = AnchorStyles.None
Me.Dock = DockStyle.None
m_nContext = 1
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
AddButtons()
@@ -25,8 +22,8 @@ Public Class tsLookFrom
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Public Sub AddButtons()
@@ -111,27 +108,27 @@ Public Class tsLookFrom
'The Click Events
Private Sub btnTop_Click(sender As Object, e As System.EventArgs)
EgtSetView(m_nContext, CT_TOP)
m_scene.TopView()
End Sub
Private Sub btnIso_Click(sender As Object, e As System.EventArgs)
EgtSetView(m_nContext, CT_ISO_SW)
m_scene.IsoView()
End Sub
Private Sub btnFront_Click(sender As Object, e As System.EventArgs)
EgtSetView(m_nContext, CT_FRONT)
m_scene.FrontView()
End Sub
Private Sub btnBack_Click(sender As Object, e As System.EventArgs)
EgtSetView(m_nContext, CT_BACK)
m_scene.BackView()
End Sub
Private Sub btnLeft_Click(sender As Object, e As System.EventArgs)
EgtSetView(m_nContext, CT_LEFT)
m_scene.LeftView()
End Sub
Private Sub btnRight_Click(sender As Object, e As System.EventArgs)
EgtSetView(m_nContext, CT_RIGHT)
m_scene.RightView()
End Sub
End Class
tsMain.vb
+10 -101
View File
@@ -1,8 +1,6 @@
Imports EgtUILib.EgtInterface
Public Class tsMain
Public Class tsMain
Private m_nContext As Integer
Private m_scene As Scene
'Create buttons
Dim btnNew As New ToolStripButton
@@ -17,7 +15,6 @@ Public Class tsMain
MyBase.New()
Me.Anchor = AnchorStyles.None
Me.Dock = DockStyle.None
m_nContext = 1
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
AddButtons()
@@ -25,8 +22,8 @@ Public Class tsMain
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Public Sub AddButtons()
@@ -111,115 +108,27 @@ Public Class tsMain
'The Click Events
Private Sub btnNew_Click(sender As Object, e As System.EventArgs)
If EgtNewFile(m_nContext) Then
'ClearObjTree()
EgtZoom(m_nContext, ZM_ALL)
End If
m_scene.NewProject()
End Sub
Private Sub btnOpen_Click(sender As Object, e As System.EventArgs)
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.Title = "Open"
OpenFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge|New font EgalTech(*.nfe)|*.nfe|All Files (*.*)|*.*"
OpenFileDialog.FilterIndex = 1
If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Cursor = Cursors.WaitCursor
If EgtOpenFile(m_nContext, OpenFileDialog.FileName) Then
EgtZoom(m_nContext, ZM_ALL)
'LoadObjTree()
End If
Cursor = Cursors.Default
End If
m_scene.OpenProject()
End Sub
Private Sub btnSave_Click(sender As Object, e As System.EventArgs)
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.Title = "Save"
SaveFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge"
SaveFileDialog.FilterIndex = 1
If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Cursor = Cursors.WaitCursor
' ripristino stato oggetto marcato
'Dim nIdOld As Integer = RevertOldIdInObjTree()
' eseguo salvataggio
EgtSaveFile(m_nContext, SaveFileDialog.FileName, NGE_CMPTEXT)
' rimarco oggetto
'SelectIdInObjTree(nIdOld)
Cursor = Cursors.Default
End If
m_scene.SaveProject()
End Sub
Private Sub btnImport_Click(sender As Object, e As System.EventArgs)
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.Title = "Import"
OpenFileDialog.Filter = "Drawing Exchange Fmt(*.dxf)|*.dxf|Stereolithography (*.stl)|*.stl|All Files (*.*)|*.*"
OpenFileDialog.FilterIndex = 1
If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim nFileType As Integer = EgtGetFileType(OpenFileDialog.FileName)
If nFileType = FT_DXF Then
Cursor = Cursors.WaitCursor
EgtNewFile(m_nContext)
If EgtImportDxf(m_nContext, OpenFileDialog.FileName) Then
EgtZoom(m_nContext, ZM_ALL)
'LoadObjTree()
End If
Cursor = Cursors.Default
ElseIf nFileType = FT_STL Then
Cursor = Cursors.WaitCursor
EgtNewFile(m_nContext)
If EgtImportStl(m_nContext, OpenFileDialog.FileName) Then
EgtZoom(m_nContext, ZM_ALL)
'LoadObjTree()
End If
Cursor = Cursors.Default
Else
MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
m_scene.ImportProject()
End Sub
Private Sub btnExport_Click(sender As Object, e As System.EventArgs)
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.Title = "Export"
SaveFileDialog.Filter = "Drawing Exchange Fmt(*.dxf)|*.dxf|Stereolithography (*.stl)|*.stl|All Files (*.*)|*.*"
SaveFileDialog.FilterIndex = 1
If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim nFileType As Integer = EgtGetFileType(SaveFileDialog.FileName)
If nFileType = FT_DXF Then
Cursor = Cursors.WaitCursor
EgtExportDxf(m_nContext, GDB_ID_ROOT, SaveFileDialog.FileName)
Cursor = Cursors.Default
ElseIf nFileType = FT_STL Then
Cursor = Cursors.WaitCursor
EgtExportStl(m_nContext, GDB_ID_ROOT, SaveFileDialog.FileName)
Cursor = Cursors.Default
Else
MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
m_scene.ExportProject()
End Sub
Private Sub btnExec_Click(sender As Object, e As System.EventArgs)
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.Title = "Exec TSC"
OpenFileDialog.Filter = "Test commands(*.tsc)|*.tsc"
OpenFileDialog.FilterIndex = 1
If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Cursor = Cursors.WaitCursor
' pulisco albero degli oggetti
'ClearObjTree()
' eseguo
If EgtTscFileExec(m_nContext, OpenFileDialog.FileName) Then
EgtZoom(m_nContext, ZM_ALL)
'LoadObjTree()
End If
' ricarico albero degli oggetti
'LoadObjTree()
Cursor = Cursors.Default
End If
m_scene.Exec()
End Sub
End Class
tsRendering.vb
+6 -7
View File
@@ -2,7 +2,7 @@
Public Class tsRendering
Private m_nContext As Integer
Private m_scene As Scene
'Create buttons
Dim btnWireframe As New ToolStripButton
@@ -14,7 +14,6 @@ Public Class tsRendering
MyBase.New()
Me.Anchor = AnchorStyles.None
Me.Dock = DockStyle.None
m_nContext = 1
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
AddButtons()
@@ -22,8 +21,8 @@ Public Class tsRendering
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Public Sub AddButtons()
@@ -74,19 +73,19 @@ Public Class tsRendering
Private Sub btnWireframe_Click(sender As Object, e As System.EventArgs)
btnHiddenLine.Checked = False
btnShading.Checked = False
EgtSetShowMode(m_nContext, SM_WIREFRAME)
m_scene.WireFrame()
End Sub
Private Sub btnHiddenLine_Click(sender As Object, e As System.EventArgs)
btnWireframe.Checked = False
btnShading.Checked = False
EgtSetShowMode(m_nContext, SM_HIDDENLINE)
m_scene.HiddenLine()
End Sub
Private Sub btnShading_Click(sender As Object, e As System.EventArgs)
btnWireframe.Checked = False
btnHiddenLine.Checked = False
EgtSetShowMode(m_nContext, SM_SHADING)
m_scene.Shading()
End Sub
End Class
tsZoom.vb
+11 -12
View File
@@ -2,14 +2,18 @@
Public Class tsZoom
Private m_nContext As Integer
Private m_scene As Scene
'Create buttons
Dim btnZoomAll As New ToolStripButton
Dim btnZoomIn As New ToolStripButton
Dim btnZoomOut As New ToolStripButton
Sub New()
MyBase.New()
Me.Anchor = AnchorStyles.None
Me.Dock = DockStyle.None
m_nContext = 1
' Chiamata richiesta dalla finestra di progettazione.
InitializeComponent()
AddButtons()
@@ -17,17 +21,12 @@ Public Class tsZoom
End Sub
Public Sub SetCtx(ByVal nCtx As Integer)
m_nContext = nCtx
Public Sub SetScene(ByRef scene As Scene)
m_scene = scene
End Sub
Public Sub AddButtons()
'Create buttons
Dim btnZoomAll As New ToolStripButton
Dim btnZoomIn As New ToolStripButton
Dim btnZoomOut As New ToolStripButton
With btnZoomAll
'Set properties
.Name = "btnZoomAll"
@@ -72,15 +71,15 @@ Public Class tsZoom
'The Click Events
Private Sub btnZoomAll_Click(sender As Object, e As System.EventArgs)
EgtZoom(m_nContext, ZM_ALL)
m_scene.ZoomAll()
End Sub
Private Sub btnZoomIn_Click(sender As Object, e As System.EventArgs)
EgtZoom(m_nContext, ZM_IN)
m_scene.ZoomIn()
End Sub
Private Sub btnZoomOut_Click(sender As Object, e As System.EventArgs)
EgtZoom(m_nContext, ZM_OUT)
m_scene.ZoomOut()
End Sub
End Class