Open_TS_Pic_Type_Ex方法示例
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_Ex(TAGSTATUS, SomeStrings, 1)

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_Ex QUICKTREND, SomeStrings, 1

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_Ex TAGCONTROLPANEL, SomeStrings, 1

End Sub