Add line-break after every 7th word while typing in Textbox

Question

Add line-break after every 7th word while typing in Textbox

Wilfred Eghenedji 326

I am looking at a situation where when someone is typing in the textbox, line-break would take effect automatically after every 7th word. Please, is this possible!? Thank you.

LesHay 7,141 Reputation points

2022-04-18T18:30:52.613+00:00

Hi
The general idea looks simple. However, as usual, there is more to consider.
What is the user presses the ENTER key?
What about orphaned punctuation marks (some people put a space before a ? for example). If the text was split right at that space character then you would have the next line starting with a '?'
Where else, other tan a space character would indicate a new word starting?
No doubt there are other considerations but I'll let you sort out those first.
Wilfred Eghenedji 326 Reputation points

2022-04-18T20:04:49.697+00:00
What i proposed was join four textboxes to look like one textbox having visible writingl margins, then makes the MaxLength of each textbox contain number of texts that is likely seven words in total e.g. 51. I then present the following condition:

if Textbox1.MaxLength>=51 then Textbox2.Focus() else if Textbox2.MaxLength>=51 then Textbox3.Focus() else if Textbox3.MaxLength>=51 then Textbox4.Focus() else if Textbox4.MaxLength>=51 then Textbox1.Focus()

However, this seems awkward. I would like use a textbox to do the needed operation. The idea behind this is such that the texts in the textbox would appear in a label as 7 words per each line.
Wilfred Eghenedji 326 Reputation points

2022-04-18T20:41:37.857+00:00

The 'ENTER Key' idea would have been great, but I want going to the next line to be automatic. I.e. go to the next line after typing the 7th word.

Accepted answer

0 additional answers

Your answer

LesHay 7,141 Reputation points

2022-04-18T18:30:52.613+00:00

Hi
The general idea looks simple. However, as usual, there is more to consider.
What is the user presses the ENTER key?
What about orphaned punctuation marks (some people put a space before a ? for example). If the text was split right at that space character then you would have the next line starting with a '?'
Where else, other tan a space character would indicate a new word starting?
No doubt there are other considerations but I'll let you sort out those first.
Wilfred Eghenedji 326 Reputation points

2022-04-18T20:04:49.697+00:00

What i proposed was join four textboxes to look like one textbox having visible writingl margins, then makes the MaxLength of each textbox contain number of texts that is likely seven words in total e.g. 51. I then present the following condition:

if Textbox1.MaxLength>=51 then Textbox2.Focus() else if Textbox2.MaxLength>=51 then Textbox3.Focus() else if Textbox3.MaxLength>=51 then Textbox4.Focus() else if Textbox4.MaxLength>=51 then Textbox1.Focus()

However, this seems awkward. I would like use a textbox to do the needed operation. The idea behind this is such that the texts in the textbox would appear in a label as 7 words per each line.
Wilfred Eghenedji 326 Reputation points

2022-04-18T20:41:37.857+00:00

The 'ENTER Key' idea would have been great, but I want going to the next line to be automatic. I.e. go to the next line after typing the 7th word.

Answer 1

Hi
As I mentioned, this is a much more complex problem than I believe you think.
Here is some code that is a very oversimplified idea. This code checks for 7 words after each key up event (based on ONLY space characters) and inserts a VbCrLf if so. It works as far as those parameters permit - so if user only types characters and spaces then it may work as you specified.
To try this code, all you need to do is copy paste into your existing code. If no good easy to remove just be deleting the whole sub. This code references TextBox1, and you will need to edit to suit your code.

  Private Sub TextBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyUp
    If e.KeyCode = Keys.Space Then
      Dim seq() As String = TextBox1.Text.Split(" "c)
      If (seq.Count - 1) Mod 7 = 0 Then
        TextBox1.AppendText(vbCrLf)
      End If
    End If
  End Sub

Wilfred Eghenedji 326 Reputation points

2022-04-19T02:06:02.927+00:00

It is relieving seeing that it worked exactly as needed! Thank you very much!

Share via

Add line-break after every 7th word while typing in Textbox

0 additional answers

Your answer