Met VbCr en VbLf aan het einde v.e. regel tekst.
Code:
Private Sub Command1_Click()
Dim Tekst As Variant
Tekst = "Ik heb een label in mij Form geplaatst en nu " & vbCr & vbLf
Tekst = Tekst & "wil ik, dat uit een lange tekst meerdere regels in dat " & vbCr & vbLf
Tekst = Tekst & "label wordt geplaatst. Via de code kan ik er wel " & vbCr & vbLf
Tekst = Tekst & "tekst in zette, maar de tekst komt dan alleen op één " & vbCr & vbLf
Tekst = Tekst & "regel te staan." & vbCr & vbLf
Tekst = Tekst & vbCr & vbLf
Tekst = Tekst & "Hoe kan ik in een label meerdere regel tekst plaatsen?"
Label1.Caption = Tekst
End Sub
Je moet het label zodanig uitrekken/vergroten, dat je tekst er mooi in past.
Label heeft de eigenschap MultiLine niet, vandaar dat het op deze manier moet.
VbCr en VbLf. VB staat voor Visual Basic, en Cr en Lf respectievelijk voor: Carriage Return en Line Feed.
Een Carriage Return komt overeen met de Ascii waarde 13 en Line Feed met 10.
VbCr = Chr(13) en VbLf = Chr(10)
Cr en Lf zijn begrippen uit de "oude" tijd. Je had toen een zogeheten TTY-apparaat, zeg maar een oude typmachine. Wanneer de kar aan het einde zit, dan zet je 'm terug (Carriage Return), vervolgens draai je aan een knop om een regel naar boven te schuiven(Line Feed)
Je zou zeggen, dat VbCr en VbLf met Chr(13) en Chr(10) kunnen worden vervangen, dit gaat net even niet. Daarvoor moet 2 keer Chr(13) gebruiken.
Dus, i.p.v. VbCr & VbLf kun je ook Chr(13) & Chr(13) gebruiken.
Dennis.