Works for both text boxes and printing from vb. This is a simple code to wrap a long string into se

by D. Briley (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 16^th May 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Works for both text boxes and printing from vb. This is a simple code to wrap a long string into seperate lines without spliting in the middle

Rate Works for both text boxes and printing from vb. This is a simple code to wrap a long string into se




Dim Found As Integer

If Len(Text1.Text) < 21 Then
   Text2.Text = Text1.Text
Else
   Found = InStrRev(Text1.Text, " ", 20)
   Text2.Text = Mid(Text1.Text, 1, Val(Found))
   Text3.Text = Mid(Text1.Text, Val(Found) + 1)
End If

Download this snippet Add to My Saved Code

Works for both text boxes and printing from vb. This is a simple code to wrap a long string into se Comments

No comments have been posted about Works for both text boxes and printing from vb. This is a simple code to wrap a long string into se. Why not be the first to post a comment about Works for both text boxes and printing from vb. This is a simple code to wrap a long string into se.

Works for both text boxes and printing from vb. This is a simple code to wrap a long string into se

Works for both text boxes and printing from vb. This is a simple code to wrap a long string into se Comments

Post your comment

Difficulty