p>
MSFlexGrid1.TextMatrix (k, 0) = . Cells (u, 1)
MSFlexGrid1.TextMatrix (k, 1) = . Cells (u, 2)
MSFlexGrid1.TextMatrix (k, 2) = . Cells (u, 3)
MSFlexGrid1.TextMatrix (k, 3) = . Cells (u, 4)
MSFlexGrid1.TextMatrix (k, 4) = . Cells (u, 5)
MSFlexGrid1.TextMatrix (k, 5) = . Cells (u, 6)
k = k + 1
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
End With
End If
Next u
If k = 1 Then MsgBox "Модель не знайдена "
Else
MsgBox "Введіть модель"
End If
Case 7
If Val (Combo2.Text)
MSFlexGrid1.Clear
With MSFlexGrid1
TextMatrix (0, 0) = "Модель"
TextMatrix (0, 1) = "Шина AGP "
TextMatrix (0, 2) = "Частота ядра/пам'яті"
TextMatrix (0, 3) = "об'ем пам'яті"
TextMatrix (0, 4) = "Тип пам'яті"
TextMatrix (0, 5) = "Ціна"
End With
Dim j As Integer
k = 1
For j = 1 To zpust
If Val (Form1.excelist.ActiveWorkbook.ActiveSheet.Cells (j, 6))> = Val (Combo2.Text) And Val (Form1.excelist.ActiveWorkbook.ActiveSheet.Cells (j, 6)) <= Val (Combo3.Text) Then
With Form1.excelist.ActiveWorkbook.ActiveSheet
MSFlexGrid1.TextMatrix (k, 0) = . Cells (j, 1)
MSFlexGrid1.TextMatrix (k, 1) = . Cells (j, 2)
MSFlexGrid1.TextMatrix (k, 2) = . Cells (j, 3)
MSFlexGrid1.TextMatrix (k, 3) = . Cells (j, 4)
MSFlexGrid1.TextMatrix (k, 4) = . Cells (j, 5)
MSFlexGrid1.TextMatrix (k, 5) = . Cells (j, 6)
k = k + 1
End With
End If
Next j
With MSFlexGrid1
Rows = k
Col ​​= 5
Sort = 1
Rows = 70
End With
Else
MsgBox "Невірно заданий діапазон"
End If
Case Else
MsgBox "Невдача"
End Select
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Option4.Enabled = True
Option5.Enabled = True
Option6.Enabled = True
Option7.Enabled = True
Option8.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Option7.Value = False
Option8.Value = False
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Else
MsgBox "Виберіть дію"
End If
e = False
End Sub
У будь-який момент можна переглянути інформацію про програму:
В
При натисканні клавіші вихід з'являється вікно "Ви дійсно бажаєте вийти? ", при позитивному відповіді програма зберігає всі зміни і закривається.
Висновок:
Використані ресурси:
Програма використовує наступне компоненти:
- Microsoft Flex Grid Control 6.0 (SP3)
- Microsoft Windows Common Controls 6.0 (SP4)
і бібліотеки:
- Visual Basic for Applications
- Visual Basic runtime objects and procedures
- Visual Basic objects and procedures
- Microsoft Excel 10.0 Object Library
Відмінні особливості програми:
- Практично всі форми програми забезпечені допомогою, тобто областями в яких з'являється інформація про об'єкт, на який наведений курсор. Наприклад в формі пошуку при русі курсору по об'єкту MSFlexGrid з'являється інформація про кількість знайдених відеокарт. p> - База даних має крім файлу з інформацією про відеокарти (. dat) файли з довільним доступом. Файл настройок зберігає інформацію про становище прапорців і кількості дій в історії. Файл історії зберігає всі відомості історії.
- У програмі ведеться історія додавання, видалення, зміни відеокарт (а також очищення) з точністю до секунд. Її можна переглянути в будь-який момент і очистити, якщо виникне необхідність.
- Пошук по базі даних ведеться по кількістю введених символів. Наприклад якщо ви ввели "GeF" результатом будуть всі відеокарти GeForce ...
- Існує функція пошуку в діапазоні цін:
від ...
до ...
і від ... до ...
- Використано захисту від невірних дій. При виході, видаленні, очищення історії з'являється вікно підтвердження. p> - При оформленні програми використано зображення реальних відеокарт.
У процесі написання програми мною були освоєні ази програмування на VB 6.5. Вивчено основні операції функції і процедури.
