| 1 | Attribute VB_Name = "Tol"
|
|---|
| 2 |
|
|---|
| 3 | Declare Sub TolInit Lib "VBTol.dll" (ByVal addr As Long, ByVal vmode As String, _
|
|---|
| 4 | ByVal initlib As Integer)
|
|---|
| 5 |
|
|---|
| 6 | Declare Function TolEval Lib "VBTol.dll" (ByVal expr As String, ByRef nerror As Integer, _
|
|---|
| 7 | ByRef nwarning As Integer) As Integer
|
|---|
| 8 |
|
|---|
| 9 | Declare Function TolDecompile Lib "VBTol.dll" (ByVal name As String) As Integer
|
|---|
| 10 |
|
|---|
| 11 | Declare Function TolDecompileAll Lib "VBTol.dll" () As Integer
|
|---|
| 12 |
|
|---|
| 13 | Declare Function TolGetText Lib "VBTol.dll" (ByVal lvalue As String, ByRef retvalue As String) As Integer
|
|---|
| 14 |
|
|---|
| 15 | Declare Function TolCreateText Lib "VBTol.dll" (ByVal name As String, ByVal value As String) As Integer
|
|---|
| 16 |
|
|---|
| 17 | Const Known As Integer = 0
|
|---|
| 18 | Const Unknown As Integer = 1
|
|---|
| 19 | Const PosInf As Integer = 2
|
|---|
| 20 | Const NegInf As Integer = 3
|
|---|
| 21 |
|
|---|
| 22 | Type TolReal
|
|---|
| 23 | kind As Integer
|
|---|
| 24 | value As Double
|
|---|
| 25 | End Type
|
|---|
| 26 |
|
|---|
| 27 | Declare Function TolGetReal Lib "VBTol.dll" (ByVal lvalue As String, ByRef retvalue As TolReal) As Integer
|
|---|
| 28 |
|
|---|
| 29 | Declare Function TolCreateReal Lib "VBTol.dll" (ByVal name As String, ByRef value As TolReal) As Integer
|
|---|
| 30 |
|
|---|
| 31 | Type MaskCell
|
|---|
| 32 | row As Long
|
|---|
| 33 | col As Long
|
|---|
| 34 | kind As Integer
|
|---|
| 35 | End Type
|
|---|
| 36 |
|
|---|
| 37 | Declare Function TolGetMatrix Lib "VBTol.dll" (ByVal lvalue As String, ByRef retvalue() As Double, _
|
|---|
| 38 | ByRef retmask() As MaskCell) As Integer
|
|---|
| 39 |
|
|---|
| 40 | Declare Function TolCreateMatrix Lib "VBTol.dll" (ByVal name As String, ByRef value() As Double, _
|
|---|
| 41 | ByRef mask() As MaskCell) As Integer
|
|---|
| 42 |
|
|---|
| 43 | Declare Function TolGetRange Lib "VBTol.dll" (ByVal lvalue As String, _
|
|---|
| 44 | ByVal frow As Long, ByVal lrow As Long, ByVal fcol As Long, ByVal fcol As Long, _
|
|---|
| 45 | ByRef retvalue() As Double, ByRef retmask() As MaskCell) As Integer
|
|---|
| 46 |
|
|---|
| 47 | Declare Function TolGetRow Lib "VBTol.dll" (ByVal lvalue As String, ByVal row As Long, _
|
|---|
| 48 | ByRef retvalue() As Double, ByRef retmask() As MaskCell) As Integer
|
|---|
| 49 |
|
|---|
| 50 | Declare Function TolGetColumn Lib "VBTol.dll" (ByVal lvalue As String, ByVal col As Long, _
|
|---|
| 51 | ByRef retvalue() As Double, ByRef retmask() As MaskCell) As Integer
|
|---|
| 52 |
|
|---|
| 53 | Declare Function TolGetCell Lib "VBTol.dll" (ByVal lvalue As String, ByVal row As Long, ByVal col As Long, _
|
|---|
| 54 | ByRef retvalue As TolReal) As Integer
|
|---|
| 55 |
|
|---|
| 56 | Declare Function TolPutRange Lib "VBTol.dll" (ByVal lvalue As String, ByVal row As Long, ByVal col As Long, _
|
|---|
| 57 | ByRef value() As Double, ByRef mask() As MaskCell) As Integer
|
|---|
| 58 |
|
|---|
| 59 | Declare Function TolPutRow Lib "VBTol.dll" (ByVal lvalue As String, ByVal row As Long, _
|
|---|
| 60 | ByRef value() As Double, ByRef mask() As MaskCell) As Integer
|
|---|
| 61 |
|
|---|
| 62 | Declare Function TolPutColumn Lib "VBTol.dll" (ByVal lvalue As String, ByVal col As Long, _
|
|---|
| 63 | ByRef value() As Double, ByRef mask() As MaskCell) As Integer
|
|---|
| 64 |
|
|---|
| 65 | Declare Function TolPutCell Lib "VBTol.dll" (ByVal lvalue As String, ByVal row As Long, ByVal col As Long, _
|
|---|
| 66 | ByRef value As TolReal) As Integer
|
|---|
