diff --git a/EgtInterface.vb b/EgtInterface.vb index 3cb87c8..d82d38f 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -8702,6 +8702,20 @@ Public Function EgtSetView(nView As VT, Optional bRedraw As Boolean = True) As B End If End Function + +Private Function EgtSetGenericView_32(dAngVertDeg As Double, dAngHorizDeg As Double, bRedraw As Boolean) As Boolean +End Function + +Private Function EgtSetGenericView_64(dAngVertDeg As Double, dAngHorizDeg As Double, bRedraw As Boolean) As Boolean +End Function +Public Function EgtSetGenericView(dAngVertDeg As Double, dAngHorizDeg As Double, Optional bRedraw As Boolean = True) As Boolean + If IntPtr.Size = 4 Then + Return EgtSetGenericView_32(dAngVertDeg, dAngHorizDeg, bRedraw) + Else + Return EgtSetGenericView_64(dAngVertDeg, dAngHorizDeg, bRedraw) + End If +End Function + Private Function EgtPanView_32(nPrevX As Integer, nPrevY As Integer, nCurrX As Integer, nCurrY As Integer, bRedraw As Boolean) As Boolean End Function diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index fa34e8c..8b2ee01 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +