Jak zaznaczyć z poziomu kodu kilka pozycji w checklistboxie

[Crossiik]

Cześć tak jak w temacie czy wie ktoś jak zaznaczyć z poziomu kodu kilka pozycji w checklistboxie. A jeszcze lepiej jak zrobić by program zaznaczył te pozycje które są podane w pliku TXT.
 

Dim plik = New IO.StreamWriter(​My.Application.I​nfo.DirectoryPat​h & "\mody.txt", True)

For i = 0 To CheckedListBox1.​CheckedItems.Cou​nt - 1

plik.WriteLine(C​heckedListBox1.C​heckedItems(i))

Next

plik.Close()

 

Uzyskałem taki kod, problem w tym że teraz program zaznacza tylko pierwszą linie z txt.
 

[somanyidiots]

 Może na początku to wyjaśnię trochę.... w checklistboxie elementy są indeksowane od 0... czyli... Jeżeli masz listboxa  A B C D i chcesz zaznaczyć a i d to w pliku tekstowym jeden pod drugim wpisujesz :

0

3

Ponieważ A jest elementem zerowym a D jest 3.

 

 

Dim FILE_NAME As String = "C:\GS\test.txt"

        If System.IO.File.Exists(FILE_NAME) = True Then

            Dim objReader As New System.IO.StreamReader(FILE_NAME)

            Do While objReader.Peek() <> -1

                CheckedListBox1.SetItemChecked((objReader.ReadLine()), True)

            Loop

 

        Else

            MsgBox("File Does Not Exist")

        End If

[Crossiik]

okej, dziękuje za odpoweidź tylko czy położenie "A" w txt ma znaczenie? czy jeśli w list checkboxie będzie ABC a w TXT CBA to czy przypadkiem jak zechce zaznaczyć C to mi nie zaznaczy A i na odwrót?  :rolleyes:

[somanyidiots]

nie ma znaczenia tylko w pliku textowym wpisz indexy checkboxów.. czyli od zera do iluś tam

[alex9819]

okej, tyle że to użytkownik będzie wpisywał to do txt a dokładniej za pomocy programu to może dodać index 0 a potem po dodaniu index +1? Tyle że to wszystko będzie zapisywane jednym ciągiem z enterami :l

[somanyidiots]

nie rozumiem ciebie.. objaśnij to jakoś jaśniej.. nie wiem..

[Crossiik]

Okej sorry, Mój cały plan polega na zapisie, zapisie zaznaczonych już w boxie elementów a po restarcie apki wczytania ich np zaznaczyłem C i po restarcie ma być ona nadal. Postanowiłem użyć txt, program rozpoznawał zaznaczone pozycje i ich NAZWY zapisywał do txt. Nastała pora na odczyt, program tym razem czytał linijkę, odnajdywał ją w boxie i zaznaczał, problem w tym że program czytał tylko pierwszą linijkę z pliku txt czyli jeśli czały plik TXT składał się z C to pięknie zaznaczało mi C gdy natomiast było : A  B C (Każdy w innej lini) to program zupełnie nie reagował i tu jest problem. Krótko mówiąc chce by dało się to coś wczytać , może za dużo kombinuje i jest jakaś opcja do tego.
                                                                      

                                                                         

Pozdrawiam Crossiik.

[somanyidiots]

jutro się tym zajmę i pokażę co i jak bo teraz jestem na tablecie.. a nie chce mi się teraz myśleć.. To jest proste ;P.. 

okej edit.. zająłem się tym.

patrz niżej.

[somanyidiots]

Coś jest zjebane bo nie mogę użyć wielu code... dobra bez tego jadę

 

 

otwieranie z pliku zaznaczonych indeksów:

 

 

        Dim FILE_NAME As String = "C:\GS\test.txt"

        Dim objReader As New System.IO.StreamReader(FILE_NAME)

        If System.IO.File.Exists(FILE_NAME) = True Then

 

 

            Do While objReader.Peek() <> -1

                CheckedListBox1.SetItemChecked((objReader.ReadLine()), True)

            Loop

 

        Else

            MsgBox("plik nie istnieje")

 

        End If

        objReader.Close()

 

 

zapisywanie 

 

      Dim file As StreamWriter

        Dim indexChecked As Integer

 

        file = My.Computer.FileSystem.OpenTextFileWriter("C:\GS\test.txt", False)

 

        For Each indexChecked In CheckedListBox1.CheckedIndices

 

            file.WriteLine(indexChecked.ToString())

        Next

        file.Close()

 

 

i możesz uzyć 

 

    Private Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

 

    End Sub

 

aby wstawić tam kod zapisu do pliku, aby przy zamknięciu się zapisywało do pliku

[Crossiik]

śmiga aż miło, dziękuje ci bardzo .