Page 125 - 4450

Write #1, Список1.List(i), Список2.List(i),
Список3.List(i)
Next i
Close #1
End Sub

Private Sub Додати_Click()
Open "D:\Продажі.txt" For Append As #1
For i = 0 To Список1.ListCount - 1
Write #1, Список1.List(i), Список2.List(i),
Список3.List(i)
Next i
Close #1
End Sub

Private Sub Показати_Click()
Dim Код As String * 4, Ціна As String * 15
Dim Кількість As String * 15
Open "D:\Продажі.txt" For Input As #1
S = 0
Do While Not EOF(1)
Input #1, Код, Ціна, Кількість
Список4.AddItem Код & " " & Ціна & " " &
Кількість
S = S +Val( Ціна) *Val( Кількість)
Loop
Close #1
Список4.AddItem ""
Список4.AddItem ""
Список4.AddItem "Всього на " & S & " Грн"
End Sub

Для того щоб змінні, які відображуються в списку 4
мали однакову довжину, що необхідно для вирівнювання
інформації в стовпчиках при її відображені, ми використали
оператор Dim Ім’я As String*N. Він вказує, що VB повинен
створити рядкову змінну фіксованої довжини (довжиною N
символів).
На рисунках 19.1 та 19.2 відображені вікна з
результатами роботи додатка.

123