# Re: 中文字内码

Posted by Nelson on November 20, 1999 at 10:06:29:

In Reply to: Re: 中文字内码 posted by 纪文和 on November 19, 1999 at 19:19:09:

: 用三个 TextBox / 一个 CommandButton 来做练习
: 在 Text1 中输入一个中文，按下 Command1
: 在 Text2 及 Text3 显示内码

: Private Sub Command1_Click()
: 　　Dim bcode() As Byte
: 　　bcode = StrConv(Text1.Text, vbFromUnicode)
: 　　Text2 = bcode(0)
: 　　Text3 = bcode(1)
: End Sub

: VB入门网

太感谢您了...

Follow Ups: