Read a byte, integer or long from memory

最新推荐文章于 2023-12-22 02:23:09 发布

shuwork

最新推荐文章于 2023-12-22 02:23:09 发布

阅读量564

点赞数

分类专栏：代码收藏文章标签： integer byte function vb date

本文链接：https://blog.csdn.net/shuwork/article/details/15424

版权

代码收藏专栏收录该内容

2 篇文章 0 订阅

订阅专栏

Date: 6/17/2000
Versions: VB4/32 VB5 VB6 Level: Intermediate
Author: The VB2TheMax Team

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
    Any, source As Any, ByVal bytes As Long)

' read a byte from memory

Function PeekB(ByVal address As Long) As Byte
    CopyMemory PeekB, ByVal address, 1
End Function

' read an integer from memory

Function PeekI(ByVal address As Long) As Integer
    CopyMemory PeekI, ByVal address, 2
End Function

' read a Long value from memory

Function PeekL(ByVal address As Long) As Long
    CopyMemory PeekL, ByVal address, 4
End Function