Code: Select all
Option Compare Database
Option Explicit
Private Declare PtrSafe Function GV_GetNamedBool Lib "C:\GlobalVariable_64bit.dll" _
(ByVal intOther As Boolean, ByVal strElementLoc As String) As Boolean
Private Declare PtrSafe Function GV_SetNamedBool Lib "C:\GlobalVariable_64bit.dll" _
(ByVal strElementLoc As String, ByVal intSetValue As Boolean) As Long
Private Declare PtrSafe Function GV_GetNamedDouble Lib "C:\GlobalVariable_64bit.dll" _
(ByVal strElementLoc As String, ByVal intOther As Double) As Double
Private Declare PtrSafe Function GV_SetNamedDouble Lib "C:\GlobalVariable_64bit.dll" _
(ByVal strElementLoc As String, ByVal intSetValue As Double) As Long
Private Declare PtrSafe Function GV_GetNamedInt Lib "C:\GlobalVariable_64bit.dll" _
(ByVal strElementLoc As String, ByVal intOther As Single) As Long
Private Declare PtrSafe Function GV_SetNamedInt Lib "C:\GlobalVariable_64bit.dll" _
(ByVal strElementLoc As String, ByVal intSetValue As Long) As Long
Private Declare PtrSafe Function GV_GetNamedFloat Lib "C:\GlobalVariable_64bit.dll" _
(ByVal strElementLoc As String, ByVal intOther As Single) As Single
Private Declare PtrSafe Function GV_SetNamedFloat Lib "C:\GlobalVariable_64bit.dll" _
(ByVal strElementLoc As String, ByVal intSetValue As Single) As Long
Private Declare PtrSafe Function GV_GetNamedString Lib "C:\GlobalVariable_64bit.dll" _
(ByVal strElementLoc As String, ByVal strOther As String) As String
Private Declare PtrSafe Function GV_SetNamedString Lib "C:\GlobalVariable_64bit.dll" _
(ByVal strElementLoc As String, ByVal intSetValue As String) As Long
'=========================================================================================
'START: Booleans
Public Function A_GV_GetNamedBool64(strName As String, blnErrorCode As Boolean) As Boolean
A_GV_GetNamedBool64 = GV_GetNamedBool(blnErrorCode, strName)
End Function
Public Function A_GV_SetNamedBool64(strName As String, dblGVvalue As Boolean) As Long
A_GV_SetNamedBool64 = GV_SetNamedBool(strName, dblGVvalue)
End Function
'=========================================================================================
'START: Doubles
Public Function A_GV_GetNamedDouble64(strName As String, lngErrorCode As Long) As Double
A_GV_GetNamedDouble64 = GV_GetNamedDouble(strName, lngErrorCode)
End Function
Public Function A_GV_SetNamedDouble64(strName As String, dblGVvalue As Double) As Long
A_GV_SetNamedDouble64 = GV_SetNamedDouble(strName, dblGVvalue)
End Function
'=====================================================================================
'START: Integers
Public Function A_GV_GetNamedInt64(strName As String, lngErrorCode As Long) As Long
A_GV_GetNamedInt64 = GV_GetNamedInt(strName, lngErrorCode)
End Function
Public Function A_GV_SetNamedInt64(strName As String, lngGVvalue As Long) As Long
A_GV_SetNamedInt64 = GV_SetNamedInt(strName, lngGVvalue)
End Function
'=========================================================================================
'START: Floats
Public Function A_GV_GetNamedFloat64(strName As String, lngErrorCode As Long) As Single
A_GV_GetNamedFloat64 = GV_GetNamedFloat(strName, lngErrorCode)
End Function
Public Function A_GV_SetNamedFloat64(strName As String, sngGVvalue As Single) As Long
A_GV_SetNamedFloat64 = GV_SetNamedFloat(strName, sngGVvalue)
End Function
'===========================================================================================
'START: Strings
Public Function A_GV_GetNamedString64(strName As String, strErrorCode As String) As String
A_GV_GetNamedString64 = GV_GetNamedString(strName, strErrorCode)
End Function
Public Function A_GV_SetNamedString64(strName As String, strGVvalue As Variant) As Long
A_GV_SetNamedString64 = GV_SetNamedString(strName, strGVvalue)
End Function