vb6与vb.net中：Len(strConv(str,vbUnicode))的问题。

[Quree_Y]

大家好，希望大家帮我解决一下，谢谢。

VB代码：

a1 = LenB(StrConv("c", vbFromUnicode))
b1 = LenB(StrConv("c", vbUnicode))

结果：
a1=1
b1=4
如果把VB6.0 b1 = LenB(StrConv("c", vbUnicode)) 这句代码改写成.Net应怎么改写？

[Tiger_Zhao]

Imports System.Text

Module Module1

    Sub Main()
        Dim a As Encoding = Encoding.ASCII
        Dim u As Encoding = Encoding.Unicode

        Debug.Print(u.GetByteCount("c"))

        Dim a1 As Integer = a.GetByteCount("c")
        Debug.Print(a1)

        Dim b1 As Integer = u.GetByteCount(a.GetChars(u.GetBytes("c")))
        Debug.Print(b1)
    End Sub

End Module

[平头哥哥]

引用 1 楼 Tiger_Zhao 的回复:

Imports System.Text

Module Module1

    Sub Main()
        Dim a As Encoding = Encoding.ASCII
        Dim u As Encoding = Encoding.Unicode

        Debug.Print(u.GetByteCount("c"))

        Dim a1 As Integer = a.GetByteCount("c")
        Debug.Print(a1)

        Dim b1 As Integer = u.GetByteCount(a.GetChars(u.GetBytes("c")))
        Debug.Print(b1)
    End Sub

End Module

[Quree_Y]

引用 1 楼 Tiger_Zhao 的回复:

Imports System.Text

Module Module1

    Sub Main()
        Dim a As Encoding = Encoding.ASCII
        Dim u As Encoding = Encoding.Unicode

        Debug.Print(u.GetByteCount("c"))

        Dim a1 As Integer = a.GetByteCount("c")
        Debug.Print(a1)

        Dim b1 As Integer = u.GetByteCount(a.GetChars(u.GetBytes("c")))
        Debug.Print(b1)
    End Sub

End Module

非常感谢~！