Changeset 180 for Include

Timestamp:

Mar 26, 2007, 12:47:44 AM (18 years ago)

Author:

森崎 孝明

Message:

[TEST] 一部の DISPPARAMS の設定を C++ のサンプルに合わせる形で修正した。変更箇所は diff をとって確認されたし。

File:

• Include/com/vbobject.ab (modified) (1 diff)

Include/com/vbobject.ab

@@ -172 +172 @@
         Dim dispParams As DISPPARAMS
         With dispParams
-            .rgvarg = 1
-            .rgdispidNamedArgs = 0
-            .cArgs = VarPtr(arg)
-            .cNamedArgs = 0
+            .rgvarg = VarPtr(arg)
+            .rgdispidNamedArgs = 0
+            .cArgs = 1
+            .cNamedArgs = 1
         End With
         Dim ret As VARIANT