Changeset 267 for Include/com


Ignore:
Timestamp:
Jun 2, 2007, 6:53:34 PM (17 years ago)
Author:
イグトランス (egtra)
Message:

COM関係を名前空間に入れた

Location:
Include/com
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • Include/com/bstring.ab

    r226 r267  
    33#require <ole2.ab>
    44#require <oleauto.ab>
     5
     6Namespace ActiveBasic
     7Namespace COM
    58
    69Class BString
     
    141144End Class
    142145
     146End Namespace 'COM
     147End Namespace 'ActiveBasic
  • Include/com/currency.ab

    r211 r267  
    55#ifndef _COM_CURRENCY_AB
    66#define _COM_CURRENCY_AB
     7
     8Namespace ActiveBasic
     9Namespace COM
    710
    811Class Currency
     
    214217End Class
    215218
     219End Namespace 'COM
     220End Namespace 'ActiveBasic
     221
    216222#endif '_COM_CURRENCY_AB
  • Include/com/decimal.ab

    r231 r267  
    44#require <com/variant.ab>
    55#require <com/currency.ab>
     6
     7Namespace ActiveBasic
     8Namespace COM
    69
    710Class Decimal
     
    369372    dec As DECIMAL
    370373End Class
     374
     375End Namespace 'COM
     376End Namespace 'ActiveBasic
  • Include/com/variant.ab

    r211 r267  
    77#require <oleauto.ab>
    88#require <com/index.ab>
     9
     10Namespace ActiveBasic
     11Namespace COM
    912
    1013Class Variant
     
    376379
    377380    Override Function ToString() As String
    378         Dim tmp = ChangeType(VT_BSTR)
     381        Dim tmp = ChangeType(VT_BSTR, VARIANT_ALPHABOOL)
    379382        Dim bs = ((tmp.v.val As ULONG_PTR) As BSTR)
    380383        Return New String(bs As PCWSTR, SysStringLen(bs) As Long)
     
    534537    Const Function ValStr() As BString
    535538        Dim r As VARIANT
    536         ChangeType(r, 0, VT_BSTR)
     539        ChangeType(r, VARIANT_ALPHABOOL, VT_BSTR)
    537540        Dim bs = New BString
    538541        bs.Attach(GetPointer(VarPtr(r.val)) As BSTR)
     
    634637*/
    635638
     639End Namespace 'COM
     640End Namespace 'ActiveBasic
     641
    636642#endif '_COM_VARIANT_AB
  • Include/com/vbobject.ab

    r208 r267  
    55
    66#include <com/variant.ab>
     7
     8Namespace ActiveBasic
     9Namespace COM
    710
    811Class VBObject
     
    366369End Function
    367370
     371End Namespace 'COM
     372End Namespace 'ActiveBasic
     373
    368374#endif '_COM_VBIBJECT_AB
Note: See TracChangeset for help on using the changeset viewer.