示例

以下示例展示了如何使用 GetText 方法。

Dim autECLPSObj as Object
Dim TextStr as String
 
' Initialize the connection
Set autECLPSObj = CreateObject("ZIEWin.autECLPS")
autECLPSObj.SetConnectionByName("A")
 
autECLPSObj.autECLFieldList.Refresh()
TextStr = autECLPSObj.autECLFieldList(1).GetText()