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

 我来答
帐号已注销
高粉答主

2020-02-05 · 说的都是干货,快来关注
知道小有建树答主
回答量:263
采纳率:95%
帮助的人:11.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

匿名用户
推荐于2017-05-23
展开全部
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
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
syx54
2015-06-05 · TA获得超过7378个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2735万
展开全部
MaxLength 属性
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式