Simple Wordwrap Function
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.