| 如何取得Double值各个Byte的内容 |
|
| 作者：佚名 文章来源：http://www.tech521.com/ 点击数： 本日：{$DayHits} 更新时间：2004-9-26 15:49:34 |
重点在於使用LSet的方式将某个Structure Copy 到另外的Structure
Private Type A_Double
dblValue as Double
End Type
Private type a_ByteAry
ByteVal(0 to 7) as Byte
End Type
Private Sub Form_Load()
Dim dbl As A_Double, i As Long
Dim byteAry As a_ByteAry
dbl.dblValue = 5.1
LSet byteAry = dbl
For i = 0 To 7
Debug.Print byteAry.ByteVal(i)
Next i
End Sub |
| 文章录入：goodidea 责任编辑：goodidea |
|
上一篇文章： VB程序中实现字节移位操作
下一篇文章： 用VB轻松调用其他程序 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
