Problemer med list box's tekst.

anyone? please please :)

Har prøvet at bruge din kode, men kan ikke få den til at gøre noget ikke engang adde de items, men hvis du mailer projektet så jeg kan se det hele skal jeg kigge på det..

tubber@krog-frandsen.dk

/Tubber

jeg kan desværre ikke sende dig projektet, men her er nogle copy/pastes af min kode:





    '//udfyldning af lstVarer -listboxen
        lstVarer.Clear
        Set con = New ADODB.Connection
        Set rs = New ADODB.Recordset
       
        st = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb;Persist Security Info=False"
       
        con.Open (st)
        SQL = "SELECT * FROM tbl_varer"  'vælger alle varer fra tabellen tbl_varer
        'MsgBox SQL
        rs.Open SQL, con, adOpenDynamic
       
       
        Do Until rs.EOF
            lstVarer.AddItem rs("navn")
            lstVarer.ItemData(lstVarer.NewIndex) = rs("id_varer")
            rs.MoveNext
        Loop
       
        rs.Close
        con.Close
        Set rs = Nothing
        Set con = Nothing





    '//udfyldning af lstIngredienser -listboxen
        Set con = New ADODB.Connection
        Set rs = New ADODB.Recordset
       
        st = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb;Persist Security Info=False"
       
        con.Open (st)
        SQL = "SELECT * FROM tbl_opskrifter, tbl_varelister, tbl_varer WHERE "
        SQL = SQL & "tbl_opskrifter.id_opskrifter = " & frmOpskrifter1.lblValgtOpskrift.Caption
        SQL = SQL & " AND tbl_varelister.opskriftsid = " & frmOpskrifter1.lblValgtOpskrift.Caption
        SQL = SQL & " AND tbl_varelister.vareid = tbl_varer.id_varer"
        'MsgBox SQL
        rs.Open SQL, con, adOpenDynamic
       
        lstIngredienser.Clear
        Do Until rs.EOF
            txtOpskrift.Text = rs("tekst")
            txtNavn = rs("opskrift")
            lstIngredienser.AddItem rs("behov") & " " & rs("enhed") & " - " & rs("navn")
            lstIngredienser.ItemData(lstIngredienser.NewIndex) = rs("id_varer")
            lstAntal.AddItem rs("behov")
            lstAntal.ItemData(lstAntal.NewIndex) = rs("id_varer")
            txtKuverter.Text = rs("kuverter")
            cmbKategori.Text = rs("kategori")
            rs.MoveNext
        Loop
       
        rs.Close
        con.Close
        Set rs = Nothing
        Set con = Nothing
     






-men i bund og grund er hele problemet at aflæse teksten på et item i en listbox, ud fra dens listindex.

Hvordan skal det gøres ? altså aflæsningen ?

Hvis du markere en med musen så den item bliver blå så hedder den List1.Text det giver den tekst der står i feltet.......

Hej.

Jeg svarer kun på den oprindelige spørgsmål, kode-eksemplet fra kl. 12:53 forholder jeg mig ikke til.

Du kan ikke tilføje en item 4 til en listeboks, når der ikke er nogen nul, et, to og tre i forvejen, - og selvfølgelig heller ikke nummer 34.  Jeg har ikke prøvet, men mener, at det ikke er muligt.

Fra hjælpen til AddItem:  Remarks
If you supply a valid value for index, item is placed at that position within the object.

Når listen på et tidspunkt indeholder 5 poster, vil en løkke naturligvis kunne vise posterne i meddelelses-bokse én for én.  Men hvad er formålet?  Kunne det ikke opnås på en fiksere og mere begribelig måde?

M.v.h. Jørn

Til Joern:

Det han kan kan han godt, jeg bruger det selv i en app. og man behøver ikke alle tallene.......
Jeg kan få det til at fungere hvis det er den markerede item som man skal ha skrevet til en msgbox, men i løkken kan jeg ikke......

well som jeg skrev, så ja, det skal være i en løkke.
Det er en liste over ingredienser til en opskrift, som ved tryk på en Commandbutton skal gemmes til Databasen.

Og som tubber siger er det ikke noget problem med de "manglende" tal, begrundelsen for at der er nogen der mangler, er at de tal der er, svarer til min ID for ingrediensen i databasen, således at jeg kan referere til den ud fra list1.itemdata(list1.listindex)

Men der MÅ da være en måde jeg kan flå det tekst ud af den?!

okay nu har jeg selv fundet en løsning:

Dim i as Integer
For i = 0 To list1.ListCount - 1 Step 1
    List1.Selected(i) = True
    MsgBox list1.ItemData(i)
Next

Det virker perfekt :)