如何将一个string里的内容存放到一个字节数组中？？？

[ziwanli]

如何将一个string里的内容存放到一个字节数组中？？？或者说如何将Text控件里的文本存到一个字节数组中？

[VBToy]

Dim s As String
Dim b() As Byte
s = "abc"
b = StrConv(s, vbFromUnicode)

[cso]

直接赋值，转不转换看需要

[sxwz2007]

dim a() as byte
dim s as string
s="111abc"
a=s
只转换单字节字符

[VBAdvisor]

VB6支持直接赋值，这样可以避免复杂的编码转换问题。
Dim byte() as Byte
Dim sString as String
sString="中英文EN"
byte=sString
你也可以直接将字节赋值给字符串：
sString=byte

[guyehanxinlei]

Dim s As String
Dim b() As Byte
s = "abc"
b = StrConv(s, vbFromUnicode)

[anlog]

Private Sub Command1_Click()
Dim s As String
Dim b() As Byte
s = "abcd"
b = s

Text1.Text = b(0) ' 97
Text2.Text = b(1) ' 0
Text3.Text = b(2) ' 98
Text4.Text = b(3) ' 0

End Sub

[anlog]

Private Sub Command1_Click()
Dim s As String
Dim b() As Byte
s = "abcd"
b = s
b = StrConv(s, vbFromUnicode)
Text1.Text = b(0) ' 97
Text2.Text = b(1) '98
Text3.Text = b(2) '99
Text4.Text = b(3) '100
End Sub

[knowledge_Is_Life]

接分是王道！