查看: 616  |  回复: 0
  VB6 利用API 用CopyMemory交换变量
楼主
发表于 2023年6月14日 15:55

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()
    Dim strA As String, strB As String
    strA = "a"
    strB = "Hello 码农库MaNongKu.com"
    CopyMemory strA, strB, 4
    MsgBox "strA=" & strA & vbCrLf & "strB=" & strB
    
    Dim lngA As Long, lngB As Long
    lngA = 1
    lngB = 1234567890
    CopyMemory lngA, lngB, 4
    MsgBox "lngA=" & lngA & vbCrLf & "lngB=" & lngB
End Sub

下表总结了几种常见的传参数给CopyMemory的形式:

111.jpg

您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com