MATLAB BUILDER EX 1 Podręcznik Użytkownika Pobierz pdf (Strona 52)

3 Programming with Excel Builder Components

3-18

Sub foo(y1 As Variant, y2 As Variant)

Dim aClass As mycomponent.myclass

Dim ytemp As MWArg

Dim today As Date

On Error Goto Handle_Error

today = Now

Set aClass = New mycomponent.myclass

Set y1 = New MWArg

y1.MWFlags.DataConversionFlags.OutputAsDate = True

Call aClass.foo(2, ytemp, y2, today)

y1 = ytemp.Value

Exit Sub

Handle_Error:

MsgBox(Err.Description)

End Sub

Sub foo(y1 As Variant, y2 As Variant)

Dim aClass As mycomponent.myclass

Dim ytemp As MWArg

Dim today As Date

On Error Goto Handle_Error

today = Now

Set aClass = New mycomponent.myclass

Set y1 = New MWArg

y1.MWFlags.DataConversionFlags.OutputAsDate = True

Call aClass.foo(2, ytemp, y2, today)

y1 = ytemp

Exit Sub

Handle_Error:

MsgBox(Err.Description)

End Sub

1 2 ... 47 48 49 50 51 52 53 54 55 56 57 ... 181 182

Komentarze do niniejszej Instrukcji

Brak uwag