Как установить длину ввода текстового поля

Question

Использование 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

Как мне сделать код для вышеуказанного условия.

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

Или вы можете использовать этот код

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

Answer 4

'работает в 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 5

Или вы можете установить свойство MaxLength на желаемое значение.

Что касается предупреждения, вы можете поместить его в события keyUp / Down или keypress: If Len (Text1.Text) = Text1.MaxLengthЗатем MsgBox («ВНИМАНИЕ!»), VbExclamation

Answer 6

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