
展开全部
你可以用 MaxLength来限制文本框输入字符的长度
最简单的方法
你可以在text 的change事件里
指定 text1.text="" '打上你所想让文本框里输入的内容
这样这个文本框 运行程序的时候别的东西就输不进去了
还有一个更简单的方法是: 利用别的程序
设置 其Enabled 的属性 取之为False的时候 这个文本框为不可用
取之为true的时候 这个文本框可用
代码
private sub command1_click()
if text1.Enabled=true then '当文本框1可用时
text1.Enabled=false '设置文本框1不可用
else '另外(也就是文本框不可用时)
text1.Enabled=true '设置文本框为可用
end if '结束IF
end sub '结束模块
使用这 个代码先建立个 text1
然后建立个 命令按钮 command1
当你第一次摁下命令按钮的时候 text1 变得不可用 也就是不能输入文字
在摁一次 text1 变得可用 也就是能输入文字
最简单的方法
你可以在text 的change事件里
指定 text1.text="" '打上你所想让文本框里输入的内容
这样这个文本框 运行程序的时候别的东西就输不进去了
还有一个更简单的方法是: 利用别的程序
设置 其Enabled 的属性 取之为False的时候 这个文本框为不可用
取之为true的时候 这个文本框可用
代码
private sub command1_click()
if text1.Enabled=true then '当文本框1可用时
text1.Enabled=false '设置文本框1不可用
else '另外(也就是文本框不可用时)
text1.Enabled=true '设置文本框为可用
end if '结束IF
end sub '结束模块
使用这 个代码先建立个 text1
然后建立个 命令按钮 command1
当你第一次摁下命令按钮的时候 text1 变得不可用 也就是不能输入文字
在摁一次 text1 变得可用 也就是能输入文字
展开全部
是的
以下程序可以实现限定文本框只能输入数字:
Sub Text1_KeyPress (keyascii As Integer)
If keyascii <48 Or keyascii> 57 Then
Beep
Beep
johny@nease.net
keyascii = 0
End If
End Sub
若想限定文本框输入格式,可以使用VB的FORMAT函数,也可以使用专业版的
屏蔽控件(Masked Edit),通过设定屏蔽控件的Mask属性可以对文本框的输入格式
作精确控制。
以下程序可以实现限定文本框只能输入数字:
Sub Text1_KeyPress (keyascii As Integer)
If keyascii <48 Or keyascii> 57 Then
Beep
Beep
johny@nease.net
keyascii = 0
End If
End Sub
若想限定文本框输入格式,可以使用VB的FORMAT函数,也可以使用专业版的
屏蔽控件(Masked Edit),通过设定屏蔽控件的Mask属性可以对文本框的输入格式
作精确控制。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
属性那里有enable属性,是表示文本框是否可用,
locked这个也很像上一个属性,也能实现这个文本框能不能输入东西
如果是限定输入内容,那就是楼上那位的方法了
locked这个也很像上一个属性,也能实现这个文本框能不能输入东西
如果是限定输入内容,那就是楼上那位的方法了
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
text1.enable=not text1.enable
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询