在vb中怎么样用代码实现:使文本框中只能输入汉字不能输入数字?需要完整...

Public Enum StringL 计算字符串长度 = 0 查找字符串 = 1 判断数字是否存在 = 2 判断数字是否是小数 = 3 判断汉字是否存在 = 4 判断小写字母是否存在 = 5 判断大写字母是否存在 = 6 计算字符串出现次数 = 7 计算数字出现次数 = 8 计算汉字出现次数 = 9 计算小写字母出现次数 = 10 计算大写...

End Select End Sub

If Asc(x) > 0 Then '输入数字或英文字符都将大于0 MsgBox "输入不正确,有非中文字符"Exit For Text1.SetFocus Exit Sub End If Next End Sub

方法一：(有光标闪烁，输入、删除等操作无效)Text1.Locked = True 方法二：(无光标闪烁，不能输入、删除，界面变色、文字反白)Text1.Enabled = False 方法三：(有光标闪烁，可删除，不能输入)此法用两个API函数，略为复杂些。请在标准工程添加两个按钮和一个文本框：Option Explicit Private Declare...

'如果按的不是数字键 If KeyAscii <> 8 Then '如果按的不是退格键 KeyAscii = 0 '则按键无效 MsgBox "输入的必须为数字"End If End If End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)If KeyAscii < 65 Or (KeyAscii > 90 And KeyAscii < 97) Or KeyAscii...

用正则表达式试试看～～、

建两个文本框，text1,text2 在text1的keypress事件里写入 if keyAscii>=asc("a") and keyAscii<=asc("z") then text2.text=text2.text+chr$(keyascii-32)elseif keyascii>=asc("A") and keyascii<=asc("Z") then text2.text=text2.text+chr$(keyascii+32)else text2.text=text2....

Sub s() Text1.MaxLength = 8'设置Text输入最长为8个字符End Sub

6、调试运行。按F5，在文本框中输入任意字符，可以看到只有数字能显示在文本框中。按退格键，字符也能正常删除。7、 如果输入的数字可能是小数，那么还要添加如下代码：If KeyAscii = 46 And Not CBool(InStr(txbNumber, ".")) Then Exit Sub 当输入小数点时，程序判断文本框中是否已有小数点（因为...

以下是只能输入数字和小数点，并且小数点只能输入一次 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress If Char.IsDigit(e.KeyChar) or e.KeyChar = Chr(8) or e.KeyChar = "." Then If e.KeyChar ...