VB编程:传递指针变量-41_彭世瑜_新浪博客
原创
©著作权归作者所有:来自51CTO博客作者彭世瑜的原创作品,请联系作者获取转载授权,否则将追究法律责任
1、运行效果
2、程序代码
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Dim q As String
Dim p As String
Private Sub Command1_Click()
On Error GoTo 1
jiaohuan p, q
Text1.Text = q
Text2.Text = p
1: End Sub
Private Sub Form_Load()
q = "abcdel"
p = "123456"
Text1.Text = q
Text2.Text = p
End Sub
Private Function jiaohuan(ByRef str1 As String, ByRef str2 As String)
Dim p
CopyMemory ByVal VarPtr(p), ByVal VarPtr(str2), 4
CopyMemory ByVal VarPtr(str2), ByVal VarPtr(str1), 4
CopyMemory ByVal VarPtr(str1), ByVal VarPtr(p), 4
End Function
下一篇:VB编程:申明窗体数组-40
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
51c大模型~合集41大模型
-
VB编程:利用Object变量传递参数-21_彭世瑜_新浪博客
运行效果:程序代码:Private Sub Command1_Click() Dim i As Object Set i = Text1 i.Text = "传递参数"End Sub
python js javascript linux java -
Python编程:Django搭建博客_彭世瑜_新浪博客
Django 数据库db.sqlite3 可以使用轻量级数据库SQLite Expert Personal管理
python django mysql sqlite 数据库