• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 164
  • Last Modified:

Making a new line

My problem is that I have a text box (text1) and i want to make it so when it gets to a certain position it makes a new line and sets it to type there. I have:
Private Sub Text1_Change()
Dim Length
Length = 47
Label1.Caption = Len(Text1.Text)
If Len(Text1.Text) = Length Then
Text1.Text = Text1.Text & vbNewLine
Text1.SetFocus
Length = Length + 47
End If
End Sub
I have a label (label1) for refrence. What happens when i insert this code is that it makes a new line but does not put the cursor there. I CANNOT use a RichTextbox due to security restrictions at the school I do alot of work at. I think that this is an easy question but I cannot figure it out. Any help is apreciated.

Thank you,
Spingk
0
spingk
Asked:
spingk
  • 2
1 Solution
 
PePiCommented:
set Multiline property of the text box to true
0
 
AzraSoundCommented:
Instead of:

>>Text1.SetFocus

use:

Text1.SelStart = Len(Text1.Text)
0
 
PePiCommented:
addition:

after setting the Multiline property to true, on the GotFocus event

Text1.Text = Text1.Text + vbCrLf
Text1.SelStart = Len(Text1.Text)
0
 
spingkAuthor Commented:
thank you AzraSound. Worked like a charm
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now