TestEIn 1.6r3 :

- aggiornamento.
This commit is contained in:
Dario Sassi
2016-05-17 12:02:11 +00:00
parent d99fa816ac
commit 3e8d8c93c4
2 changed files with 7 additions and 7 deletions
+5 -5
View File
@@ -6127,16 +6127,16 @@ Public Function EgtAddPhase() As Integer
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetCurrPhase")>
Private Function EgtSetCurrPhase_32(nPhase As Integer) As Boolean
Private Function EgtSetCurrPhase_32(nPhase As Integer, bForced As Boolean) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSetCurrPhase")>
Private Function EgtSetCurrPhase_64(nPhase As Integer) As Boolean
Private Function EgtSetCurrPhase_64(nPhase As Integer, bForced As Boolean) As Boolean
End Function
Public Function EgtSetCurrPhase(nPhase As Integer) As Boolean
Public Function EgtSetCurrPhase(nPhase As Integer, Optional bForced As Boolean = False) As Boolean
If IntPtr.Size = 4 Then
Return EgtSetCurrPhase_32(nPhase)
Return EgtSetCurrPhase_32(nPhase, bForced)
Else
Return EgtSetCurrPhase_64(nPhase)
Return EgtSetCurrPhase_64(nPhase, bForced)
End If
End Function
+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.18.1")>
<Assembly: AssemblyFileVersion("1.6.18.1")>
<Assembly: AssemblyVersion("1.6.18.3")>
<Assembly: AssemblyFileVersion("1.6.18.3")>