Teledyne-lecroy SAS_SATA Tracer_Trainer Automation API Manual Manuel d'utilisateur télécharger pdf (Page 88)

LeCroy Corporation Automation API for SAS/SATATracer/Trainer Manual Version 1.11

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 ... 83 84 85 86 87 88 89 90 91 92 93 94

Pas de commentaire

Teledyne-lecroy SAS_SATA Tracer_Trainer Automation API Manual Manuel d'utilisateur Page 88