Question

在VB6.0里如何限定文本框的字符

怎么限定文本框输入的字符数、类型（字母、数字或中文）、范围（数字大小范围）？

Answer 1

字符数可以用Text1.MaxLength来设置 比如设置成五 那么文本框只能输入5个字符 多了就输入不上去了
光输入数字的话可以这样 设置Text1.Text="" 代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
光输入字母的话可以这样 设置Text1.Text="" 代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then KeyAscii = 0
End Sub
光输入中文的话可以这样 设置Text1.Text="" 代码如下：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 0 Then KeyAscii = 0
End Sub

Answer 2

Private text1(就是控件的名字) change()
abc = text1.text
bb=right(abc,1) '提取刚输入的字符
for xx = ? to ? ' ? to ? 是你限定的类型的ASII码的范围
if **(bb)"我这里没VB ,**就当是提取ASII码的函数" = xx then
text1.text = left(abc,len(abc)-1) '假如是限定范围就减掉
exit for '不然全减了
end if
end sub
(因为我这里没有VB,需要你自己慢慢改正,这是大概的思路而已,不要见笑)

Answer 3

MaxLength 这个属性可以限制输入的字符数量。MFC里面的文本框可以限制只输入数字,VB里面只能自己处理