diff --git a/EgtInterface.vb b/EgtInterface.vb new file mode 100644 index 0000000..36e7ca0 --- /dev/null +++ b/EgtInterface.vb @@ -0,0 +1,414 @@ +Imports System.Runtime.InteropServices + +Public Class EgtInterface + +Structure Point3d + Dim x, y, z As Double +End Structure + +#If PLATFORM = "x64" Then +#If DEBUG Then +Const EgtInterface As String = "EgtInterfaceD64.dll" +#Else +Const EgtInterface As String = "EgtInterfaceR64.dll" +#End If +#Else +#If DEBUG Then +Const EgtInterface As String = "EgtInterfaceD32.dll" +#Else +Const EgtInterface As String = "EgtInterfaceR32.dll" +#End If +#End If + +'API +'General + +Public Shared Function EgtInit(ByVal nDebug As Integer, ByVal sLogFile As String) As Boolean +End Function + + +Public Shared Function EgtExit() As Boolean +End Function + + +Public Shared Function EgtSetFont(ByVal sNfeFontDir As String, ByVal sDefaultFont As String) As Boolean +End Function + + +Public Shared Function EgtFreeMemory(ByVal sB As IntPtr) As Boolean +End Function + + +'GeomDB + +Public Shared Function EgtInitGeomDB() As Integer +End Function + + +Public Shared Function EgtSetDefaultMaterial(ByVal nCtx As Integer, ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Boolean +End Function + + +Public Shared Function EgtNewFile(ByVal nCtx As Integer) As Boolean +End Function + + +Public Shared Function EgtOpenFile(ByVal nCtx As Integer, ByVal sFilePath As String) As Boolean +End Function + + +Public Shared Function EgtSaveFile(ByVal nCtx As Integer, ByVal sFilePath As String, ByVal nFlag As Integer) As Boolean +End Function + + +Public Shared Function EgtGetFileType(ByVal sFilePath As String) As Integer +End Function + + +Public Shared Function EgtImportDxf(ByVal nCtx As Integer, ByVal sFilePath As String) As Boolean +End Function + + +Public Shared Function EgtImportStl(ByVal nCtx As Integer, ByVal sFilePath As String) As Boolean +End Function + + +Public Shared Function EgtExportDxf(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sFilePath As String) As Boolean +End Function + + +Public Shared Function EgtExportStl(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sFilePath As String) As Boolean +End Function + + +'GeomDB Objects + +Public Shared Function EgtExistsObj(ByVal nCtx As Integer, ByVal nGroupId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetFirstInGroup(ByVal nCtx As Integer, ByVal nGroupId As Integer) As Integer +End Function + + +Public Shared Function EgtGetNext(ByVal nCtx As Integer, ByVal nId As Integer) As Integer +End Function + + +Public Shared Function EgtGetLastInGroup(ByVal nCtx As Integer, ByVal nGroupId As Integer) As Integer +End Function + + +Public Shared Function EgtGetPrev(ByVal nCtx As Integer, ByVal nId As Integer) As Integer +End Function + + +Public Shared Function EgtGetType(ByVal nCtx As Integer, ByVal nId As Integer) As Integer +End Function + + +Private Shared Function EgtGetTitle(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psTitle As IntPtr) As Boolean +End Function +Public Shared Function EgtGetTitle(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sTitle As String) As Boolean + Dim psTitle As IntPtr + Dim bOk As Boolean = EgtGetTitle(nCtx, nId, psTitle) + sTitle = Marshal.PtrToStringUni(psTitle) + EgtFreeMemory(psTitle) + Return bOk +End Function + + +Private Shared Function EgtGroupDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean +End Function +Public Shared Function EgtGroupDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sDump As String) As Boolean + Dim psDump As IntPtr + Dim bOk As Boolean = EgtGroupDump(nCtx, nId, psDump) + sDump = Marshal.PtrToStringUni(psDump) + EgtFreeMemory(psDump) + Return bOk +End Function + + +Private Shared Function EgtGeoObjDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psDump As IntPtr) As Boolean +End Function +Public Shared Function EgtGeoObjDump(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sDump As String) As Boolean + Dim psDump As IntPtr + Dim bOk As Boolean = EgtGeoObjDump(nCtx, nId, psDump) + sDump = Marshal.PtrToStringUni(psDump) + EgtFreeMemory(psDump) + Return bOk +End Function + + +'GeomDB Obj attributes + +Public Shared Function EgtSetLevel(ByVal nCtx As Integer, ByVal nId As Integer, ByVal nLevel As Integer) As Boolean +End Function + + +Public Shared Function EgtRevertLevel(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetLevel(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +End Function + + +Public Shared Function EgtGetCalcLevel(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nLevel As Integer) As Boolean +End Function + + +Public Shared Function EgtSetMode(ByVal nCtx As Integer, ByVal nId As Integer, ByVal nMode As Integer) As Boolean +End Function + + +Public Shared Function EgtRevertMode(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetMode(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nMode As Integer) As Boolean +End Function + + +Public Shared Function EgtGetCalcMode(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nMode As Integer) As Boolean +End Function + + +Public Shared Function EgtSetStatus(ByVal nCtx As Integer, ByVal nId As Integer, ByVal nStat As Integer) As Boolean +End Function + + +Public Shared Function EgtRevertStatus(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetStatus(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nStat As Integer) As Boolean +End Function + + +Public Shared Function EgtGetCalcStatus(ByVal nCtx As Integer, ByVal nId As Integer, ByRef nStat As Integer) As Boolean +End Function + + +Public Shared Function EgtSetMark(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtResetMark(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetMark(ByVal nCtx As Integer, ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +End Function + + +Public Shared Function EgtGetCalcMark(ByVal nCtx As Integer, ByVal nId As Integer, ByRef bMark As Boolean) As Boolean +End Function + + +Public Shared Function EgtSetName(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sName As String) As Boolean +End Function + + +Private Shared Function EgtGetName(ByVal nCtx As Integer, ByVal nId As Integer, ByRef psName As IntPtr) As Boolean +End Function +Public Shared Function EgtGetName(ByVal nCtx As Integer, ByVal nId As Integer, ByRef sName As String) As Boolean + Dim psName As IntPtr + Dim bOk As Boolean = EgtGetName(nCtx, nId, psName) + sName = Marshal.PtrToStringUni(psName) + EgtFreeMemory(psName) + Return bOk +End Function + + +Public Shared Function EgtExistsName(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtRemoveName(ByVal nCtx As Integer, ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtSetInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String, ByVal sInfo As String) As Boolean +End Function + + +Private Shared Function EgtGetInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String, ByRef psInfo As IntPtr) As Boolean +End Function +Public Shared Function EgtGetInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String, ByRef sInfo As String) As Boolean + Dim psInfo As IntPtr + Dim bOk As Boolean = EgtGetInfo(nCtx, nId, sKey, psInfo) + sInfo = Marshal.PtrToStringUni(psInfo) + EgtFreeMemory(psInfo) + Return bOk +End Function + + +Public Shared Function EgtExistsInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String) As Boolean +End Function + + +Public Shared Function EgtRemoveInfo(ByVal nCtx As Integer, ByVal nId As Integer, ByVal sKey As String) As Boolean +End Function + + +'Scene + +Public Shared Function EgtInitScene(ByVal nCtx As Integer, ByVal hWnd As IntPtr, ByVal nDriver As Integer, + ByVal b2Buff As Boolean, ByVal nColorBits As Integer, ByVal nDepthBits As Integer) As Boolean +End Function + + +Public Shared Function EgtSetBackground(ByVal nCtx As Integer, ByVal nTopRed As Integer, ByVal nTopGreen As Integer, ByVal nTopBlue As Integer, + ByVal nBottomRed As Integer, ByVal nBottomGreen As Integer, ByVal nBottomBlue As Integer, + Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Public Shared Function EgtDraw(ByVal nCtx As Integer) As Boolean +End Function + + +Public Shared Function EgtResize(ByVal nCtx As Integer, ByVal nW As Integer, ByVal nH As Integer) As Boolean +End Function + + +Public Shared Function EgtSetShowMode(ByVal nCtx As Integer, ByVal nShowMode As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Public Shared Function EgtSetShowCurveDirection(ByVal nCtx As Integer, ByVal bShow As Boolean, Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Public Shared Function EgtZoom(ByVal nCtx As Integer, ByVal nZoom As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Private Shared Function EgtZoomOnPoint(ByVal nCtx As Integer, ByVal nWinX As Integer, ByVal nWinY As Integer, ByVal dCoeff As Double, ByVal bRedraw As Boolean) As Boolean +End Function +Public Shared Function EgtZoomOnPoint(ByVal nCtx As Integer, ByVal Curr As Point, ByVal dCoeff As Double, Optional ByVal bRedraw As Boolean = True) As Boolean + Return EgtZoomOnPoint(nCtx, Curr.X, Curr.Y, dCoeff, bRedraw) +End Function + + +Private Shared Function EgtSetWinRect(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +End Function +Public Shared Function EgtSetWinRect(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean + Return EgtSetWinRect(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) +End Function + + +Public Shared Function EgtResetWinRect(ByVal nCtx As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Private Shared Function EgtZoomWin(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +End Function +Public Shared Function EgtZoomWin(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean + Return EgtZoomWin(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) +End Function + + +Public Shared Function EgtSetView(ByVal nCtx As Integer, ByVal nView As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean +End Function + + +Private Shared Function EgtPanCamera(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +End Function +Public Shared Function EgtPanCamera(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean + Return EgtPanCamera(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) +End Function + + +Private Shared Function EgtRotateCamera(ByVal nCtx As Integer, ByVal nPrevX As Integer, ByVal nPrevY As Integer, ByVal nCurrX As Integer, ByVal nCurrY As Integer, ByVal bRedraw As Boolean) As Boolean +End Function +Public Shared Function EgtRotateCamera(ByVal nCtx As Integer, ByVal Prev As Point, ByVal Curr As Point, Optional ByVal bRedraw As Boolean = True) As Boolean + Return EgtRotateCamera(nCtx, Prev.X, Prev.Y, Curr.X, Curr.Y, bRedraw) +End Function + + +Public Shared Function EgtGetCameraDir(ByVal nCtx As Integer, ByRef nDir As Integer) As Boolean +End Function + + +Private Shared Function EgtUnProjectPoint(ByVal nCtx As Integer, ByVal nWinX As Integer, ByVal nWinY As Integer, ByRef ptP As Point3d) As Boolean +End Function +Public Shared Function EgtUnProjectPoint(ByVal nCtx As Integer, ByVal Curr As Point, ByRef ptP As Point3d) As Boolean + Return EgtUnProjectPoint(nCtx, Curr.X, Curr.Y, ptP) +End Function + + +'TscExecutor + +Public Shared Function EgtInitTscExec(ByVal nCtx As Integer) As Boolean +End Function + + +Public Shared Function EgtTscFileExec(ByVal nCtx As Integer, ByVal sFilePath As String) As Boolean +End Function + + +Public Shared Function EgtTscLineExec(ByVal nCtx As Integer, ByVal sLine As String) As Boolean +End Function + + +'Costanti : TIPO DI FILE +Public Const FT_NULL As Integer = 0 +Public Const FT_NGE As Integer = 1 +Public Const FT_NFE As Integer = 2 +Public Const FT_DXF As Integer = 11 +Public Const FT_STL As Integer = 12 +'Costanti : FORMATO FILE NGE +Public Const NGE_TEXT As Integer = 0 +Public Const NGE_BIN As Integer = 1 +Public Const NGE_CMPTEXT As Integer = 2 +'Costanti : ID GEOMDB +Public Const GDB_ID_ROOT As Integer = 0 +Public Const GDB_ID_NULL As Integer = -1 +'Costanti : TIPO OGGETTI +Public Const TY_NONE As Integer = 0 +Public Const TY_GROUP As Integer = 2 +Public Const TY_GEO_VECTOR As Integer = 128 +Public Const TY_GEO_POINT As Integer = 129 +Public Const TY_GEO_FRAME As Integer = 130 +Public Const TY_CRV_LINE As Integer = 256 +Public Const TY_CRV_ARC As Integer = 257 +Public Const TY_CRV_BEZ As Integer = 258 +Public Const TY_CRV_COMPO As Integer = 259 +Public Const TY_SRF_MESH As Integer = 512 +Public Const TY_EXT_TEXT As Integer = 1024 +'Costanti : LIVELLO DI UN OGGETTO +Public Const GDB_LV_USER As Integer = 1 +Public Const GDB_LV_SYSTEM As Integer = 2 +Public Const GDB_LV_TEMP As Integer = 3 +'Costanti : MODO DI UN OGGETTO +Public Const GDB_MD_STD As Integer = 1 +Public Const GDB_MD_LOCKED As Integer = 2 +Public Const GDB_MD_HIDDEN As Integer = 3 +'Costanti : STATO DI UN OGGETTO +Public Const GDB_ST_OFF As Integer = 0 +Public Const GDB_ST_ON As Integer = 1 +Public Const GDB_ST_SEL As Integer = 2 +'Costanti : TIPO VISUALIZZAZIONE +Public Const SM_WIREFRAME As Integer = 0 +Public Const SM_HIDDENLINE As Integer = 1 +Public Const SM_SHADING As Integer = 2 +'Costanti : TIPO ZOOM +Public Const ZM_ALL As Integer = 1 +Public Const ZM_IN As Integer = 2 +Public Const ZM_OUT As Integer = 3 +'Costanti : TIPO VISTA +Public Const CT_NONE As Integer = 0 +Public Const CT_TOP As Integer = 1 +Public Const CT_FRONT As Integer = 2 +Public Const CT_RIGHT As Integer = 3 +Public Const CT_BACK As Integer = 4 +Public Const CT_LEFT As Integer = 5 +Public Const CT_BOTTOM As Integer = 6 +Public Const CT_ISO_SW As Integer = 7 +Public Const CT_ISO_SE As Integer = 8 +Public Const CT_ISO_NE As Integer = 9 +Public Const CT_ISO_NW As Integer = 10 + +End Class diff --git a/EgtUILib.sln b/EgtUILib.sln new file mode 100644 index 0000000..e6e365e --- /dev/null +++ b/EgtUILib.sln @@ -0,0 +1,26 @@ + +Microsoft Visual Studio Solution File, Format Version 11.00 +# Visual Studio 2010 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EgtUILib", "EgtUILib.vbproj", "{502DBE04-2D66-4517-9368-C33DC698691F}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|x64 = Debug|x64 + Debug|x86 = Debug|x86 + Release|x64 = Release|x64 + Release|x86 = Release|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {502DBE04-2D66-4517-9368-C33DC698691F}.Debug|x64.ActiveCfg = Debug|x64 + {502DBE04-2D66-4517-9368-C33DC698691F}.Debug|x64.Build.0 = Debug|x64 + {502DBE04-2D66-4517-9368-C33DC698691F}.Debug|x86.ActiveCfg = Debug|x86 + {502DBE04-2D66-4517-9368-C33DC698691F}.Debug|x86.Build.0 = Debug|x86 + {502DBE04-2D66-4517-9368-C33DC698691F}.Release|x64.ActiveCfg = Release|x64 + {502DBE04-2D66-4517-9368-C33DC698691F}.Release|x64.Build.0 = Release|x64 + {502DBE04-2D66-4517-9368-C33DC698691F}.Release|x86.ActiveCfg = Release|x86 + {502DBE04-2D66-4517-9368-C33DC698691F}.Release|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/EgtUILib.vbproj b/EgtUILib.vbproj new file mode 100644 index 0000000..f5d9af4 --- /dev/null +++ b/EgtUILib.vbproj @@ -0,0 +1,298 @@ + + + + Debug + AnyCPU + + + + + {502DBE04-2D66-4517-9368-C33DC698691F} + Library + EgtUILib + EgtUILib + 512 + Windows + v4.0 + Client + + + true + full + true + true + bin\Debug\ + + + _MYFORMS=True + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + pdbonly + false + true + true + bin\Release\ + + + _MYFORMS=True + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + true + true + true + bin\Debug64\ + _MYFORMS=True + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + full + x64 + false + false + + + true + bin\Release64\ + _MYFORMS=True + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + None + x64 + false + false + + + true + true + true + bin\Debug32\ + _MYFORMS=True + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + full + x86 + false + false + + + true + bin\Release32\ + _MYFORMS=True + + + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + None + x86 + false + false + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + btnRendering.vb + + + UserControl + + + btnLookFrom.vb + + + UserControl + + + btnZoom.vb + + + UserControl + + + cmdExec.vb + + + UserControl + + + cmdExport.vb + + + UserControl + + + cmdImport.vb + + + UserControl + + + cmdNew.vb + + + UserControl + + + cmdOpen.vb + + + UserControl + + + cmdSave.vb + + + UserControl + + + + True + Application.myapp + + + + True + True + Resources.resx + + + True + Settings.settings + True + + + Scene.vb + + + UserControl + + + + tsSceneMode.vb + + + UserControl + + + tsViewMode.vb + + + UserControl + + + + + btnLookFrom.vb + + + btnRendering.vb + + + btnZoom.vb + + + cmdExport.vb + + + cmdImport.vb + + + cmdNew.vb + + + cmdOpen.vb + + + cmdSave.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + tsSceneMode.vb + + + tsViewMode.vb + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + + + + + + + + copy c:\EgtDev\EgtUILib\bin\Release32\EgtUILib.dll c:\EgtProg\Dll32\EgtUILib.dll +copy c:\EgtDev\EgtUILib\bin\Debug32\EgtUILib.dll c:\EgtProg\DllD32\EgtUILib.dll +copy c:\EgtDev\EgtUILib\bin\Release64\EgtUILib.dll c:\EgtProg\Dll64\EgtUILib.dll +copy c:\EgtDev\EgtUILib\bin\Debug64\EgtUILib.dll c:\EgtProg\DllD64\EgtUILib.dll + + + \ No newline at end of file diff --git a/My Project/Application.Designer.vb b/My Project/Application.Designer.vb new file mode 100644 index 0000000..0aea9a4 --- /dev/null +++ b/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.34014 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/My Project/Application.myapp b/My Project/Application.myapp new file mode 100644 index 0000000..0167050 --- /dev/null +++ b/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..c84f45d --- /dev/null +++ b/My Project/AssemblyInfo.vb @@ -0,0 +1,46 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Le informazioni generali relative a un assembly sono controllate dal seguente +' insieme di attributi. Per modificare le informazioni associate a un assembly +' è necessario modificare i valori di questi attributi. + +' Controllare i valori degli attributi dell'assembly + +#If PLATFORM = "x64" Then +#If DEBUG Then + +#Else + +#End If +#Else +#If DEBUG Then + +#Else + +#End If +#End If + + + + + + + + +'Se il progetto viene esposto a COM, il GUID seguente verrà utilizzato come ID della libreria dei tipi + + +' Le informazioni sulla versione di un assembly sono costituite dai seguenti quattro valori: +' +' Numero di versione principale +' Numero di versione secondario +' Numero build +' Revisione +' +' È possibile specificare tutti i valori oppure impostare valori predefiniti per i numeri relativi alla revisione e alla build +' utilizzando l'asterisco (*) come descritto di seguito: + + + diff --git a/My Project/Resources.Designer.vb b/My Project/Resources.Designer.vb new file mode 100644 index 0000000..2ee1d30 --- /dev/null +++ b/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.34014 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Questa classe è stata generata automaticamente dalla classe StronglyTypedResourceBuilder. + 'tramite uno strumento quale ResGen o Visual Studio. + 'Per aggiungere o rimuovere un membro, modificare il file con estensione ResX ed eseguire nuovamente ResGen + 'con l'opzione /str oppure ricompilare il progetto VS. + ''' + ''' Classe di risorse fortemente tipizzata per la ricerca di stringhe localizzate e così via. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Restituisce l'istanza di ResourceManager nella cache utilizzata da questa classe. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EgtUILib.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Esegue l'override della proprietà CurrentUICulture del thread corrente per tutte le + ''' ricerche di risorse eseguite utilizzando questa classe di risorse fortemente tipizzata. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/My Project/Resources.resx b/My Project/Resources.resx new file mode 100644 index 0000000..ffecec8 --- /dev/null +++ b/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/My Project/Settings.Designer.vb b/My Project/Settings.Designer.vb new file mode 100644 index 0000000..ab2bfb8 --- /dev/null +++ b/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:4.0.30319.34014 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funzionalità di salvataggio automatico My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.EgtUILib.My.MySettings + Get + Return Global.EgtUILib.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/My Project/Settings.settings b/My Project/Settings.settings new file mode 100644 index 0000000..377f56d --- /dev/null +++ b/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/Resources/Pan.cur b/Resources/Pan.cur new file mode 100644 index 0000000..3909397 Binary files /dev/null and b/Resources/Pan.cur differ diff --git a/Resources/Pointer.cur b/Resources/Pointer.cur new file mode 100644 index 0000000..6298d96 Binary files /dev/null and b/Resources/Pointer.cur differ diff --git a/Resources/Rotate.cur b/Resources/Rotate.cur new file mode 100644 index 0000000..aa40976 Binary files /dev/null and b/Resources/Rotate.cur differ diff --git a/Resources/ZoomWin.cur b/Resources/ZoomWin.cur new file mode 100644 index 0000000..b1be252 Binary files /dev/null and b/Resources/ZoomWin.cur differ diff --git a/Scene.Designer.vb b/Scene.Designer.vb new file mode 100644 index 0000000..0a0c770 --- /dev/null +++ b/Scene.Designer.vb @@ -0,0 +1,29 @@ + _ +Partial Class Scene + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + End Sub + +End Class diff --git a/Scene.vb b/Scene.vb new file mode 100644 index 0000000..642766b --- /dev/null +++ b/Scene.vb @@ -0,0 +1,177 @@ +Imports System.Math +Imports System.Globalization +Imports EgtUILib.EgtInterface + +Public Class Scene + + Private m_nStatus As Integer + Private Enum ST As Integer + NULL = 0 + PAN = 1 + ROT = 2 + ZOOMWIN = 3 + End Enum + Private m_nGseContext As Integer + Private m_PrevPoint As Point + + Sub New() + ' Chiamata richiesta dalla finestra di progettazione. + InitializeComponent() + ' Istruzioni di inizializzazione. + SetStyle(ControlStyles.Opaque, True) + SetStyle(ControlStyles.UserPaint, True) + SetStyle(ControlStyles.AllPaintingInWmPaint, True) + m_nStatus = ST.NULL + m_nGseContext = 0 + m_PrevPoint = Point.Empty + Cursor = New Cursor(Me.GetType(), "Pointer.cur") + End Sub + + Public Sub Init() + 'EgtInit ed EgtSetFont vanno spostate nell'evento Load del Form se in esso è presente più di una scena. + 'EgtInit(0, "TestEngine.log") + 'EgtSetFont("C:\EgtProg\Fonts", "ModernProp.Nfe") + m_nGseContext = EgtInitGeomDB() + EgtSetDefaultMaterial(m_nGseContext, 255, 165, 0) + EgtInitScene(m_nGseContext, Handle, 3, True, 24, 32) + EgtSetBackground(m_nGseContext, 140, 154, 168, 40, 44, 48) + EgtInitTscExec(m_nGseContext) + End Sub + + Public Function GetCtx() As Integer + Return m_nGseContext + End Function + + Protected Overrides Sub OnHandleDestroyed(e As EventArgs) + 'EgtExit va spostata nell'evento FormClosing del Form + 'EgtExit() + End Sub + + Protected Overrides Sub OnPaint(e As PaintEventArgs) + MyBase.OnPaint(e) + EgtDraw(m_nGseContext) + End Sub + + Protected Overrides Sub OnPaintBackground(pevent As PaintEventArgs) + MyBase.OnPaintBackground(pevent) + End Sub + + Protected Overrides Sub OnResize(e As System.EventArgs) + MyBase.OnResize(e) + EgtResize(m_nGseContext, Width, Height) + End Sub + + Protected Overrides Sub OnMouseEnter(e As System.EventArgs) + MyBase.OnMouseEnter(e) + Focus() + End Sub + + Protected Overrides Sub OnMouseDown(e As System.Windows.Forms.MouseEventArgs) + If e.Button = Windows.Forms.MouseButtons.Middle Then + If (Control.ModifierKeys And Keys.Shift) = Keys.Shift Then + m_nStatus = ST.ZOOMWIN + Cursor = New Cursor(Me.GetType(), "ZoomWin.cur") + ElseIf (Control.ModifierKeys And Keys.Control) = Keys.Control Then + m_nStatus = ST.ROT + Cursor = New Cursor(Me.GetType(), "Rotate.cur") + Else + m_nStatus = ST.PAN + Cursor = New Cursor(Me.GetType(), "Pan.cur") + End If + m_PrevPoint = e.Location + Else + MyBase.OnMouseDown(e) + End If + Focus() + End Sub + + Protected Overrides Sub OnMouseUp(e As System.Windows.Forms.MouseEventArgs) + If e.Button = Windows.Forms.MouseButtons.Middle Then + If m_nStatus = ST.ZOOMWIN Then + EgtResetWinRect(m_nGseContext, False) + EgtZoomWin(m_nGseContext, m_PrevPoint, e.Location, True) + End If + If m_nStatus <> ST.NULL Then + m_nStatus = ST.NULL + Cursor = New Cursor(Me.GetType(), "Pointer.cur") + End If + Else + MyBase.OnMouseUp(e) + End If + End Sub + + Protected Overrides Sub OnMouseMove(e As System.Windows.Forms.MouseEventArgs) + 'Visualizzo le coordinate del mouse + ShowCursorPos(e.Location) + 'Secondo lo stato... + If e.Button = Windows.Forms.MouseButtons.Middle Then + If m_nStatus = ST.ZOOMWIN Then + Cursor = New Cursor(Me.GetType(), "ZoomWin.cur") + EgtSetWinRect(m_nGseContext, m_PrevPoint, e.Location, True) + 'Il punto di riferimento deve rimanere quello originale + ElseIf m_nStatus = ST.ROT Then + Cursor = New Cursor(Me.GetType(), "Rotate.cur") + EgtRotateCamera(m_nGseContext, m_PrevPoint, e.Location, True) + m_PrevPoint = e.Location + ElseIf m_nStatus = ST.PAN Then + Cursor = New Cursor(Me.GetType(), "Pan.cur") + EgtPanCamera(m_nGseContext, m_PrevPoint, e.Location, True) + m_PrevPoint = e.Location + Else + m_nStatus = ST.NULL + Cursor = New Cursor(Me.GetType(), "Pointer.cur") + End If + Else + MyBase.OnMouseMove(e) + End If + End Sub + + Protected Overrides Sub OnMouseWheel(e As System.Windows.Forms.MouseEventArgs) + If Abs(e.Delta) < 30 Then + Return + End If + ' calcolo coefficiente + Const WHEEL_DELTA As Double = 120 + Dim dCoeff As Double = 1 - 0.1 * Abs(e.Delta) / WHEEL_DELTA + If e.Delta < 0 Then + dCoeff = 1 / dCoeff + End If + ' eseguo zoom + EgtZoomOnPoint(m_nGseContext, e.Location, dCoeff, True) + End Sub + + Private Sub ShowCursorPos(ByVal WinXY As Point) + 'ricavo punto 3d + Dim ptWorld As Point3d + EgtUnProjectPoint(m_nGseContext, WinXY, ptWorld) + 'ricavo direzione di vista + Dim nDir As Integer + EgtGetCameraDir(m_nGseContext, nDir) + 'costruisco stringa con dati + Dim sCursorPos As New System.Text.StringBuilder + Select Case nDir + Case CT_TOP, CT_BOTTOM + sCursorPos.Append("X=") + sCursorPos.Append(ptWorld.x.ToString("F4", CultureInfo.InvariantCulture)) + sCursorPos.Append(" Y=") + sCursorPos.Append(ptWorld.y.ToString("F4", CultureInfo.InvariantCulture)) + Case CT_FRONT, CT_BACK + sCursorPos.Append("X=") + sCursorPos.Append(ptWorld.x.ToString("F4", CultureInfo.InvariantCulture)) + sCursorPos.Append(" Z=") + sCursorPos.Append(ptWorld.z.ToString("F4", CultureInfo.InvariantCulture)) + Case CT_LEFT, CT_RIGHT + sCursorPos.Append("Y=") + sCursorPos.Append(ptWorld.y.ToString("F4", CultureInfo.InvariantCulture)) + sCursorPos.Append(" Z=") + sCursorPos.Append(ptWorld.z.ToString("F4", CultureInfo.InvariantCulture)) + Case Else + sCursorPos.Append(" ") + End Select + ' lancio l'evento per visualizzare la stringa + RaiseEvent CursorPos(Me, sCursorPos.ToString) + End Sub + + Public Event CursorPos(ByVal sender As Object, ByVal sCursorPos As String) + +End Class \ No newline at end of file diff --git a/Settings.vb b/Settings.vb new file mode 100644 index 0000000..9d81384 --- /dev/null +++ b/Settings.vb @@ -0,0 +1,11 @@ + +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. + ' L'evento SettingsLoaded viene generato dopo il caricamento dei valori dell'impostazione. + ' L'evento SettingsSaving viene generato prima del salvataggio dei valori dell'impostazione. + Partial Friend NotInheritable Class MySettings + End Class +End Namespace diff --git a/btnLookFrom.Designer.vb b/btnLookFrom.Designer.vb new file mode 100644 index 0000000..32cd780 --- /dev/null +++ b/btnLookFrom.Designer.vb @@ -0,0 +1,160 @@ + _ +Partial Class btnLookFrom + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + Private Sub InitializeComponent() + Me.gbViewMode = New System.Windows.Forms.GroupBox() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.btnTop = New System.Windows.Forms.Button() + Me.btnFront = New System.Windows.Forms.Button() + Me.btnLeft = New System.Windows.Forms.Button() + Me.btnIso = New System.Windows.Forms.Button() + Me.btnBack = New System.Windows.Forms.Button() + Me.btnRight = New System.Windows.Forms.Button() + Me.gbViewMode.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'gbViewMode + ' + Me.gbViewMode.Controls.Add(Me.TableLayoutPanel1) + Me.gbViewMode.Dock = System.Windows.Forms.DockStyle.Fill + Me.gbViewMode.Location = New System.Drawing.Point(0, 0) + Me.gbViewMode.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.gbViewMode.Name = "gbViewMode" + Me.gbViewMode.Padding = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.gbViewMode.Size = New System.Drawing.Size(167, 69) + Me.gbViewMode.TabIndex = 0 + Me.gbViewMode.TabStop = False + Me.gbViewMode.Text = "Look From" + ' + '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.btnTop, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.btnFront, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.btnLeft, 2, 0) + Me.TableLayoutPanel1.Controls.Add(Me.btnIso, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.btnBack, 1, 1) + Me.TableLayoutPanel1.Controls.Add(Me.btnRight, 2, 1) + 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 = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(163, 52) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'btnTop + ' + Me.btnTop.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnTop.Location = New System.Drawing.Point(2, 2) + Me.btnTop.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnTop.Name = "btnTop" + Me.btnTop.Size = New System.Drawing.Size(50, 22) + Me.btnTop.TabIndex = 0 + Me.btnTop.Text = "Top" + Me.btnTop.UseVisualStyleBackColor = True + ' + 'btnFront + ' + Me.btnFront.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnFront.Location = New System.Drawing.Point(56, 2) + Me.btnFront.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnFront.Name = "btnFront" + Me.btnFront.Size = New System.Drawing.Size(50, 22) + Me.btnFront.TabIndex = 1 + Me.btnFront.Text = "Front" + Me.btnFront.UseVisualStyleBackColor = True + ' + 'btnLeft + ' + Me.btnLeft.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnLeft.Location = New System.Drawing.Point(110, 2) + Me.btnLeft.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnLeft.Name = "btnLeft" + Me.btnLeft.Size = New System.Drawing.Size(51, 22) + Me.btnLeft.TabIndex = 2 + Me.btnLeft.Text = "Left" + Me.btnLeft.UseVisualStyleBackColor = True + ' + 'btnIso + ' + Me.btnIso.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnIso.Location = New System.Drawing.Point(2, 28) + Me.btnIso.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnIso.Name = "btnIso" + Me.btnIso.Size = New System.Drawing.Size(50, 22) + Me.btnIso.TabIndex = 3 + Me.btnIso.Text = "Iso" + Me.btnIso.UseVisualStyleBackColor = True + ' + 'btnBack + ' + Me.btnBack.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnBack.Location = New System.Drawing.Point(56, 28) + Me.btnBack.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnBack.Name = "btnBack" + Me.btnBack.Size = New System.Drawing.Size(50, 22) + Me.btnBack.TabIndex = 4 + Me.btnBack.Text = "Back" + Me.btnBack.UseVisualStyleBackColor = True + ' + 'btnRight + ' + Me.btnRight.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnRight.Location = New System.Drawing.Point(110, 28) + Me.btnRight.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.btnRight.Name = "btnRight" + Me.btnRight.Size = New System.Drawing.Size(51, 22) + Me.btnRight.TabIndex = 5 + Me.btnRight.Text = "Right" + Me.btnRight.UseVisualStyleBackColor = True + ' + 'btnLookFrom + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.gbViewMode) + Me.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.Name = "btnLookFrom" + Me.Size = New System.Drawing.Size(167, 69) + Me.gbViewMode.ResumeLayout(False) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + +End Sub + Friend WithEvents gbViewMode As System.Windows.Forms.GroupBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents btnTop As System.Windows.Forms.Button + Friend WithEvents btnFront As System.Windows.Forms.Button + Friend WithEvents btnLeft As System.Windows.Forms.Button + Friend WithEvents btnIso As System.Windows.Forms.Button + Friend WithEvents btnBack As System.Windows.Forms.Button + Friend WithEvents btnRight As System.Windows.Forms.Button + +End Class diff --git a/btnLookFrom.resx b/btnLookFrom.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/btnLookFrom.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/btnLookFrom.vb b/btnLookFrom.vb new file mode 100644 index 0000000..ea8ec49 --- /dev/null +++ b/btnLookFrom.vb @@ -0,0 +1,39 @@ +Imports EgtUILib.EgtInterface + +Public Class btnLookFrom + + 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 btnTop_Click(sender As System.Object, e As System.EventArgs) Handles btnTop.Click + EgtSetView(m_nContext, CT_TOP, True) + End Sub + + Private Sub btnIso_Click(sender As System.Object, e As System.EventArgs) Handles btnIso.Click + EgtSetView(m_nContext, CT_ISO_SW, True) + End Sub + + Private Sub btnFront_Click(sender As System.Object, e As System.EventArgs) Handles btnFront.Click + EgtSetView(m_nContext, CT_FRONT, True) + End Sub + + Private Sub btnBack_Click(sender As System.Object, e As System.EventArgs) Handles btnBack.Click + EgtSetView(m_nContext, CT_BACK, True) + End Sub + + Private Sub btnLeft_Click(sender As System.Object, e As System.EventArgs) Handles btnLeft.Click + EgtSetView(m_nContext, CT_LEFT, True) + End Sub + + Private Sub btnRight_Click(sender As System.Object, e As System.EventArgs) Handles btnRight.Click + EgtSetView(m_nContext, CT_RIGHT, True) + End Sub +End Class diff --git a/btnRendering.Designer.vb b/btnRendering.Designer.vb new file mode 100644 index 0000000..0e58b86 --- /dev/null +++ b/btnRendering.Designer.vb @@ -0,0 +1,127 @@ + _ +Partial Class btnRendering + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + Private Sub InitializeComponent() + Me.gbSceneMode = New System.Windows.Forms.GroupBox() + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.rbtnWireframe = New System.Windows.Forms.RadioButton() + Me.rbtnHiddenLine = New System.Windows.Forms.RadioButton() + Me.rbtnShading = New System.Windows.Forms.RadioButton() + Me.gbSceneMode.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'gbSceneMode + ' + Me.gbSceneMode.Controls.Add(Me.TableLayoutPanel1) + Me.gbSceneMode.Dock = System.Windows.Forms.DockStyle.Fill + Me.gbSceneMode.Location = New System.Drawing.Point(0, 0) + Me.gbSceneMode.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.gbSceneMode.Name = "gbSceneMode" + Me.gbSceneMode.Padding = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.gbSceneMode.Size = New System.Drawing.Size(167, 43) + Me.gbSceneMode.TabIndex = 0 + Me.gbSceneMode.TabStop = False + Me.gbSceneMode.Text = "Rendering" + ' + '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.33333!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33333!)) + Me.TableLayoutPanel1.Controls.Add(Me.rbtnWireframe, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.rbtnHiddenLine, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.rbtnShading, 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 = 3 + ' + 'rbtnWireframe + ' + Me.rbtnWireframe.Appearance = System.Windows.Forms.Appearance.Button + Me.rbtnWireframe.AutoSize = True + Me.rbtnWireframe.Dock = System.Windows.Forms.DockStyle.Fill + Me.rbtnWireframe.Location = New System.Drawing.Point(2, 2) + Me.rbtnWireframe.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.rbtnWireframe.Name = "rbtnWireframe" + Me.rbtnWireframe.Size = New System.Drawing.Size(50, 22) + Me.rbtnWireframe.TabIndex = 0 + Me.rbtnWireframe.Text = "WireFrame" + Me.rbtnWireframe.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.rbtnWireframe.UseVisualStyleBackColor = True + ' + 'rbtnHiddenLine + ' + Me.rbtnHiddenLine.Appearance = System.Windows.Forms.Appearance.Button + Me.rbtnHiddenLine.AutoSize = True + Me.rbtnHiddenLine.Dock = System.Windows.Forms.DockStyle.Fill + Me.rbtnHiddenLine.Location = New System.Drawing.Point(56, 2) + Me.rbtnHiddenLine.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.rbtnHiddenLine.Name = "rbtnHiddenLine" + Me.rbtnHiddenLine.Size = New System.Drawing.Size(50, 22) + Me.rbtnHiddenLine.TabIndex = 1 + Me.rbtnHiddenLine.Text = "HiddenLine" + Me.rbtnHiddenLine.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.rbtnHiddenLine.UseVisualStyleBackColor = True + ' + 'rbtnShading + ' + Me.rbtnShading.Appearance = System.Windows.Forms.Appearance.Button + Me.rbtnShading.AutoSize = True + Me.rbtnShading.Dock = System.Windows.Forms.DockStyle.Fill + Me.rbtnShading.Location = New System.Drawing.Point(110, 2) + Me.rbtnShading.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.rbtnShading.Name = "rbtnShading" + Me.rbtnShading.Size = New System.Drawing.Size(51, 22) + Me.rbtnShading.TabIndex = 2 + Me.rbtnShading.Text = "Shading" + Me.rbtnShading.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.rbtnShading.UseVisualStyleBackColor = True + ' + 'btnRendering + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.gbSceneMode) + Me.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.Name = "btnRendering" + Me.Size = New System.Drawing.Size(167, 43) + Me.gbSceneMode.ResumeLayout(False) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + Me.ResumeLayout(False) + +End Sub + Friend WithEvents gbSceneMode As System.Windows.Forms.GroupBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents rbtnWireframe As System.Windows.Forms.RadioButton + Friend WithEvents rbtnHiddenLine As System.Windows.Forms.RadioButton + Friend WithEvents rbtnShading As System.Windows.Forms.RadioButton + +End Class diff --git a/btnRendering.resx b/btnRendering.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/btnRendering.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/btnRendering.vb b/btnRendering.vb new file mode 100644 index 0000000..b105f0d --- /dev/null +++ b/btnRendering.vb @@ -0,0 +1,28 @@ +Imports EgtUILib.EgtInterface + +Public Class btnRendering + + 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 rbtnWireframe_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtnWireframe.CheckedChanged + EgtSetShowMode(m_nContext, SM_WIREFRAME, True) + End Sub + + Private Sub rbtnHiddenLine_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtnHiddenLine.CheckedChanged + EgtSetShowMode(m_nContext, SM_HIDDENLINE, True) + End Sub + + Private Sub rbtnShading_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtnShading.CheckedChanged + EgtSetShowMode(m_nContext, SM_SHADING, True) + End Sub + +End Class diff --git a/btnZoom.Designer.vb b/btnZoom.Designer.vb new file mode 100644 index 0000000..ba70b62 --- /dev/null +++ b/btnZoom.Designer.vb @@ -0,0 +1,117 @@ + _ +Partial Class btnZoom + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + 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 diff --git a/btnZoom.resx b/btnZoom.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/btnZoom.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/btnZoom.vb b/btnZoom.vb new file mode 100644 index 0000000..e9dadb4 --- /dev/null +++ b/btnZoom.vb @@ -0,0 +1,28 @@ +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 diff --git a/cmdExec.Designer.vb b/cmdExec.Designer.vb new file mode 100644 index 0000000..95518a5 --- /dev/null +++ b/cmdExec.Designer.vb @@ -0,0 +1,57 @@ + _ +Partial Class cmdExec + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + 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 diff --git a/cmdExec.vb b/cmdExec.vb new file mode 100644 index 0000000..700d391 --- /dev/null +++ b/cmdExec.vb @@ -0,0 +1,26 @@ +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 diff --git a/cmdExport.Designer.vb b/cmdExport.Designer.vb new file mode 100644 index 0000000..37abcb4 --- /dev/null +++ b/cmdExport.Designer.vb @@ -0,0 +1,59 @@ + _ +Partial Class cmdExport + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + 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 diff --git a/cmdExport.resx b/cmdExport.resx new file mode 100644 index 0000000..7f90636 --- /dev/null +++ b/cmdExport.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/cmdExport.vb b/cmdExport.vb new file mode 100644 index 0000000..cde7809 --- /dev/null +++ b/cmdExport.vb @@ -0,0 +1,36 @@ +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 diff --git a/cmdImport.Designer.vb b/cmdImport.Designer.vb new file mode 100644 index 0000000..d815d7b --- /dev/null +++ b/cmdImport.Designer.vb @@ -0,0 +1,59 @@ + _ +Partial Class cmdImport + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + 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 diff --git a/cmdImport.resx b/cmdImport.resx new file mode 100644 index 0000000..491d8dc --- /dev/null +++ b/cmdImport.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/cmdImport.vb b/cmdImport.vb new file mode 100644 index 0000000..ff548f6 --- /dev/null +++ b/cmdImport.vb @@ -0,0 +1,39 @@ +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 \ No newline at end of file diff --git a/cmdNew.Designer.vb b/cmdNew.Designer.vb new file mode 100644 index 0000000..2d08a98 --- /dev/null +++ b/cmdNew.Designer.vb @@ -0,0 +1,51 @@ + _ +Partial Class cmdNew + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + 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 diff --git a/cmdNew.resx b/cmdNew.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/cmdNew.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/cmdNew.vb b/cmdNew.vb new file mode 100644 index 0000000..c6fc6c9 --- /dev/null +++ b/cmdNew.vb @@ -0,0 +1,23 @@ +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 diff --git a/cmdOpen.Designer.vb b/cmdOpen.Designer.vb new file mode 100644 index 0000000..3057cf0 --- /dev/null +++ b/cmdOpen.Designer.vb @@ -0,0 +1,59 @@ + _ +Partial Class cmdOpen + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + 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 diff --git a/cmdOpen.resx b/cmdOpen.resx new file mode 100644 index 0000000..50158e0 --- /dev/null +++ b/cmdOpen.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/cmdOpen.vb b/cmdOpen.vb new file mode 100644 index 0000000..cd60ee1 --- /dev/null +++ b/cmdOpen.vb @@ -0,0 +1,29 @@ +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 diff --git a/cmdSave.Designer.vb b/cmdSave.Designer.vb new file mode 100644 index 0000000..6ccc2c4 --- /dev/null +++ b/cmdSave.Designer.vb @@ -0,0 +1,59 @@ + _ +Partial Class cmdSave + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + 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 diff --git a/cmdSave.resx b/cmdSave.resx new file mode 100644 index 0000000..d76af0f --- /dev/null +++ b/cmdSave.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/cmdSave.vb b/cmdSave.vb new file mode 100644 index 0000000..e5dffee --- /dev/null +++ b/cmdSave.vb @@ -0,0 +1,27 @@ +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 diff --git a/tsSceneMode.Designer.vb b/tsSceneMode.Designer.vb new file mode 100644 index 0000000..ff7796e --- /dev/null +++ b/tsSceneMode.Designer.vb @@ -0,0 +1,90 @@ + _ +Partial Class tsSceneMode + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(tsSceneMode)) + Me.SceneMode = New System.Windows.Forms.ToolStrip() + Me.btnWireframe = New System.Windows.Forms.ToolStripButton() + Me.btnHiddenLine = New System.Windows.Forms.ToolStripButton() + Me.btnShading = New System.Windows.Forms.ToolStripButton() + Me.SceneMode.SuspendLayout() + Me.SuspendLayout() + ' + 'SceneMode + ' + Me.SceneMode.Dock = System.Windows.Forms.DockStyle.Fill + Me.SceneMode.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnWireframe, Me.btnHiddenLine, Me.btnShading}) + Me.SceneMode.Location = New System.Drawing.Point(0, 0) + Me.SceneMode.Name = "SceneMode" + Me.SceneMode.Size = New System.Drawing.Size(150, 25) + Me.SceneMode.TabIndex = 0 + ' + 'btnWireframe + ' + Me.btnWireframe.CheckOnClick = True + Me.btnWireframe.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnWireframe.Image = CType(resources.GetObject("btnWireframe.Image"), System.Drawing.Image) + Me.btnWireframe.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnWireframe.Name = "btnWireframe" + Me.btnWireframe.Size = New System.Drawing.Size(23, 22) + Me.btnWireframe.ToolTipText = "WireFrame" + ' + 'btnHiddenLine + ' + Me.btnHiddenLine.CheckOnClick = True + Me.btnHiddenLine.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnHiddenLine.Image = CType(resources.GetObject("btnHiddenLine.Image"), System.Drawing.Image) + Me.btnHiddenLine.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnHiddenLine.Name = "btnHiddenLine" + Me.btnHiddenLine.Size = New System.Drawing.Size(23, 22) + Me.btnHiddenLine.ToolTipText = "Hidden Line" + ' + 'btnShading + ' + Me.btnShading.CheckOnClick = True + Me.btnShading.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnShading.Image = CType(resources.GetObject("btnShading.Image"), System.Drawing.Image) + Me.btnShading.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnShading.Name = "btnShading" + Me.btnShading.Size = New System.Drawing.Size(23, 22) + Me.btnShading.ToolTipText = "Shading" + ' + 'tsSceneMode + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.SceneMode) + Me.Name = "tsSceneMode" + Me.Size = New System.Drawing.Size(150, 25) + Me.SceneMode.ResumeLayout(False) + Me.SceneMode.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents SceneMode As System.Windows.Forms.ToolStrip + Friend WithEvents btnWireframe As System.Windows.Forms.ToolStripButton + Friend WithEvents btnHiddenLine As System.Windows.Forms.ToolStripButton + Friend WithEvents btnShading As System.Windows.Forms.ToolStripButton + +End Class diff --git a/tsSceneMode.resx b/tsSceneMode.resx new file mode 100644 index 0000000..53be795 --- /dev/null +++ b/tsSceneMode.resx @@ -0,0 +1,169 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/tsSceneMode.vb b/tsSceneMode.vb new file mode 100644 index 0000000..2049cb1 --- /dev/null +++ b/tsSceneMode.vb @@ -0,0 +1,33 @@ +Imports EgtUILib.EgtInterface + +Public Class tsSceneMode + + 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 btnWireframe_Click(sender As System.Object, e As System.EventArgs) Handles btnWireframe.Click + btnHiddenLine.Checked = False + btnShading.Checked = False + EgtSetShowMode(m_nContext, SM_WIREFRAME, True) + End Sub + + Private Sub btnHiddenLine_Click(sender As System.Object, e As System.EventArgs) Handles btnHiddenLine.Click + btnWireframe.Checked = False + btnShading.Checked = False + EgtSetShowMode(m_nContext, SM_HIDDENLINE, True) + End Sub + + Private Sub btnShading_Click(sender As System.Object, e As System.EventArgs) Handles btnShading.Click + btnWireframe.Checked = False + btnHiddenLine.Checked = False + EgtSetShowMode(m_nContext, SM_SHADING, True) + End Sub +End Class diff --git a/tsViewMode.Designer.vb b/tsViewMode.Designer.vb new file mode 100644 index 0000000..d88e496 --- /dev/null +++ b/tsViewMode.Designer.vb @@ -0,0 +1,120 @@ + _ +Partial Class tsViewMode + Inherits System.Windows.Forms.UserControl + + 'UserControl esegue l'override del metodo Dispose per pulire l'elenco dei componenti. + _ + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(tsViewMode)) + Me.ViewMode = New System.Windows.Forms.ToolStrip() + Me.btnTop = New System.Windows.Forms.ToolStripButton() + Me.btnIso = New System.Windows.Forms.ToolStripButton() + Me.btnFront = New System.Windows.Forms.ToolStripButton() + Me.btnBack = New System.Windows.Forms.ToolStripButton() + Me.btnRight = New System.Windows.Forms.ToolStripButton() + Me.btnLeft = New System.Windows.Forms.ToolStripButton() + Me.ViewMode.SuspendLayout() + Me.SuspendLayout() + ' + 'ViewMode + ' + Me.ViewMode.Dock = System.Windows.Forms.DockStyle.Fill + Me.ViewMode.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnTop, Me.btnIso, Me.btnFront, Me.btnBack, Me.btnRight, Me.btnLeft}) + Me.ViewMode.Location = New System.Drawing.Point(0, 0) + Me.ViewMode.Name = "ViewMode" + Me.ViewMode.Size = New System.Drawing.Size(170, 25) + Me.ViewMode.TabIndex = 0 + ' + 'btnTop + ' + Me.btnTop.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnTop.Image = CType(resources.GetObject("btnTop.Image"), System.Drawing.Image) + Me.btnTop.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnTop.Name = "btnTop" + Me.btnTop.Size = New System.Drawing.Size(23, 22) + Me.btnTop.ToolTipText = "Top View" + ' + 'btnIso + ' + Me.btnIso.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnIso.Image = CType(resources.GetObject("btnIso.Image"), System.Drawing.Image) + Me.btnIso.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnIso.Name = "btnIso" + Me.btnIso.Size = New System.Drawing.Size(23, 22) + Me.btnIso.ToolTipText = "Isometric View" + ' + 'btnFront + ' + Me.btnFront.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnFront.Image = CType(resources.GetObject("btnFront.Image"), System.Drawing.Image) + Me.btnFront.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnFront.Name = "btnFront" + Me.btnFront.Size = New System.Drawing.Size(23, 22) + Me.btnFront.ToolTipText = "Front View" + ' + 'btnBack + ' + Me.btnBack.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnBack.Image = CType(resources.GetObject("btnBack.Image"), System.Drawing.Image) + Me.btnBack.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnBack.Name = "btnBack" + Me.btnBack.Size = New System.Drawing.Size(23, 22) + Me.btnBack.ToolTipText = "Back View" + ' + 'btnRight + ' + Me.btnRight.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnRight.Image = CType(resources.GetObject("btnRight.Image"), System.Drawing.Image) + Me.btnRight.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnRight.Name = "btnRight" + Me.btnRight.Size = New System.Drawing.Size(23, 22) + Me.btnRight.ToolTipText = "Right View" + ' + 'btnLeft + ' + Me.btnLeft.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnLeft.Image = CType(resources.GetObject("btnLeft.Image"), System.Drawing.Image) + Me.btnLeft.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnLeft.Name = "btnLeft" + Me.btnLeft.Size = New System.Drawing.Size(23, 22) + Me.btnLeft.ToolTipText = "Left View" + ' + 'tsViewMode + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.ViewMode) + Me.Name = "tsViewMode" + Me.Size = New System.Drawing.Size(170, 25) + Me.ViewMode.ResumeLayout(False) + Me.ViewMode.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents ViewMode As System.Windows.Forms.ToolStrip + Friend WithEvents btnTop As System.Windows.Forms.ToolStripButton + Friend WithEvents btnIso As System.Windows.Forms.ToolStripButton + Friend WithEvents btnFront As System.Windows.Forms.ToolStripButton + Friend WithEvents btnBack As System.Windows.Forms.ToolStripButton + Friend WithEvents btnRight As System.Windows.Forms.ToolStripButton + Friend WithEvents btnLeft As System.Windows.Forms.ToolStripButton + +End Class diff --git a/tsViewMode.resx b/tsViewMode.resx new file mode 100644 index 0000000..f8e2f0e --- /dev/null +++ b/tsViewMode.resx @@ -0,0 +1,214 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/tsViewMode.vb b/tsViewMode.vb new file mode 100644 index 0000000..79c7581 --- /dev/null +++ b/tsViewMode.vb @@ -0,0 +1,39 @@ +Imports EgtUILib.EgtInterface + +Public Class tsViewMode + + 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 btnTop_Click(sender As System.Object, e As System.EventArgs) Handles btnTop.Click + EgtSetView(m_nContext, CT_TOP, True) + End Sub + + Private Sub btnIso_Click(sender As System.Object, e As System.EventArgs) Handles btnIso.Click + EgtSetView(m_nContext, CT_ISO_SW, True) + End Sub + + Private Sub btnFront_Click(sender As System.Object, e As System.EventArgs) Handles btnFront.Click + EgtSetView(m_nContext, CT_FRONT, True) + End Sub + + Private Sub btnBack_Click(sender As System.Object, e As System.EventArgs) Handles btnBack.Click + EgtSetView(m_nContext, CT_BACK, True) + End Sub + + Private Sub btnRight_Click(sender As System.Object, e As System.EventArgs) Handles btnRight.Click + EgtSetView(m_nContext, CT_RIGHT, True) + End Sub + + Private Sub btnLeft_Click(sender As System.Object, e As System.EventArgs) Handles btnLeft.Click + EgtSetView(m_nContext, CT_LEFT, True) + End Sub +End Class