' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub showForm()
UserForm1.Show
End Sub
Public Function breakText(ByVal theText As String, ByVal breakLength As Long) As String
Dim strTmp As String, strOut As String
Dim intLength As Integer, intN As Integer, intM As Integer
theText = Replace(theText, vbLf, " ")
intLength = Len(theText)
intM = 1
intN = 1
Do
strTmp = Mid(theText, intN, breakLength)
If intLength - intN >= breakLength Then
If InStr(1, StrReverse(strTmp), " ") > 0 Then
intM = Len(strTmp) - InStr(1, StrReverse(strTmp), " ") + 1
Else
intM = breakLength
End If
Else
intM = Len(strTmp)
End If
strOut = strOut & Trim(Left(strTmp, intM)) & vbLf
intN = intN + intM
Loop While intN < intLength
breakText = Left(strOut, Len(strOut) - 1)
End Function
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************
Option Explicit
Private Sub UserForm_Initialize()
Dim strText As String, varList As Variant
Dim lngIndex As Long
strText = "Eine wunderbare Heiterkeit hat meine ganze Seele eingenommen, gleich den süßen Frühlingsmorgen, die ich mit ganzem Herzen genieße. Ich bin allein und freue mich meines Lebens in dieser Gegend, die für solche Seelen geschaffen ist wie die meine. Ich bin so glücklich, mein Bester, so ganz in dem Gefühle von ruhigem Dasein versunken, daß meine Kunst darunter leidet. Ich könnte jetzt nicht zeichnen, nicht einen Strich, und bin nie ein größerer Maler gewesen als in diesen Augenblicken" & _
"Wenn das liebe Tal um mich dampft, und die hohe Sonne an der Oberfläche der undurchdringlichen Finsternis meines Waldes ruht, und nur einzelne Strahlen sich in das innere Heiligtum stehlen, ich dann im hohen Grase am fallenden Bache liege, und näher an der Erde tausend mannigfaltige Gräschen mir merkwürdig werden; wenn ich das Wimmeln der kleinen Welt zwischen Halmen, die unzähligen, unergründlichen Gestalten der Würmchen, der Mückchen näher an meinem Herzen fühle, und fühle die Gegenwart des Allmächtigen, der uns nach seinem Bilde" & _
"schuf, das Wehen des Alliebenden, der uns in ewiger Wonne schwebend trägt und erhält; mein Freund! Wenn's dann um meine Augen dämmert, und die Welt um mich her und der Himmel ganz in meiner Seele ruhn wie die Gestalt einer"
With txtDummy
.Width = ListBox1.Width - 2
.Font.Name = ListBox1.Font.Name
.Font.Size = ListBox1.Font.Size
.MultiLine = True
.WordWrap = True
.SetFocus
Do
lngIndex = lngIndex + 1
.Text = Left(strText, lngIndex)
Loop While .LineCount <= 1 And lngIndex <= Len(strText)
.Visible = False
End With
varList = Split(breakText(strText, lngIndex), vbLf)
ListBox1.List = varList
End Sub