Set a textbox line-limit..possible?

[MGhell]

Hi,

anyone knows if it's possible to set a limit on the number of lines which can be entered in a userform textbox, instead of setting a limit on the number of characters?

Thanks

Max

 

[MGhell]

...I couldn't find a setting which prevents the user from doing as many LF as he wants. I want to somehow "lock" the height of the textbox, so that the number of lines which can be entered in a textbox is limited by the size of the textbox.

Anyone knows how to do this? There must be something....

Max

 

[Shades228]

You could try.

If Not IsNumeric(.Text) Or Len(.Text) <> # Then
MsgBox "Message exceeds maximum # of characters (put in max characters "


Where # is put in how many characters fill the size of the box you want

 

[Tom Urtis]

In the userform module, modify for textbox name.


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1.LineCount > 1 Then
KeyAscii = 0
MsgBox "Only 1 line is permitted", 48, "One line only."
Exit Sub
End If
End Sub

 

[jindon]

Not sure if this is what you wanted..

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim myLimit As Integer, x, txt As String, i As Integer

myLimit = 5
With Me.TextBox1
     If Len(.Text) = 0 Then Exit Sub
     x = Split(.Text, vbLf)
     If UBound(x) <= myLimit -1 Then Exit Sub
     MsgBox "Allowed only " & myLimit & " lines in this box"
     For i = 0 To myLimit -1
         txt = txt & x(i) & vbLf
     Next
     .Text = Left(txt, Len(txt) - 1)
End With

End Sub

 

[MGhell]

Thanks!

Tom, I tried your solution and it's working fine..


Max

 

[Tom Urtis]

Thanks for that follow-up post MGhell.

 

[coolguyhb]

I was wondering if there is a way to set a character limit per cell and overflow remaining characters to the next cell. Example: I need to set a cell to accept no more than 59 characters then overflow remaining characters to the next cell.

 

[Rick Rothstein]

In the userform module, modify for textbox name.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1.LineCount > 1 Then
KeyAscii = 0
MsgBox "Only 1 line is permitted", 48, "One line only."
Exit Sub
End If
End Sub

For one line only... couldn't you just set the MultiLine property to False and eliminate the above code altogether?

 

[drollins]

In the userform module, modify for textbox name.


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1.LineCount > 1 Then
KeyAscii = 0
MsgBox "Only 1 line is permitted", 48, "One line only."
Exit Sub
End If
End Sub

Hi Tom,

I used your code with my modifications for only 6 lines in my ActiveX Text Box called CustomerComments, and my question is; when I reach line 6, it allows me to hit "enter" which then advances to the next line when the "Only 6 lines are permitted" message appears, but now I have lost the 1st line in the text box.

Also, what does this part of your code do: 48, "One line only.?

Private Sub CustomerComments_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If CustomerComments.LineCount > 6 Then
KeyAscii = 0
MsgBox "Only 6 lines are permitted", 48, "One line only."
Exit Sub
End If
End Sub