|
发表于 2004-11-15 16:55:00
|
显示全部楼层
Private Function StringToArray(InString As String) As Byte()----显示出错"编译错误,缺少语句结束"
Dim i As Integer, bytBuffer() As Byte
ReDim bytBuffer(LenB(StrConv(InString, vbFromUnicode)))
bytBuffer = StrConv(InString, vbFromUnicode)
StringToArray = bytBuffer
End Function |
|