TestEIn 1.6j2 :

- aggiornata interfaccia.
This commit is contained in:
Dario Sassi
2015-10-23 08:02:47 +00:00
parent 53fb91a9b3
commit 380a68dc36
2 changed files with 58 additions and 2 deletions
+56
View File
@@ -5339,6 +5339,62 @@ Public Function EgtShowOnlyTable(ByVal bVal As Boolean) As Boolean
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStart")>
Private Function EgtSimStart_32() As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStart")>
Private Function EgtSimStart_64() As Boolean
End Function
Public Function EgtSimStart() As Boolean
If IntPtr.Size = 4 Then
Return EgtSimStart_32()
Else
Return EgtSimStart_64()
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimMove")>
Private Function EgtSimMove_32() As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimMove")>
Private Function EgtSimMove_64() As Boolean
End Function
Public Function EgtSimMove() As Boolean
If IntPtr.Size = 4 Then
Return EgtSimMove_32()
Else
Return EgtSimMove_64()
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimSetStep")>
Private Function EgtSimSetStep_32(ByVal dStep As Double) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimSetStep")>
Private Function EgtSimSetStep_64(ByVal dStep As Double) As Boolean
End Function
Public Function EgtSimSetStep(ByVal dStep As Double) As Boolean
If IntPtr.Size = 4 Then
Return EgtSimSetStep_32(dStep)
Else
Return EgtSimSetStep_64(dStep)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStop")>
Private Function EgtSimStop_32() As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStop")>
Private Function EgtSimStop_64() As Boolean
End Function
Public Function EgtSimStop() As Boolean
If IntPtr.Size = 4 Then
Return EgtSimStop_32()
Else
Return EgtSimStop_64()
End If
End Function
'---------- Scene --------------------------------------------------------------
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtInitScene")>
+2 -2
View File
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
' utilizzando l'asterisco (*) come descritto di seguito:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.6.10.1")>
<Assembly: AssemblyFileVersion("1.6.10.1")>
<Assembly: AssemblyVersion("1.6.10.2")>
<Assembly: AssemblyFileVersion("1.6.10.2")>