技术宅的结界

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

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 480|回复: 4
收起左侧

关于vb6.0的Variant结构体

[复制链接]

26

主题

114

帖子

1620

积分

用户组: 版主

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

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

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

x
[Visual Basic] 纯文本查看 复制代码
Private Declare Sub memcpy Lib "kernel32" Alias "RtlMoveMemory" (ByVal dst As Long, ByVal src As Long, ByVal cBytes As Long)


Private Type mVar
    ty  As Integer '数据类型
    tyl As Integer '数据类型子类型
    tt  As Long    '备用 储存dec类型高32位
    lo  As Long    '数据 
    hi  As Long
End Type


Private Sub Form_Load()

    Dim ss As String
    Dim aa As Variant
    Dim bb As mVar
    
    aa = 5
    memcpy VarPtr(bb.ty), VarPtr(aa), 16
    bb.lo = 333
    memcpy VarPtr(aa), VarPtr(bb.ty), 16
    MsgBox aa

End Sub

评分

参与人数 1威望 +10 宅币 +10 贡献 +5 收起 理由
0xAA55 + 10 + 10 + 5 屌!

查看全部评分

本帖被以下淘专辑推荐:

1044

主题

2345

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
218
威望
294 点
宅币
18326 个
贡献
37543 次
宅之契约
0 份
在线时间
1749 小时
注册时间
2014-1-26
发表于 2019-8-30 03:25:57 | 显示全部楼层
原来如此,了解了

26

主题

114

帖子

1620

积分

用户组: 版主

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

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

3

主题

31

帖子

368

积分

用户组: 中·技术宅

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

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

1044

主题

2345

帖子

5万

积分

用户组: 管理员

一只技术宅

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

你记错了,我讨论的是SAFEARRAY

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号|网站地图

GMT+8, 2019-11-14 17:27 , Processed in 0.102618 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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