Tenho um campo MEMO que pode ter varias linhas (digitado em um text) quando eu coloca no MSFLEX ele coloca tudo em uma linha, separado por um caracter (Chr(13)).

Preciso que ele mostre o campo como ele foi digitado, com varias linhas. Exemplo :

 

Se eu digitar no text e gravar em um arquivo em um campo MEMO:

O vovô viu a uva.

A vovó tambem viu.

 

no msflex esta saindo assim

Tá aí colega....

 

Fiz na pressa, porém com essas estrelinhas vc vai enteder...rsrs

O que vale é a idéia...

T+

 

Private Sub Command1_Click()
    Dim mstring As String
    Dim mrep As Long
    Dim mStr() As String
    Dim mContador As Long
    Dim mLetra As String * 1
   
    mstring = Text1.Text
   
    mContador = 1
    ReDim Str(mContador) As String
    For mrep = 1 To Len(Text1.Text)
        mLetra = Mid(Text1.Text, mrep, 1)
        If mLetra = Chr(13) Then
            mContador = mContador + 1
            ReDim Preserve mStr(mContador) As String
        Else
            Str(mContador) = mStr(mContador) & mLetra
        End If
    Next mrep
    msflexgrid.rows = mContador + 1
    For mrep = 1 To mContador + 1
        msflexgrid.col = 0
        msflexgrid.row = mrep
        msflexgrid.Text = mStr(mrep)
    Next mrep
End Sub

Poca, As estrelas na verdade são de tanta paulada que agente leva.

 

Obrigado pela ajuda vou dar uma olhada.