title image


Smiley Re: Zeilenumbruch nach 10 Zeichen
Private Sub Command1_Click()



Dim strText As String

Dim strResult As String

Dim lngLen As Long

Dim i As Long



   strText = "abcdefghijklmnopqrstuvwxyz"

   lngLen = Len(strText)

   For i = 1 To lngLen Step 10

      strResult = strResult & Mid$(strText, i, 10) & vbCrLf

   Next i

   MsgBox strResult



End Sub


Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: