VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CStringValue"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' *********************************************************************
'* CLASS Oggetto che rappresenta un valore di tipo Stringa
'* <BR/>Autore: <B>Giorgio Bernardi</B>
'* E-Mail: <A HREF="mailto:giorgio.bernardi@studio.unibo.it">Giorgio.Bernardi@studio.unibo.it</A>
'* Data  : Settembre 2004
'* <DIV CLASS="ClassDescription">
'*  In fase di costruzione viene impostata la stringa vuota <I>vbNullString</I>
'* </DIV>
' *********************************************************************
Option Explicit
Implements CValue

'* Valore memorizzato
Private mValue   As String

'* Restituisce la rappresentazione in forma di stringa del valore memorizzato
Public Function getActualValueToString() As String
    getActualValueToString = CStr(getValue())
End Function

'* Setta il valore memorizzato dalla rappresentazione in forma di stringa
Public Function setActualValueFromString(newValue As String) As Boolean
    setValue newValue
    setActualValueFromString = True
End Function

'* Restituisce il nome del tipo di dato memorizzato
Public Function getType() As String
    getType = "String"
End Function

'* Accesso al valore memorizzato
Public Function getValue() As String
    getValue = mValue
End Function

'* Accesso al valore memorizzato
Public Sub setValue(newValue As String)
    mValue = newValue
End Sub

Private Sub Class_Initialize()
    setValue vbNullString
End Sub

Private Function CValue_getActualValueToString() As String
    CValue_getActualValueToString = getActualValueToString()
End Function

Private Function CValue_getType() As String
    CValue_getType = getType()
End Function

Private Function CValue_setActualValueFromString(newValue As String) As Boolean
    CValue_setActualValueFromString = setActualValueFromString(newValue)
End Function

Private Function CValue_toVariant() As Variant
    CValue_toVariant = toVariant()
End Function

'* Funzione presente in Visual Basic per trasformare il valore memorizzato in Variant
Public Function toVariant() As Variant
    toVariant = mValue
End Function