The collection of names of all the binarystorage in this object
VB: Property Get BinaryStorageNames As Object
C++: _variant_t BinaryStorageNames
C#: var BinaryStorageNames
Sub BinaryStorageName() Dim app As Origin.IOApplication Dim ly As Origin.Layer app = New Origin.ApplicationSI If app.ActivePage Is Nothing Then MsgBox("Can not access any page in current project") Exit Sub End If ly = app.ActivePage.Layers(-1) 'get active layer of active page Dim dValue As String Dim sValue As String dValue = 3.1415 sValue = "Welcome to Origin" Try ly.SetBinaryStorageData("myData1", dValue) 'set binarystorage data ly.SetBinaryStorageData("myData2", sValue) Catch ex As Exception MsgBox("Fail to set binarystorage data") End Try Dim names As Object names = ly.BinaryStorageNames MsgBox(names(1).ToString()) 'out put the second storage name End Sub
8.0SR2