Teledyne-lecroy SAS_SATA Automation API manual Manual de usuario descargar pdf (Pagina 140)

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

Else

ThisWorkbook.Sheets("Sheet1").Cells(LineIndex, 2)

= eventBody

End If

LineIndex = LineIndex + 1

End Sub

1 2 ... 135 136 137 138 139 140 141 142 143 144 145 ... 149 150

Sin comentarios

Teledyne-lecroy SAS_SATA Automation API manual Manual de usuario Pagina 140