Listebox -> Textbox

Hej domino, prøv dette...
dim i as integer, sTmp as string
for i=0 to listbox.listcount
sTmp = listbox.list(listebox.listindex)
if textbox.text="" then
  textbox.text=sTmp
else
  textbox.text=textbo.text & vbnewline & sTmp
end if
next i

Hej.

Såvidt jeg kan se på jrl0469's eksempel tages alle linier over.  Hvis linierne ikke står i rækkefølge, må anvendes multiselect = 2 (extended) i listen og så skal de ønskede være markerede.

Hvis linierne står i rækkefølge og der altid skal overføres x antal fra den første kan man spare brugeren for at markere de følgende ved at lade i tælle x frem fra den første.

M.v.h.  Jørn

Dim lstCount as Integer
lstCount = List1.Count - 1
For i = 0 To lstCount
  Text1.Text = Text1.Text & vbCrLf & List1.Text
Next i

Måske noget i den retning ?

self textbox1. og ikke text1

Opret en listbox og en textbox, lav ikke om på navnene.

Kopier denne kode ind i generel.

- - - start - - -

Private Sub Command1_Click()
Text1.Text = ""

For n = 0 To List1.ListCount - 1
    Text1.Text = Text1.Text & List1.List(n) & vbCrLf
    ' Vbcrlf = Ny linje / enter
Next n
End Sub

Private Sub Form_Load()
Text1.Text = ""

    List1.AddItem "NorthCode"
    List1.AddItem "Microsoft"
    List1.AddItem "Macromedia"
End Sub

- - - slut - - -

Mvh. NC northcode@e-mail.dk

Forresten så skulle du også lave en commandbutton...

Den er bare i vinkel!!!!!!!!!!

Tak.. ;)