| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2300 人关注过本帖
标题:CopyMemory如何在二维数组中使用
只看楼主 加入收藏
孙文
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2016-5-5
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:3 
CopyMemory如何在二维数组中使用
      For j = 0 To 21
          CC(j) = Mid(Trim(Sa(j)), 1, 11)
          Text6(j) = CC(j)
      Next j
      M = 1
      For K = 0 To 21
          For L = 0 To 3
              HoustDataByte(K, L) = CByte(Val("&H" & (Mid(CC(K), M, 2))))  '截取有效字符转换成字节数
              M = M + 3
          Next L
          M = 1
          CopyMemory HoustData(K), HoustDataByte(K, 0), 4  '问题行,二维数组中如何使用CopyMemory
          Text9(K).Text = Format(HoustData(K), "0.00")
       Next K
2017-01-04 01:59
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:14 
没用过。
CopyMemory 要求的是传地址,你显式写取地址函数试试,当然定义里要改成传值。

未测试过,有可能导致VB6非法关闭。

授人于鱼,不如授人于渔
早已停用QQ了
2017-01-04 11:19
孙文
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2016-5-5
收藏
得分:0 
回复 楼主 孙文
好的,试试!如有问题再请教您!
2017-01-04 12:33
孙文
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2016-5-5
收藏
得分:0 
回复 2楼 风吹过b
如何传法,能给个案例吗?
2017-01-04 12:36
快速回复:CopyMemory如何在二维数组中使用
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016082 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved