Добавил:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:02 семестр / Курсовики Visual Basic / Курсовик. Программирование на Visual Basic. Вариант №10 / Notepad++ Document
.txt Dim ShoesName(100), ShoesArticle(100) As String
Dim ShoesValue(100), ShoesPrice(100), i As Integer
Private Sub Combo1_Click()
List1.Clear
List2.Clear
List3.Clear
Dim N As Integer
For N = 0 To i
If ShoesArticle(N) = Combo1.Text Then
List1.AddItem (ShoesName(N))
List2.AddItem (ShoesValue(N))
List3.AddItem (ShoesPrice(N))
End If
Next N
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim N As Integer
i = -1
'Загрузка значений в массив
Open App.Path + "\data.txt" For Input As #1
Do Until EOF(1)
i = i + 1
Input #1, ShoesArticle(i), ShoesName(i), ShoesValue(i), ShoesPrice(i)
Loop
Close #1
'Выбераем только женскую обувь
For N = 0 To i
If ShoesArticle(N) = "Ж" Then
List4.AddItem (ShoesName(N))
List5.AddItem (ShoesValue(N))
End If
Next N
End Sub
Private Sub List1_Click()
End Sub
Dim ShoesValue(100), ShoesPrice(100), i As Integer
Private Sub Combo1_Click()
List1.Clear
List2.Clear
List3.Clear
Dim N As Integer
For N = 0 To i
If ShoesArticle(N) = Combo1.Text Then
List1.AddItem (ShoesName(N))
List2.AddItem (ShoesValue(N))
List3.AddItem (ShoesPrice(N))
End If
Next N
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim N As Integer
i = -1
'Загрузка значений в массив
Open App.Path + "\data.txt" For Input As #1
Do Until EOF(1)
i = i + 1
Input #1, ShoesArticle(i), ShoesName(i), ShoesValue(i), ShoesPrice(i)
Loop
Close #1
'Выбераем только женскую обувь
For N = 0 To i
If ShoesArticle(N) = "Ж" Then
List4.AddItem (ShoesName(N))
List5.AddItem (ShoesValue(N))
End If
Next N
End Sub
Private Sub List1_Click()
End Sub
Соседние файлы в папке Курсовик. Программирование на Visual Basic. Вариант №10