SetSymbolValues 子程序示例

在此示例中，我们传递了两个符号以及其对应替换字符串。

SetSymbolValues

Private Sub Oval1_Click()

Dim t(1, 1) As String

t(0, 0) = "AC" 'Symbol to substitute

t(0, 1) = "AIRCONDITIONER2" ‘Actual substitution string

t(1, 0) = "TEST" ‘Symbol to substitute

t(1, 1) = "Fix32.FXPR.AIRCONDITIONER2>MOTOR>TEMP.F_CV" ‘Actual substitution string

Me.SetSymbolValues (t)

End Sub