Search Tools Links Login

Simple Wordwrap Function

Posted: 2019-12-30
By: MaxChristianPohle
Viewed: 238

Filed Under:

VB6 Code Cache, VB6 String Handling, VB6 Miscellaneous

No attachments for this post

I hope that this is the shortest and easiest wordwrap-function in vb you have ever seen, that you enjoy it and use it in all your projects.

Option Explicit
Private Sub Form_Load()

   MsgBox WordWrap("This is a long testtext that doesn't make any sense really. But I hope you will enjoy my example and I do not know what I can write any more. This must be enough", 20), vbOKOnly + vbInformation, "WordWrap"

End Sub

Function WordWrap(ByVal Text As String, Optional ByVal MaxLineLen As Integer = 70)

   Dim i As Integer
   For i = 1 To Len(Text) / MaxLineLen
      Text = Mid(Text, 1, MaxLineLen * i - 1) & Replace(Text, " ", vbCrLf, MaxLineLen * i, 1, vbTextCompare)
   Next i
   WordWrap = Text

End Function

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.