Syntax
Public Sub setNote(ByVal Note As String)
Description
To set the note.
Parameters
Parameter |
Description |
Note |
Note as string |
Return value
No return value.
Sample
Public Sub main()
'Variables
Dim _symbolInfo As VTLGeneral.CSymbol=ClientCode.GetSymbolByName("GOLD")
If _symbolInfo is nothing then
GUI.MsgDialog("Symbol not found")
Exit Sub
End If
Dim DB As New VTLGeneral.Database()
Dim RecordCount As Integer
Dim m_Recordset As VTLGeneral.RecordSet
Dim _historyData As object()
Dim Record As Integer
Dim m_Date As VTLGeneral.Field
Dim m_Open As VTLGeneral.Field
Dim m_High As VTLGeneral.Field
Dim m_Low As VTLGeneral.Field
Dim m_Close As VTLGeneral.Field
Dim _recordCount as integer = 100
Dim i As Integer
m_Recordset = DB.CreateRecord
m_Open = New VTLGeneral.Field
m_High = New VTLGeneral.Field
m_Low = New VTLGeneral.Field
m_Close = New VTLGeneral.Field
DB.RecordCount = _recordCount
RecordCount = _recordCount
'Initialize Recordsets
m_Open.initialize(_recordCount, "Open")
m_High.initialize(_recordCount, "High")
m_Low.initialize(_recordCount, "Low")
m_Close.initialize(_recordCount, "Close")
Dim _note As new VTLGeneral.Note
_note.setNote("OpenNote")
m_Open.setvalue(1,1.247)
m_Open.setNote(_note)
GUI.MsgDialog(m_Open. getNote(). getNote())
End Sub
See Also
Back to Note Object Back to VTL Server Script Index
|