Text1.Text = List1.Text Detta kommando får över innehållet från listbox till textbox, men bara den raden som man pekar på med musen. Hur får man över ett helt stycke från listbox till textbox. Jag menar om man trycker någonstans i listboxen så skall allt som finns där visas i textboxen. tacksam för svar.
Jocke

Hej
Text1.Text = List1(List1.ListIndex)
mvh
Sven

Tack så mycket

nu kanse ja bara är dålig men varken Text1.Text = List1.Text eller Text1.Text = List1(List1.ListIndex) funkar för mej.
MVH Jesper

då gör du så att du skriver så här så skall det funka.

text1.text = list1.list( Radnummret ) så funkar det.
men du kan dock bara läsa ut en rad iu taget men det brukar
man lösa med en loop liknande den här.


text1.text = "" 'Tömmer text rutan
for x = 0 to list1.listcount -1 'loopar tills list e slut
text 1.text = text1.text & list1.list(x) 'fyller text1 med list1 info
next x '

Hej
Som vanligt så blev det här snabbt och fel skall vara

Text1.Text = List1.List(List1.ListIndex)

DS

Tackar för svaren, Men kan man få listboxen så den har radbrytning???
Jag har många rader och när jag tar ovanstående lop så
kommer allt efter varandra utan mellanrum.Tex
Jag
Heter
Jocke
Så här vill jag ha det fast det blir
JagHeterJocke

Hej
Vet inte om jag förstår dig rätt

Testa detta
Text1.Text =Text1.Text & List1.List(List1.ListIndex) & vbCrLf

mvh
Sven

om du testar med vbnewline i stället så avgör vb själv om det skall
vara både 10 och 13 eller om det bara skall vara 10.

det innebär alltså chr(nummer)

så testa
Text1.Text =Text1.Text & List1.List(List1.ListIndex) & vbnewline

i stället för

Text1.Text =Text1.Text & List1.List(List1.ListIndex) & vbCrLf

så funkar det överallt.