Changeset 200 for Include/com/variant.ab

Timestamp:

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

Author:

イグトランス (egtra)

Message:

Currencyにメンバを追加

File:

• Include/com/variant.ab (modified) (5 diffs)

Include/com/variant.ab

@@ -6 +6 @@
 #require <oaidl.ab>
 #require <oleauto.ab>
-#require <com/bstring.ab>
-#include <com/vbobject.ab>
+#require <com/index.ab>
 
 Class Variant
@@ -111 +110 @@
     End Sub
 
+    Sub Variant(n As Currency)
+        v.vt = VT_CY
+        SetQWord(VarPtr(v.val), n.Cy As QWord)
+    End Sub
+
+
     Sub ~Variant()
         Clear()
@@ -504 +509 @@
     End Sub
 
-    'ValCy
-
+    Const Function ValCy() As Currency
+    End Function
+
+    Sub ValCy(x As Currency)
+    End Sub
+    
     'ValDate
 
@@ -557 +566 @@
     End Function
 
+    Static Function OptionalParam() As Variant
+'       If _System_VariantOptionalParam = Nothing Then
+'           'ToDo マルチスレッド対応
+            _System_VariantOptionalParam = New Variant
+            _System_VariantOptionalParam.ValError = DISP_E_PARAMNOTFOUND
+'       End If
+        Return _System_VariantOptionalParam
+    End Function
 Private
     v As VARIANT
@@ -570 +587 @@
     End Sub
 End Class
+
+Dim _System_VariantOptionalParam = Nothing As Variant
+
 /*
 Function Abs(v As Variant) As Variant