Private Sub Form_Load() Buffer = "23" & VbCr & "34" & vbCr & "45" & VbCr & "65" Text1.Text = buffer Text2.Text = Replace(buffer, vbCr, vbCrLf) End Sub
Dim Tableau() as string Tableau = Split ( Buffer , chr(13) )
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question