关于vb6.0的Variant结构体

Ayala

1. Private Declare Sub memcpy Lib "kernel32" Alias "RtlMoveMemory" (ByVal dst As Long, ByVal src As Long, ByVal cBytes As Long)
   
2. 
   
3. 
   
4. Private Type mVar
   
5.     ty  As Integer '数据类型
   
6.     tyl As Integer '数据类型子类型
   
7.     tt  As Long    '备用 储存dec类型高32位
   
8.     lo  As Long    '数据
   
9.     hi  As Long
   
10. End Type
    
11. 
    
12. 
    
13. Private Sub Form_Load()
    
14. 
    
15.     Dim ss As String
    
16.     Dim aa As Variant
    
17.     Dim bb As mVar
    
18.    
    
19.     aa = 5
    
20.     memcpy VarPtr(bb.ty), VarPtr(aa), 16
    
21.     bb.lo = 333
    
22.     memcpy VarPtr(aa), VarPtr(bb.ty), 16
    
23.     MsgBox aa
    
24. 
    
25. End Sub
    

复制代码

0xAA55

原来如此，了解了

Ayala

0xAA55 发表于 2019-8-30 03:25
原来如此，了解了

研究下每种类型以及子类型代表什么 虽然以前就知道这结构 但是一直没去解析 也没查到完整的资料

系统消息

0xAA55 发表于 2019-8-30 03:25
原来如此，了解了

纳尼，A5大神居然现在才了解？我不是记得你以前在群里讨论过这个结构吗

0xAA55

系统消息 发表于 2019-8-30 20:03
纳尼，A5大神居然现在才了解？我不是记得你以前在群里讨论过这个结构吗

你记错了，我讨论的是SAFEARRAY

Ayala

0xAA55 发表于 2019-8-31 06:25
你记错了，我讨论的是SAFEARRAY

https://docs.microsoft.com/en-us ... dl/ns-oaidl-variant
找到微软官方的了

1. typedef struct tagVARIANT {
   
2.   union {
   
3.     struct {
   
4.       VARTYPE vt;
   
5.       WORD    wReserved1;
   
6.       WORD    wReserved2;
   
7.       WORD    wReserved3;
   
8.       union {
   
9.         LONGLONG     llVal;
   
10.         LONG         lVal;
    
11.         BYTE         bVal;
    
12.         SHORT        iVal;
    
13.         FLOAT        fltVal;
    
14.         DOUBLE       dblVal;
    
15.         VARIANT_BOOL boolVal;
    
16.         VARIANT_BOOL __OBSOLETE__VARIANT_BOOL;
    
17.         SCODE        scode;
    
18.         CY           cyVal;
    
19.         DATE         date;
    
20.         BSTR         bstrVal;
    
21.         IUnknown     *punkVal;
    
22.         IDispatch    *pdispVal;
    
23.         SAFEARRAY    *parray;
    
24.         BYTE         *pbVal;
    
25.         SHORT        *piVal;
    
26.         LONG         *plVal;
    
27.         LONGLONG     *pllVal;
    
28.         FLOAT        *pfltVal;
    
29.         DOUBLE       *pdblVal;
    
30.         VARIANT_BOOL *pboolVal;
    
31.         VARIANT_BOOL *__OBSOLETE__VARIANT_PBOOL;
    
32.         SCODE        *pscode;
    
33.         CY           *pcyVal;
    
34.         DATE         *pdate;
    
35.         BSTR         *pbstrVal;
    
36.         IUnknown     **ppunkVal;
    
37.         IDispatch    **ppdispVal;
    
38.         SAFEARRAY    **pparray;
    
39.         VARIANT      *pvarVal;
    
40.         PVOID        byref;
    
41.         CHAR         cVal;
    
42.         USHORT       uiVal;
    
43.         ULONG        ulVal;
    
44.         ULONGLONG    ullVal;
    
45.         INT          intVal;
    
46.         UINT         uintVal;
    
47.         DECIMAL      *pdecVal;
    
48.         CHAR         *pcVal;
    
49.         USHORT       *puiVal;
    
50.         ULONG        *pulVal;
    
51.         ULONGLONG    *pullVal;
    
52.         INT          *pintVal;
    
53.         UINT         *puintVal;
    
54.         struct {
    
55.           PVOID       pvRecord;
    
56.           IRecordInfo *pRecInfo;
    
57.         } __VARIANT_NAME_4;
    
58.       } __VARIANT_NAME_3;
    
59.     } __VARIANT_NAME_2;
    
60.     DECIMAL decVal;
    
61.   } __VARIANT_NAME_1;
    
62. } VARIANT;

复制代码

https://docs.microsoft.com/en-us ... 4-9d14-5425d3f5461f

1. typedef  enum tagVARENUM
   
2. {
   
3.    VT_EMPTY = 0x0000,
   
4.    VT_NULL = 0x0001,
   
5.    VT_I2 = 0x0002,
   
6.    VT_I4 = 0x0003,
   
7.    VT_R4 = 0x0004,
   
8.    VT_R8 = 0x0005,
   
9.    VT_CY = 0x0006,
   
10.    VT_DATE = 0x0007,
    
11.    VT_BSTR = 0x0008,
    
12.    VT_DISPATCH = 0x0009,
    
13.    VT_ERROR = 0x000A,
    
14.    VT_BOOL = 0x000B,
    
15.    VT_VARIANT = 0x000C,
    
16.    VT_UNKNOWN = 0x000D,
    
17.    VT_DECIMAL = 0x000E,
    
18.    VT_I1 = 0x0010,
    
19.    VT_UI1 = 0x0011,
    
20.    VT_UI2 = 0x0012,
    
21.    VT_UI4 = 0x0013,
    
22.    VT_I8 = 0x0014,
    
23.    VT_UI8 = 0x0015,
    
24.    VT_INT = 0x0016,
    
25.    VT_UINT = 0x0017,
    
26.    VT_VOID = 0x0018,
    
27.    VT_HRESULT = 0x0019,
    
28.    VT_PTR = 0x001A,
    
29.    VT_SAFEARRAY = 0x001B,
    
30.    VT_CARRAY = 0x001C,
    
31.    VT_USERDEFINED = 0x001D,
    
32.    VT_LPSTR = 0x001E,
    
33.    VT_LPWSTR = 0x001F,
    
34.    VT_RECORD = 0x0024,
    
35.    VT_INT_PTR = 0x0025,
    
36.    VT_UINT_PTR = 0x0026,
    
37.    VT_ARRAY = 0x2000,
    
38.    VT_BYREF = 0x4000
    
39. } VARENUM;

复制代码

https://docs.microsoft.com/en-us ... d/vartype-constants

1. Constant        Value        Description
   
2. vbEmpty        0        Uninitialized (default)
   
3. vbNull        1        Contains no valid data
   
4. vbInteger        2        Integer
   
5. vbLong        3        Long integer
   
6. vbSingle        4        Single-precision floating-point number
   
7. vbDouble        5        Double-precision floating-point number
   
8. vbCurrency        6        Currency
   
9. vbDate        7        Date
   
10. vbString        8        String
    
11. vbObject        9        Object
    
12. vbError        10        Error
    
13. vbBoolean        11        Boolean
    
14. vbVariant        12        Variant (used only for arrays of variants)
    
15. vbDataObject        13        Data access object
    
16. vbDecimal        14        Decimal
    
17. vbByte        17        Byte
    
18. vbLongLong        20        LongLong integer (valid on 64-bit platforms only)
    
19. vbUserDefinedType        36        Variants that contain user-defined types
    
20. vbArray        8192        Array

复制代码

0xAA55

Ayala 发表于 2022-5-24 22:30
https://docs.microsoft.com/en-us/windows/win32/api/oaidl/ns-oaidl-variant
找到微软官方的了

这几个东西在 MSVC 的头文件里有。