テキストボックスの入力長を設定する方法

Question

VB6を使用する

私のフォームにテキストボックスを使用しています。

私はテキストボックスに入力を制限したいので、最大値は6
ユーザーは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

まあ、近づいています！

まずはLen機能を使用してください。存在しないLengthではなく機能を使用してください。

2番目...エラーメッセージを表示するには、MsgBoxファンクションを使用できます。

はすべて一緒にそれを置く：

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

Answer 2

VB6のテキストボックスには、MaxLengthというプロパティがあります。それを6に設定すると、ユーザはを6以上入力できません。

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イベント/ダウンやキー入力のイベントでそれを置くことができます： もしレン（text1.Textを）= Text1.MaxLengthその後のMsgBox（ "WARNING！"）、vbExclamation

Answer 5

"作業VB6で

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

」vb.net

で

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