Teledyne LeCroy SAS_SATA Automation API manual User Manual
Page 140
Advertising
Teledyne LeCroy
SASVScriptEngine Object Events
134
Automation API for Teledyne LeCroy SAS/SATA Protocol Suite
VBA (MS Excel):
Public WithEvents VSEEvents As VScriptEngine
. . .
Private Sub VSEEvents_OnNotifyClient( ByVal eventId As
Long,
ByVal eventBody As Variant,
ByVal Tag As Long )
Dim Col As Integer
Dim Item As Variant
ThisWorkbook.Sheets("Sheet1").Cells(LineIndex, 1) =
eventId
If IsArray(eventBody) Then
Col = 3
For Each Item In eventBody
ThisWorkbook.Sheets("Sheet1").Cells(LineIndex,
Col) = Item
Col = Col + 1
Next
Else
ThisWorkbook.Sheets("Sheet1").Cells(LineIndex, 2)
= eventBody
End If
LineIndex = LineIndex + 1
End Sub
Advertising