ScriptBasic_Control/CVariable.cls at master · bihai/ScriptBasic_Control · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CVariable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public isGlobal As Boolean
Private m_name As String
Private m_value As Variant
Public varType As String
Public Index As Long 'for arrays this is array index, for local variables this is its offset it local var table..
Public pAryElement As Long

Property Let name(v As String)
    m_name = Replace(v, "main::", Empty)
End Property

Property Get name() As String
    name = m_name
End Property

Property Let Value(v As String)
    If Left(v, 5) = "ARRAY" And InStr(v, "@ 0x") > 0 Then
        tmp = Split(v, "@ 0x")
        m_value = tmp(0)
        pAryElement = CLng("&h" & tmp(1))
    Else
        m_value = v
    End If
End Property

Property Get Value() As String
    Value = m_value
End Property