Open_TS_Pic_Type方法示例
2015-12-15 22:24:27   来源：   评论：0 点击：

下列示例打开标签状态画面TAGSTATUS，并在按下按钮时显示AI、AO和DI标签列表。

Private Sub Button_OpenTSPicType_TagStatus_Click()

    Dim SomeStrings(2) As String

    Dim OpenedPic As Object

    SomeStrings(0) = "FIX32.THISNODE.AI.A_NAME"

    SomeStrings(1) = "FIX32.THISNODE.AO.A_NAME"

    SomeStrings(2) = "FIX32.THISNODE.DI.A_NAME"

    Set OpenedPic = Me.Open_TS_Pic_Type(TAGSTATUS, SomeStrings)

End Sub

下列示例在当前画面中打开快速趋势画面QUICKTREND，并在按下按钮时显示AI、AO和DI标签列表。

Private Sub Button_OpenTSPicType_QT_Click()

    Dim SomeStrings(2) As String

    SomeStrings(0) = "FIX32.THISNODE.AI.A_NAME"

    SomeStrings(1) = "FIX32.THISNODE.AO.A_NAME"

    SomeStrings(2) = "FIX32.THISNODE.DI.A_NAME"

    Me.Open_TS_Pic_Type QUICKTREND, SomeStrings

End Sub

下列示例在当前画面中打开标签控制面板画面TAGCONTROLPANEL，并在按下按钮时显示AI、AO和DI标签列表。

Private Sub Button_OpenTSPicType_TCP_Click()

    Dim SomeStrings(2) As String

    SomeStrings(0) = "FIX32.THISNODE.AI.A_NAME"

    SomeStrings(1) = "FIX32.THISNODE.AO.A_NAME"

    SomeStrings(2) = "FIX32.THISNODE.DI.A_NAME"

    Me.Open_TS_Pic_Type TAGCONTROLPANEL, SomeStrings

End Sub