TestEIn 1.6j2 :
- aggiornata interfaccia.
This commit is contained in:
@@ -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")>
|
||||
|
||||
@@ -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")>
|
||||
|
||||
Reference in New Issue
Block a user