Hjælp med RemoveItem

Hej.

Problemet er at index skifter når du fjerner f.eks. item 2.  Så rykker de øvrige en plads op.
Kan du ikke lade listeboksen have værdierne 0 eller 1 efter om chekboksen er sat eller ej?  Så er der altid 10 værdier.

Der findes andre løsninger, men tlnk lige over denne simple.

M.v.h.  Jørn

Hej Jørn

Jeg har brug for at når jeg har sat 4 Chekboxe til vbChecked og så sætter den til vbUnchecked,så fjerner den værdien fra listboxen.Har haft den til at fjerne værdier fra boxen,men det er desværre kun den sidste der er sat ind i feltet den fjerner og ikke den som den skal...

M.V.H.  Kim

Hej igen.

Jeg ved ikke hvad formålet er med at en listeboks skal indeholde værdier fra tjekbokse.  Selve det lyder for mig som lidt molboagtigt.  Idéen med tjekbokse er at en kommando udføres forskelligt efter om en tjekboks er markeret eller ikke er markeret.  Hvorfor så skrive værdien til en anden kontrol, hvor det er meget vanskeligere at få fat i den relevante igen?

Men ønsker du virkelig noget sådant udført, så må du knytte et yderligere indeks til hver post i listeboksen, nemlig det indeks som tjekboksen har.
Derved vil du kunne identificere det rigtige 1-tal, ligegyldigt hvilket listindekx, det har.  Men som sagt, det virker total, codyl mærkeligt, det du har gang i.  Se om andre har lyst til at skrive kodeeksempler.  Læs om arrays i hjælpen, det er også en vej.

M.v.h.  Jørn

Jamen Så tak Jørn!Det kan godt være at det er lidt molbo agtigt"men hvad ved jeg",man skal jo starte et sted...

M.V.H. Kim

Hej Kim.

Altså.  Er det bare en øvelse?  Eller skal det bruges til noget?

Jeg har lavet et eksempel med 5 tjekbokse der skriver deres eget index til en list, når de sætter aktive.

Dim a As Integer

Private Sub Check1_Click(Index As Integer)
  If Check1(Index).Value = 1 Then
        List1.AddItem Check1(Index).Index
      Else
        If List1.ListCount = 0 Then Exit Sub
        For a = 0 To List1.ListCount - 1
          List1.ListIndex = a
          If List1.Text = Check1(Index).Index Then
              List1.RemoveItem a
              Exit Sub
          End If
        Next a
  End If
End Sub

Det virker hos mig.

Hej Jørn

Alt er bare øvelse for mig her i starten,Jeg har kun leget med VB i 3 uger nu og prøver så godt jeg kan at lavet nogle projekter jeg har sat mig i hovdet.
Men forhåbentlig bliver jeg bedre en dag.
Du skal i hvert tilfælde have tak "Det Virkede"...

M.V.H.  Kim