linie skift i textbox ??

Hej.

Den var sej men nu har jeg noget der virker

For a = 0 To 3
    Text1.Text = Text1.Text & hele
    Text1.SetFocus
    SendKeys \"^{end}\"
    SendKeys \"{Enter}\", True
  Next

Det må du kunne bygge videre på.

M.v.h.  Jørn

Har du sat MultiLine=True?

Det har jeg også bøvlet med det der :(

benny.tordrup > det mener du ikke er et seriøst svar :/ (det behøver man ikke engang at checke, selvfølgelig er det slået til)

kornfreak > fik du aldrig svaret ???  :)

simon >> Nej det er netop det...derfor vil jeg lige følge med her! :)

simon jacobsen> Jo, selvfølgelig mener jeg det som et seriøst svar. Jeg har lige prøvet, og din kode virker i følgende udseende, hvis multiline er sat til:

    Dim hele
    Dim lines(100)
    Dim nr
    Dim antallinier
    antallinier = 5
    \'variablen \"antallinier\" = antallet af linier
    For nr = 1 To antallinier
        lines(nr) = CStr(nr)
        hele = hele & lines(nr) & vbCrLf
    Next
   
    Text.Text = hele

ok jeg prøver
men hvad betyder \"Cstr\" ?

CStr laver en variabel om til en streng. Det kan måske være det, der er forskellen, da du har erklæret Lines som et array af variant.

ok jeg forstår ikke hvorfor min kode ikke virkede, men dit svar er rigtigt og jeg har fået det til at virke, så pointene er dine :)

Hej

Din oprindelige kode virker godt nok hos mig.
Det eneste der manglerer at du tildeler din variabel lines(nr) en værdi fx.

lines(nr)=nr

/Erling

jeg fandt fejlen i min kode, grunden til at jeg ikke kunne se at denne kode virkede var at variablen \"lines\" var der ved en fejl kun blevet tildelt en kode til lines(1) så jeg kunne ikke se at der kom mellemrum i teksten, så jeg troede at der var noget galt med, \"linie skift koden\" :(

men aligevel tak for hjælpen og alle de gode kommentare :)