如何设置文本框输入长度

使用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
如何为上述条件制作代码。     
已邀请:
好吧,你越来越近了! 首先......使用
Len
功能,而不是
Length
,这是不存在的。 第二...您可以使用功能
MsgBox
显示错误信息。 把它们放在一起:
If Len(TextBox1.Text) < 6 Then
   MsgBox "Too short!"
Else If Len(TextBox1.Text) > 6 Then
   MsgBox "Too long!"
End If
    
VB6中的文本框具有
MaxLength
属性。将其设置为6,然后用户不能输入超过6。     
Private Sub Text1_Change()
    If Len(Text1) > 6 Then
        Text1 = " "    
        MsgBox "Not more than six"    
        Text1.SetFocus    
    End If
End Sub
    
或者,您可以将MaxLength属性设置为所需的值。 至于警告,您可以将其放在keyUp / Down或keypress事件中: 如果Len(Text1.Text)= Text1.MaxLength那么MsgBox(“警告!”),vbExclamation     
'在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
    

要回复问题请先登录注册