有些怪异的现象，请高人指点一下。

[chen_ny]

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


Private Sub Command1_Click()

Dim aa As String
Dim Cc(100) As Byte
Dim adr As Long

aa = "1234567890"

adr = StrPtr(aa)
CopyMemory ByVal adr, Cc(0), 8
MsgBox aa

End Sub

Private Sub Command2_Click()

Dim aa As String * 10

Dim Cc(100) As Byte
Dim adr As Long

aa = "1234567890"

adr = StrPtr(aa)
CopyMemory ByVal adr, Cc(0), 8
MsgBox aa

End Sub

第一种情况aa的被修改都成为0
第二种则aa还是"1234567890"没有被修改
而两种情况的区别就是字符串定义时不同，这是什么原因？

[wqb]

Private Sub Command2_Click()

Dim aa As String * 10

Dim Cc(100) As Byte
Dim adr As Long

aa = "1234567890"

'adr = StrPtr(aa)
CopyMemory ByVal aa, Cc(0), 8'///////
MsgBox aa

End Sub
估计是因为定长字符串的存储方式与普通字符串不同导致strptr不适用而致。

[zyl910]

定长字符串不能用StrPtr
只能用VarPtr取得地址

[chen_ny]

Private Sub Command2_Click()
Dim aa As String * 10
Dim Cc(100) As Byte
Dim adr As Long
aa = "1234567890"
adr = StrPtr(aa) - 4
CopyMemory Cc(0), ByVal adr, 24
End Sub

Cc的结果是
20 0 0 0 49 0 50 0 51 0 52 0 53 0 54 0 55 0
56 0 57 0 48 0
所以我觉得StrPtr(aa)还是取到了定长字符串的地址阿
可不知到为什么用这个地址给aa拷贝数据就是拷贝不上
那位大侠知道定长字符串的存储方式阿