none
Listbox Eintrag editieren

    Frage

  • Hallo ich habe eine Listbox die ich mit Einträgen gefüllt habe

    (Dateipade)

    diese möchte ich durchlaufen und möchte hierbei je nach Datentyp Dateien Kopieren, aber auch den Passenden Eintrag der Listbox anpassen/editieren

    Sprich wie im Beispiel - ist datei eine .jpg dann Kopiere die datei

    was mir fehlt ist wie kann ich meinen Listboxeintag editieren(sprich alter Eintrag "löschen" neuer Eintrag an seiner stelle)

    For i = 0 To Screen.ActiveForm!lstAttachments.ListCount - 1
         Select Case right(lstAttachments.ItemData(i), 4)
             Case ".jpg"
                MitJPG = True
                MyFSO.CopyFile lstAttachments.ItemData(i), CurrentProject.Path & "\temp\"
    
             Case ".bmp"
                MitBMP = True
                
             Case ".png"
                MitPNG = True
                
            Case Else
            
        End Select
    Next i
    wenn ich mit AddItem und RemoveItem arbeite haut das mir die For Next schleife auseinander weil die einträge dann nicht mehr richtig durchlaufen

    Donnerstag, 12. Oktober 2017 12:00

Antworten

  • Hallo MCDPone,

    wenn Du bei RemoveItem und AddItem den Index in Deinem Fall also das i verwendest sollte es funktionieren.

    Bei AddItem der zweite Parameter.

    Beispiel:

    For i = 0 To Liste0.ListCount - 1
        Liste0.RemoveItem i
        Liste0.AddItem CStr(i * 10), i
    Next i
    

    Mit diesem Code werden die ursprünglichen Einträge durch 0,10,20,30...

    ersetzt.

    • Als Antwort markiert MCDPone Dienstag, 17. Oktober 2017 11:28
    Freitag, 13. Oktober 2017 12:06

Alle Antworten

  • Hallo MCDPone,

    wenn Du bei RemoveItem und AddItem den Index in Deinem Fall also das i verwendest sollte es funktionieren.

    Bei AddItem der zweite Parameter.

    Beispiel:

    For i = 0 To Liste0.ListCount - 1
        Liste0.RemoveItem i
        Liste0.AddItem CStr(i * 10), i
    Next i
    

    Mit diesem Code werden die ursprünglichen Einträge durch 0,10,20,30...

    ersetzt.

    • Als Antwort markiert MCDPone Dienstag, 17. Oktober 2017 11:28
    Freitag, 13. Oktober 2017 12:06
  • Super danke 
    Dienstag, 17. Oktober 2017 11:28