yulijin608 发表于 2004-11-15 16:49:00

奇怪

请教,为什么代码在vb中编译通过,在cad2002中的vba中编译也通过,而在cad 2000中出错.

yulijin608 发表于 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
页: [1]
查看完整版本: 奇怪