# Re: 中文字内码

Posted by 纪文和 on November 19, 1999 at 19:19:09:

In Reply to: 中文字内码 posted by Nelson on November 19, 1999 at 10:09:53:

用三个 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:

- Re: 中文字内码 Nelson 10:06:29 11/20/99 (0)