Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
调用示例: Option Explicit Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub Command1_Click() Dim strDest(10) As Byte Dim strSource(20) As Byte Dim i As Integer Dim strTemp As String
For i = 0 To 20 strSource(i) = i Next
CopyMemory strDest(0), strSource(0), 10
For i = 0 To 10 strTemp = strTemp & strDest(i) Next MsgBox strTemp End Sub
Open 文件 For Input As #1 S = StrConv(InputB(LOF(1), #1), vbUnicode) Close #1
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub Command1_Click()
Dim strDest(10) As Byte
Dim strSource(20) As Byte
Dim i As Integer
Dim strTemp As String
For i = 0 To 20
strSource(i) = i
Next
CopyMemory strDest(0), strSource(0), 10
For i = 0 To 10
strTemp = strTemp & strDest(i)
Next
MsgBox strTemp
End Sub
S = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
其实也没多少,也就几十行了。
放在资源中可以???如果是放在文件中,那就没有起到蕴藏的目的了。
还有什么好方法啊。各位。