Keskustelu: Ohjelmointikysymykset: VB6: Rivinvaihdon korvaaminen joka rivillä ja...

Eli textboxissa on multiline true ja kirjoitan siihen tekstiä vaikka viidelle riville. Sitten tuo textboxin teksti pitäis kopsata label1:een niin että jokainen rivinvaihto on korvattu sanalla "<br>" ja vasta tämän jälkeen tulee rivinvaihto. Esim:

text1.text:

teksti
tekstii
tekstiiii

--->label1:een:

teksti<BR>
tekstii<BR>
tekstiiii<BR>

Olen yrittänyt monta kertaa Len sun muilla käskyillä. VB6 käytän.

Mistä johtuu että vbCRLF ei tee rivinvaihtoa vaan tulostaa kaksi palkkia? Jos yritän vbnewline niintekee saman, jos koitan chr(13) & chr(10) tulee myös sama kaksi palkkia vain tekstin sekaan ja kursori hyppää rivin alkuun mikä vikana?

Kaksi palkkia tulee näkyviin tekstiboksissa, jonka Multiline = False. Labelissa tulee kyllä rivin vaihto aivan oikein. Oheinen koodi toimii:

Option Explicit
Dim i As Integer, j As Integer

Private Sub Command1_Click()
  j = 1: Label1 = ""
  Do
    i = InStr(j, Text1, vbCrLf)
    If i > j Then
      Label1 = Label1 & _
      Mid$(Text1, j, i - j) & "<br>" & vbCrLf
      j = i + 2
    ElseIf Len(Text1) > j Then
      Label1 = Label1 & _
      Mid$(Text1, j) & "<br>"
      Exit Do
    Else
      Exit Do
    End If
  Loop
End Sub

Kiitoksia paljon! Juuri tätä olen hakenut.

Tässä minun tapani:

Label1.Caption = Replace(Text1.Text, vbCrLf, "<br>" & vbCrLf) & "<br>"