技术宅的压博体育下载

 找回密码
 压博体育下载

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 335|回复: 4
打印 上一主题 下一主题
收起左侧

关于vb6.0的Variant结构体

[复制链接]

26

主题

114

帖子

1618

积分

用户组: 版主

UID
1821
精华
6
威望
67 点
宅币
1291 个
贡献
49 次
宅之契约
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

主题

2341

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
217
威望
294 点
宅币
18305 个
贡献
37268 次
宅之契约
0 份
在线时间
1745 小时
注册时间
2014-1-26
沙发
发表于 2019-8-30 03:25:57 | 只看该作者
原来如此,了解了

26

主题

114

帖子

1618

积分

用户组: 版主

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

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

3

主题

22

帖子

310

积分

用户组: 中·技术宅

UID
4293
精华
3
威望
11 点
宅币
200 个
贡献
51 次
宅之契约
0 份
在线时间
23 小时
注册时间
2018-9-19
地板
发表于 2019-8-30 20:03:21 | 只看该作者
0xAA55 发表于 2019-8-30 03:25
原来如此,了解了

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

1044

主题

2341

帖子

5万

积分

用户组: 管理员

一只技术宅

UID
1
精华
217
威望
294 点
宅币
18305 个
贡献
37268 次
宅之契约
0 份
在线时间
1745 小时
注册时间
2014-1-26
5#
发表于 2019-8-31 06:25:45 | 只看该作者
系统消息 发表于 2019-8-30 20:03
纳尼,A5大神居然现在才了解?我不是记得你以前在群里讨论过这个结构吗

你记错了,我讨论的是SAFEARRAY
您需要登录后才可以回帖 登录 | 压博体育下载

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的压博体育下载 ( 滇ICP备16008837号|网站地图

GMT+8, 2019-10-28 10:44 , Processed in 0.096496 second(s), 38 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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