VB6转换成VB.NET之后出现2处错误，请大家帮忙 看一下。谢谢大家

[elvayu123]

将一个VB6项目源代码用VB.NET 2008转换后，出现了一些错误提示，请大家帮忙看一下。

1、
VB6中代码
Dim strbyte(64) As Byte，TempStr As String
TempStr = StrConv(strbyte, vbUnicode)

转化成VB.NET中代码
TempStr = StrConv(System.Text.UnicodeEncoding.Unicode.GetString(strbyte), vbUnicode)
运行时提示 错误：未声明名称“vbUnicode”

2、
VB6中代码
Dim InString As String , bytBuffer() As Byte
ReDim bytBuffer(LenB(StrConv(InString, vbFromUnicode)))

VB.NET中代码
Dim bytBuffer() As Byte
ReDim bytBuffer(LenB(StrConv(InString, vbFromUnicode)))

运行时提示 错误：1、未声明名称“LenB” 2、未声明名称“vbFromUnicode”

[Poopaye]

这些是常量 Const vbUnicode as Integer = 64 Const vbFromUnicode as Integer = 128

[Poopaye]

LenB(StrConv(InString, vbFromUnicode)) --------> StrConv(InString, vbFromUnicode).Length * 2;

[Tiger_Zhao]

Imports System.Text

Module Module1

    Sub Main()
        Dim strbyte() As Byte = {&H61, &H62, &H63}
        Dim TempStr As String = Encoding.Default.GetString(strbyte) '不需要StrConv()，直接用默认编码解码即可'
        Console.WriteLine(TempStr)

        Dim InString As String = "abc中文"
        Console.WriteLine(Encoding.Default.GetByteCount(InString)) '计算长度'
        Dim bytBuffer() As Byte = Encoding.Default.GetBytes(InString) '直接取得字节序列'
        Console.WriteLine(BitConverter.ToString(bytBuffer))

        Console.ReadLine()
    End Sub

End Module

abc
7
61-62-63-D6-D0-CE-C4

[xuanhao1012]

升级到VB.NET之后有些函数是没有的，需要添加引用程序集MICROSOFT visual basic