Count the number of Char in a textbox

[jdavis9]

What I wish to accomplish is to count the number of characters in a text box and when the exceed a pre-determined number then enable a button.

ie. on a change count the number of char in the box

Private sub textbox1_change()
' count then number of char so far
if charactercount > 7 then
mybutton.enable = true
else:end if

 

[Norie]

Does this work?

Private Sub TextBox1_change()
    If Len(TextBox1.Text) > 7 Then
        mybutton.Enabled = True
    End If
End Sub

Or how about this?

Private Sub TextBox1_change()
    mybutton.Enabled = Len(TextBox1.Text) > 7
End Sub

 

[jdavis9]

Yes that works, I was making it much harder than needed.

Some days it's just better to stay in bed..........