Vb6 如何设置文本框输入长度

使用VB6

在我的表单中使用文本框

我想限制文本框中的输入，因此最大值应为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

按钮1.单击
如果长度（textbox1.text）>6，则
只输入六个字符
否则，如果长度（textbox1.text）<6，则
最多输入六个字符

---

如何为上述条件生成代码。

VB6中的文本框具有

MaxLength

属性。将其设置为6，则用户不能输入超过6个。

VB6中的文本框具有

MaxLength

属性。将其设置为6，然后用户就不能输入超过6的内容了。

好吧，你就快到了

首先。。。使用

Len

功能，不要使用不存在的

Length

第二。。。您可以使用函数

MsgBox

显示错误消息

总而言之：

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

如果Len（TextBox1.Text）<6则
MsgBox“太短了！”
否则，如果Len（TextBox1.Text）>6，则
MsgBox“太长了！”
如果结束

好吧，你快到了

首先。。。使用

Len

功能，不要使用不存在的

Length

第二。。。您可以使用函数

MsgBox

显示错误消息

总而言之：

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

如果Len（TextBox1.Text）<6则
MsgBox“太短了！”
否则，如果Len（TextBox1.Text）>6，则
MsgBox“太长了！”
如果结束

或者您可以将MaxLength属性设置为所需的值

至于警告，您可以将其置于keyUp/Down或keypress事件中：

---

如果Len（Text1.Text）=Text1.MaxLength，则MsgBox（“警告！”）、vbequipment

或者您可以将MaxLength属性设置为所需的值

至于警告，您可以将其置于keyUp/Down或keypress事件中： 如果Len（Text1.Text）=Text1.MaxLength，则MsgBox（“警告！”），VBEQUOTION在vb.net中工作

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              TextBox1.MaxLength = 6
    End Sub

'在vb6中

Private Sub Text1_Change()
    If Len(Text1.text) > 6 Then
        text1.enabled=false  
    End If
End Sub
Private Sub Text1_DoubleClick
   text1.enable=true
   text1.text=""
end sub

'在vb.net中工作

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              TextBox1.MaxLength = 6
    End Sub

'在vb6中

Private Sub Text1_Change()
    If Len(Text1.text) > 6 Then
        text1.enabled=false  
    End If
End Sub
Private Sub Text1_DoubleClick
   text1.enable=true
   text1.text=""
end sub

---

或者您可以使用此代码

If Len(Me.txtusername.Text) And Len(Me.txtpassword.Text)< 5 Then
          Call MsgBox("Login failed !, password character must at list 5 and above")

Else
          Call MsgBox("Error occurred ! Password did not match!")
End If

如果Len（Me.txtsername.Text）和Len（Me.txtspassword.Text）<5，那么
调用MsgBox（“登录失败，密码字符必须位于列表5及以上”）
其他的
调用MsgBox（“发生错误！密码不匹配！”）
如果结束

或者您可以使用此代码

If Len(Me.txtusername.Text) And Len(Me.txtpassword.Text)< 5 Then
          Call MsgBox("Login failed !, password character must at list 5 and above")

Else
          Call MsgBox("Error occurred ! Password did not match!")
End If

如果Len（Me.txtsername.Text）和Len（Me.txtspassword.Text）<5，那么
调用MsgBox（“登录失败，密码字符必须位于列表5及以上”）
其他的
调用MsgBox（“发生错误！密码不匹配！”）
如果结束

为什么要给出错误消息，最好不要输入超过6个字符。看看MaxLength属性。为什么要给出错误消息，最好不要输入超过6个字符。看看MaxLength属性。问题是文本何时小于或大于6个字符。您的答案只处理其中一种情况。问题是关于文本小于或大于6个字符的时间。您的答案只处理其中一种情况。谢谢您的答案，无法使用：）谢谢您的答案，无法使用：）