Changeset 200 for Include/com/vbobject.ab

Timestamp:

Apr 2, 2007, 11:55:39 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Currencyにメンバを追加

File:

• Include/com/vbobject.ab (modified) (2 diffs)

Include/com/vbobject.ab

@@ -34 +34 @@
         pdisp = obj.pdisp
         pdisp->AddRef()
-    End Sub
-
-    Sub Operator =(ByRef obj As VBObject)
-        ~VBObject()
-        VBObject(obj)
     End Sub
 
@@ -206 +201 @@
     End Function
 
-    Function Call(arg1 As Variant) As Variant
-        Return Call(1, arg1.PtrToVariant)
-    End Function
-
-    Function Call(ByRef arg1 As Variant, ByRef arg2 As Variant) As Variant
-        Dim arg[1] As VARIANT
-
-        Return Call(2, VarPtr(arg1) As *VARIANT)
-    End Function
-
+    Function Call(arg0 As Variant) As Variant
+        Return Call(1, arg0.PtrToVariant)
+    End Function
+
+    Function Call(arg0 As Variant, arg1 As Variant) As Variant
+        Dim arg[ELM(2)] As VARIANT
+        arg[0] = arg0.Copy()
+        arg[1] = arg1.Copy()
+        Return Call(2, arg)
+    End Function
+
+    Function Call(arg0 As Variant, arg1 As Variant, arg2 As Variant) As Variant
+        Dim arg[ELM(3)] As VARIANT
+        arg[0] = arg0.Copy()
+        arg[1] = arg1.Copy()
+        arg[2] = arg2.Copy()
+        Return Call(3, arg)
+    End Function
+
+    Function Call(arg0 As Variant, arg1 As Variant, arg2 As Variant, arg3 As Variant) As Variant
+        Dim arg[ELM(4)] As VARIANT
+        arg[0] = arg0.Copy()
+        arg[1] = arg1.Copy()
+        arg[2] = arg2.Copy()
+        arg[3] = arg3.Copy()
+        Return Call(4, arg)
+    End Function
+
+/*
+    Function Call(arg0 = Variant.OptionalParam As Variant, arg1 = Variant.OptionalParam As Variant,
+        arg2 = Variant.OptionalParam As Variant, arg3 = Variant.OptionalParam As Variant,
+        arg4 = Variant.OptionalParam As Variant, arg5 = Variant.OptionalParam As Variant,
+        arg6 = Variant.OptionalParam As Variant, arg7 = Variant.OptionalParam As Variant,
+        arg8 = Variant.OptionalParam As Variant, arg9 = Variant.OptionalParam As Variant) As Variant
+        Dim arg[ELM(10)] As VARIANT
+        arg[0] = arg0.Copy()
+        arg[1] = arg1.Copy()
+        arg[2] = arg2.Copy()
+        arg[3] = arg3.Copy()
+        arg[4] = arg3.Copy()
+        arg[5] = arg4.Copy()
+        arg[6] = arg5.Copy()
+        arg[7] = arg6.Copy()
+        arg[8] = arg7.Copy()
+        arg[9] = arg8.Copy()
+        Return Call(10, arg)
+    End Function
+*/
 Private
     Sub setProp(ByRef arg As VARIANT, callType As Word)