VB6 zapis odczyt pliku
: 30 kwie 2022, 13:51
Witam .
Próbuje opanować podstawy zapisu / odczytu pliku w VB6 , jakoś poszło , tylko nie potrafię zmusić do współpracy TextBox,a ( Pole tekstowe 5 )aby wyświetlał mi zawartość pliku tak jak Lista czyli linijka po linijce .
Podpowie kto jak to zrobić ?
Próbuje opanować podstawy zapisu / odczytu pliku w VB6 , jakoś poszło , tylko nie potrafię zmusić do współpracy TextBox,a ( Pole tekstowe 5 )aby wyświetlał mi zawartość pliku tak jak Lista czyli linijka po linijce .
Podpowie kto jak to zrobić ?
Code: [Zaznacz cały] [Rozwiń/Zwiń]
- Private Sub Command1_Click()
- Open "C:\aaa.txt" For Output As #1
- Print #1, Text1.Text
- Print #1, Text2.Text
- Print #1, Text3.Text
- Print #1, Text4.Text
- Close #1
- End Sub
- Private Sub Command2_Click()
- List1.Clear
- Open "C:\aaa.txt" For Input As #1
- Do While EOF(1) = False
- Line Input #1, a
- List1.AddItem a
- Text5.Text = a
- ' ??????
- Loop
- Close #1
- End Sub