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

Answer 3

Private Sub Text1_Change()
    If Len(Text1) > 6 Then
        Text1 = " "    
        MsgBox "Not more than six"    
        Text1.SetFocus    
    End If
End Sub

Answer 4

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

对于警告，您可以将其放在keyUp / Down或keypress事件中：如果Len（Text1.Text）= Text1.MaxLength那么MsgBox（“警告！”），vbExclamation

Answer 5

'在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

Answer 6

或者您可以使用此代码

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

如何设置文本框输入长度

6 个答案: