📄 rtlmovememory.bas
字号:
Attribute VB_Name = "Module1"
Option Explicit
Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Sub Main()
Dim L1 As Long, L2 As Long
L1 = &H11223344
RtlMoveMemory L2, L1, 4
MsgBox "L2=" & Hex(L2), vbInformation, "RtlMoveMemory L2, L1, 4"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -