bycj.net
当前位置:首页 >> vB文本框字数限制 >>

vB文本框字数限制

VB中限定text输入框中输入的字数,有两种方法可以实现: 1、直接在text文本框属性中定义MaxLength的值,MaxLength是设置文本框允许输入的字符最大数.超过设置数后,将不允许继续输入内容. 2、代码实现: Private Sub Text1_Change() If Len(Text1) >= 160 Then MsgBox "你已经输入了160个字,已到最大字符数!" End Sub

VB中文本框要限制输入字符数,可以选中这个文本框后,在它的“属性”面板中设置它的MaxLength属性为10,就设定了这个文本框中最多可以输入10个字符.也可以用代码进行这项设置:Text1.MaxLength=10 如果设置MaxLength属性为0(默认值),就是不人为限制它的最多字符数,其最大值由VB系统确定:在MaxLength不设定的默认情况下,单行TextBox和多行TextBox分别能输入的最大字符数是: 单行:2048,多行:32K

比如你要设文本框的字数为10, 则,text1.maxlength=10 就行了

将文本框的maxlength属性设置为4就行了

放置一个 Command1按钮 代码如下 Private Sub Command1_Click() Dim b As String b = InputBox("请输入") If Len(b) > 1 Then MsgBox ("格式错误") End If End Sub

private sub command1_click() dim i as string i = text1.text if i = "一" or i = "二" or i = "三" thentext1.text = ielsetext1.text = ""end ifend sub'初学的,代码写的不是很好,但是能实现'新建一个工程,添加一个命令按钮,添加一个文本框控件,复制上面代码即可

在文本框属性中设置maxlength长度.

<table width="400" border="0" cellspacing="0" cellpadding="0"><tr valign="middle" bgcolor="#F3F3F3"><td height="26" valign="top" align="left"> <textarea name="个人介绍" cols="50" rows="6" class="bot"

点击TEXT,在属性项中选择maxlength,就可以设定的了.

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Or KeyAscii = 46 Then Exit Sub If mLen(Text1) >= 60 Then KeyAscii = 0End SubFunction mLen(ss As String) As Integer For i = 1 To Len(ss) t = Mid(ss, i, 1) If (AscW(t) > -40870 And

网站首页 | 网站地图
All rights reserved Powered by www.bycj.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com