我想測驗一下使用copymemory 在字串和定長byte陣列之間轉換的功能，見如下程式，看運行時程式崩潰了，請各位大俠指教。
Dim bt(0 To 15) As Byte
Dim strTemp As String
Dim intTemp As Integer
strTemp = "wangxiaofeng"
CopyMemory bt(0), StrConv(strTemp, vbFromUnicode), LenB(StrConv(strTemp, vbFromUnicode))
CopyMemory strTemp, bt, 16
MsgBox strTemp
uj5u.com熱心網友回復：
你的CopyMemory的宣告是怎么宣告的？參閱一下這個
uj5u.com熱心網友回復：
我的函式宣告如下:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
uj5u.com熱心網友回復：
Dim bt(0 To 15) As Byte
Dim strTemp As String
Dim intTemp As Integer
strTemp = "wangxiaofeng"
CopyMemory bt(0), StrConv(strTemp, vbFromUnicode), LenB(StrConv(strTemp, vbFromUnicode))
MsgBox strTemp
uj5u.com熱心網友回復：
這段代碼比我的就少了一行，我的本意是賦值到byte陣列后，又回傳到字串看看，這個程序是否正確。
uj5u.com熱心網友回復：
那也無需CopyMemory：
Option Explicit
Dim strData As String
Dim yTemp() As Byte
Private Sub Command2_Click() 'byte陣列到字串
strData = StrConv(yTemp, vbUnicode)
Text2 = strData
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command1_Click() '字符字符到byte陣列
Dim sTemp As String
'sTemp = "給電子工程師的忠告！！！[1]好好規劃自己的路，不要跟著感覺走！根據個人的理想決策安排，絕大部分人并不指望成為什么院士或教授，而是希望活得滋潤一些，爽一些。那么，就需要慎重安排自己的軌跡。從哪個行業入手，逐漸對該行業深入了解，不要頻繁跳槽，特別是不要為了一點工資而轉移陣地，從長遠看，這點錢根本不算什么，當你對一個行業有那么幾年的體會，以后錢根本不是問題。頻繁地動蕩不是上策，最后你對哪個行業都沒有摸透，永遠是新手！[2]可以做技術，切不可沉湎于技術。千萬不可一門心思鉆研技術！給自己很大壓力，如果你的心思全部放在這上面，那么注定你將成為孔乙己一類的人物！適可而止為之，因為技術只不過是你今后前途的支柱之一，而且還不是最大的支柱，除非你只愿意到老還是個工程師！"
sTemp = "1234567890給電子工程師的忠告！"
yTemp = StrConv(sTemp, vbFromUnicode)
Text1 = sTemp
Text3 = Len(sTemp)
Text4 = UBound(yTemp)
End Sub
uj5u.com熱心網友回復：
麻煩就在于我這個地方比較要用固定長度的byte陣列，不是動態陣列，所以用strconv函式有問題，只能用copymemory.
uj5u.com熱心網友回復：
建議LZ仔細閱讀此帖：http://bbs.csdn.net/topics/310268078
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/144985.html
標籤：VB基礎類
上一篇：給陣列多次賦值時，怎樣使得原來所賦的值不被覆寫掉，高手請求教！
下一篇：vb如何把表單里的值post提交