ESignature 对象示例

要使用 VBA 中的 ESignature 对象，请声明一个对象变量，并通过调用 CreateObject( ) 来创建该对象。然后，可以通过对象变量来访问 ESignature 对象的方法。

以下示例代码演示了如何使用 VBA 应用程序中的 ESignature 对象。

Dim ESig As Object

Dim bNodeSignEnabled As Boolean

Dim bSigRequired As Boolean

Dim Value as Variant

'创建 ESignature 对象

Set ESig = CreateObject ("ElectronicSignature.ESignature")

'检查节点是否启用了电子签名

ESig.IsNodeSignEnabled bNodeSignEnabled

If bNodeSignEnabled = True Then

'检查数据源是否需要电子签名

ESig.Initialize ("Fix32.THISNODE.DO1.F_CV")

ESig.IsSignatureRequired 0, bSigRequired

If bSigRequired = True Then

'捕获签名并写入新值

Value = 1

ESig.GetSignatureAndWriteValue 0, Value

Else

'此数据源不需要签名，请直接写入值

End If

Else

'未在此节点上启用签名，请直接写入值

End If