如何设置文本框输入长度

Question

使用VB6

在我的表单中使用Textbox.

我想限制文本框中的输入,因此最大值应为6.
用户最多应输入六个字符,否则应显示错误消息

Button1.click

if Length(textbox1.text) > 6 then
  enter only six chars
else if Length(textbox1.text) < 6 then
  enter up to six chars

如何为上述条件制作代码.

Answer 1

VB6中的文本框具有MaxLength属性.将其设置为6,然后用户不能输入超过6.

Answer 2

好吧,你越来越近了!

首先......使用不存在的Len函数,而Length不是.

其次......您可以使用该功能MsgBox显示错误消息.

把它们放在一起:

If Len(TextBox1.Text) < 6 Then
   MsgBox "Too short!"
Else If Len(TextBox1.Text) > 6 Then
   MsgBox "Too long!"
End If