How to get Chinese characters of the area code

Users questions:Write a program to achieve access to the keyboard input of Chinese characters from the area code. (Preferably VB or TC), if the source code would also be perfect! ! !
Experts answer: 'produced using VB ... election on a form to build a text box and a button, enter the code in the command1 where Dima1 () AsByte, b1as, b1AsStringb1 = Text1.Text 'assume it to check the area code word is text1.text get Ifb1 = "" ThenExitSubIfAsc (b1) 0Thena1 = StrConv (b1, vbFromUnicode) msgbox " :" & Format (a1 (0) -160, "00") & Format (a1 (1) -160, "00") EndIf
  • This information provided by the users.Thanks!