Question

vb语言中,要使文本框中只能输入6位数字,应设置文本框的什么属性

Answer 1

Private Sub Form_Load()

Text1.MaxLength = 6 '文本最大长度6

End Sub

Private Sub Text1_Change()

If Len(Text1.Text) = 6 And IsNumeric(Text1.Text) Then '文本长度为6，并且是数字时Command1.Enabled = True

Else

Command1.Enabled = False

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < 48 And KeyAscii <> 8 Or KeyAscii > 57 Then KeyAscii = 0 '禁止非数字输入(backspace除外)

End Sub

扩展资料：

注释方式：

在VB中，注释有2种方式。

1、以Rem关键字开头，并且Rem关键字与注释内容之间要加一个空格。注释可以是单独的一行，也可以写在其他语句行的后面。如果在其他语句行后使用Rem关键字，则必须使用冒号（:）与语句隔开。

2、使用一个撇号（'）来代替Rem关键字。若使用撇号，则在其他语句行使用时不必加冒号。

特征衡量：在 Visual Basic 中，可通过属性、方法和事件来说明和衡量一个对象的特征。

参考资料来源：百度百科-Visual Basic

Answer 2

Private Sub Form_Load()
Text1.MaxLength = 6 '文本最大长度6
End Sub
Private Sub Text1_Change()
If Len(Text1.Text) = 6 And IsNumeric(Text1.Text) Then '文本长度为6，并且是数字时
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 And KeyAscii <> 8 Or KeyAscii > 57 Then KeyAscii = 0 '禁止非数字输入(backspace除外)
End Sub

Answer 3

MaxLength 属性