Sub Class_Globals
Private fx As JFX
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
End Sub
'======================================================================================
public Sub intToHex(i As Int, Prefix As String) As String
Dim bc As ByteConverter
Dim iArray(1) As Int
iArray(0) = i
Dim remBytes(4) As Byte = bc.IntsToBytes(iArray)
Return Prefix & bc.HexFromBytes(remBytes)
End Sub
'======================================================================================
public Sub longToHex(i As Long, Prefix As String) As String
Dim bc As ByteConverter
Dim iArray(1) As Int
iArray(0) = i
Dim remBytes(8) As Byte = bc.IntsToBytes(iArray)
Return Prefix & bc.HexFromBytes(remBytes)
End Sub
'====================================== EOF ===========================================