找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 4829|回复: 6

关于vb6.0的Variant结构体

[复制链接]

30

主题

207

回帖

2732

积分

用户组: 版主

UID
1821
精华
7
威望
69 点
宅币
2116 个
贡献
206 次
宅之契约
0 份
在线时间
469 小时
注册时间
2016-7-12
发表于 2019-8-28 20:12:40 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有账号?立即注册→加入我们

×
  1. Private Declare Sub memcpy Lib "kernel32" Alias "RtlMoveMemory" (ByVal dst As Long, ByVal src As Long, ByVal cBytes As Long)


  2. Private Type mVar
  3.     ty  As Integer '数据类型
  4.     tyl As Integer '数据类型子类型
  5.     tt  As Long    '备用 储存dec类型高32位
  6.     lo  As Long    '数据
  7.     hi  As Long
  8. End Type


  9. Private Sub Form_Load()

  10.     Dim ss As String
  11.     Dim aa As Variant
  12.     Dim bb As mVar
  13.    
  14.     aa = 5
  15.     memcpy VarPtr(bb.ty), VarPtr(aa), 16
  16.     bb.lo = 333
  17.     memcpy VarPtr(aa), VarPtr(bb.ty), 16
  18.     MsgBox aa

  19. End Sub
复制代码

本帖被以下淘专辑推荐:

回复

使用道具 举报

1109

主题

1649

回帖

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
244
威望
743 点
宅币
24180 个
贡献
46222 次
宅之契约
0 份
在线时间
2294 小时
注册时间
2014-1-26
发表于 2019-8-30 03:25:57 | 显示全部楼层
原来如此,了解了
回复 赞! 靠!

使用道具 举报

30

主题

207

回帖

2732

积分

用户组: 版主

UID
1821
精华
7
威望
69 点
宅币
2116 个
贡献
206 次
宅之契约
0 份
在线时间
469 小时
注册时间
2016-7-12
 楼主| 发表于 2019-8-30 19:54:31 | 显示全部楼层
0xAA55 发表于 2019-8-30 03:25
原来如此,了解了

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

使用道具 举报

9

主题

172

回帖

1万

积分

用户组: 真·技术宅

UID
4293
精华
6
威望
441 点
宅币
8634 个
贡献
850 次
宅之契约
0 份
在线时间
335 小时
注册时间
2018-9-19
发表于 2019-8-30 20:03:21 | 显示全部楼层
0xAA55 发表于 2019-8-30 03:25
原来如此,了解了

纳尼,A5大神居然现在才了解?我不是记得你以前在群里讨论过这个结构吗
回复 赞! 靠!

使用道具 举报

1109

主题

1649

回帖

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
244
威望
743 点
宅币
24180 个
贡献
46222 次
宅之契约
0 份
在线时间
2294 小时
注册时间
2014-1-26
发表于 2019-8-31 06:25:45 | 显示全部楼层
系统消息 发表于 2019-8-30 20:03
纳尼,A5大神居然现在才了解?我不是记得你以前在群里讨论过这个结构吗

你记错了,我讨论的是SAFEARRAY
回复 赞! 靠!

使用道具 举报

30

主题

207

回帖

2732

积分

用户组: 版主

UID
1821
精华
7
威望
69 点
宅币
2116 个
贡献
206 次
宅之契约
0 份
在线时间
469 小时
注册时间
2016-7-12
 楼主| 发表于 2022-5-24 22:30:15 | 显示全部楼层
本帖最后由 Ayala 于 2022-5-24 23:20 编辑
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
复制代码
回复 赞! 靠!

使用道具 举报

1109

主题

1649

回帖

7万

积分

用户组: 管理员

一只技术宅

UID
1
精华
244
威望
743 点
宅币
24180 个
贡献
46222 次
宅之契约
0 份
在线时间
2294 小时
注册时间
2014-1-26
发表于 2022-5-25 10:39:45 | 显示全部楼层
Ayala 发表于 2022-5-24 22:30
https://docs.microsoft.com/en-us/windows/win32/api/oaidl/ns-oaidl-variant
找到微软官方的了

这几个东西在 MSVC 的头文件里有。
回复 赞! 靠!

使用道具 举报

QQ|Archiver|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2024-3-28 22:16 , Processed in 0.040502 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表