von gogo » Do, 03.11.2011 08:29
Code: Alles auswählen
Sub Main
sInfo= " T E S T "
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & sInfo
sTxt = sTxt & len(sInfo) & " Zeichen!" & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
msgbox sTxt,,"- " & sInfo & " -"
End Sub
... ab 109 Zeichen im Text gibt's einen Zeilenumbruch. Die Fensterbreite kann man über den Fenstertitel steuern
g
[code]Sub Main
sInfo= " T E S T "
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & sInfo
sTxt = sTxt & len(sInfo) & " Zeichen!" & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
msgbox sTxt,,"- " & sInfo & " -"
End Sub[/code]
... ab 109 Zeichen im Text gibt's einen Zeilenumbruch. Die Fensterbreite kann man über den Fenstertitel steuern ;)
g