spingk
asked on
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
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
set Multiline property of the text box to true
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
addition:
after setting the Multiline property to true, on the GotFocus event
Text1.Text = Text1.Text + vbCrLf
Text1.SelStart = Len(Text1.Text)
after setting the Multiline property to true, on the GotFocus event
Text1.Text = Text1.Text + vbCrLf
Text1.SelStart = Len(Text1.Text)
ASKER
thank you AzraSound. Worked like a charm