在一文本框内 要求只输入中文简体怎么实现

Question

要求在文本框内只能输入简体中文 没有思路！请教了!

Answer 1

简单的方法：
Private Sub Text1_KeyPress(KeyAscii As Integer)    If (KeyAscii > 13) Then KeyAscii = 0End Sub

Answer 2

'汉字 16进制区间 B0A1-F7FE
'汉字10进制区间 45217--63486
'汉字区位: 16区位01-94 ---- 87区位01-94Option Explicit
Dim aa$, Rtn&
Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii <> 0 Then
      If KeyAscii = 8 Or KeyAscii = 32 Or KeyAscii = 44 Or KeyAscii = 46 Then '允许空格与退格,逗号与句号
      Else
         If Not ChkHZ(Chr(KeyAscii)) Then KeyAscii = 0: Exit Sub
      End If
   End If
End SubPublic Function ChkHZ(ChkStr As String) As Boolean
   ChkHZ = False
   Rtn = Str2Dec(ChkStr)
   If Rtn >= 45217 And Rtn <= 63486 Then ChkHZ = True
End FunctionPublic Function Str2Dec(TxtStr$) As Long
   aa = Hex(Asc(TxtStr))
   aa = IIf(Len(aa) = 2, "00" & aa, aa)
   Str2Dec = Val("&h" & Left(aa, 2)) * 256 + Val("&h" & Right(aa, 2))
End Function

Answer 3

直接设置IMEStatus为汉字状态，就行了，如下：
Option ExplicitPrivate Sub Form_Load()
    Text1.IMEMode = vbIMEModeOn   '打开IME，设置为中文输入方式
End Sub