Syntax
Public Sub setNote(ByRef NewNote As Note)Description
Thissubprocedure used to set the field’s note.
Parameters
| Parameter | Description |
| NewNote | Field’s note to be set as a value of type Note |
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.setPeriod(3) m_Open.setvalue(1,1.247) m_Open.setNote(_note) GUI.MsgDialog(m_Open. getNote ().getPeriod() ) End Sub See Also