Проект 5.
Создание неупорядоченного простого списка и его сортировка. Проекту присвоено имя Pro5.
При разработке проекта создаются следующие формы:
1. Загрузочная форма Form500, которая отличается от формы Form100 проекта Pro1 только значением Caption = Создание неупорядоченного простого списка и его сортировка (для метки Label500);
2. Форма frmSPISOK501, со свойствами Name = frmSPISOK501 и Caption = Простой список, содержащая по сравнению с frmSPISOK401 в Pro4 только cmdCommand401 с Caption = OK;
3. Форма frmSPISOK502 - со свойствами такими же как у frmSPISOK501, но из всех ЭУ имеется только простой список и Sorted = True;
4. frmDialog501 – такая же как и frmDialog201 в Pro2;
5. frmMenu501 – основные свойства такие же как у других ЭУ; аналогична frmDialog401.
Форма frmMenu501 имеет следующий вид:
Проект имеет следующий состав процедур:
модуль процедур общего назначения под именем Mod1
Attribute VB_Name = "Mod1"
Public NG As Integer 'Номер группы
Public PS As Integer ‘ Признак создания списка
Sub Main()
PS = 0
frmMenu501.Show
End Sub
Public Sub New_Spis()
NG = InputBox("Введите № группы")
frmSPISOK501.Form_Load
frmDialog501.Form_Load
frmDialog501.Show vbModal
frmSPISOK501.Show
PS = 1
End Sub
Public Sub View_Spis()
If PS <> 1 Then
MsgBox "Список не создан"
Else
frmSPISOK501.Show
End If
End Sub
Sub Sort_Spis()
Dim i As Integer
frmSPISOK502.Form_Load
For i = 0 To frmSPISOK501.lstGrup.ListCount - 1
frmSPISOK502.lstGrup.AddItem _
frmSPISOK501.lstGrup.List(i)
Next i
frmSPISOK501.lstGrup.Clear
For i = 0 To frmSPISOK502.lstGrup.ListCount - 1
frmSPISOK501.lstGrup.AddItem _
frmSPISOK502.lstGrup.List(i)
Next i
Unload frmSPISOK502
MsgBox "Сортировка закончена"
End Sub
процедуры обработки событий форм
'Процедуры обработки событий формы Form500
Private Sub Command501_Click()
Mod1.Main
End Sub
Private Sub Command502_Click()
End
End Sub
'Процедуры обработки событий формы frmDialog501
Public Sub cmdCommand501_Click()
frmSPISOK501.lstGrup.AddItem _
txtFamiliy.Text & " " & _
txtName.Text & " " & _
txtOtchestvo.Text
End Sub
Public Sub cmdCommand502_Click()
txtFamiliy.Text = ""
txtName.Text = ""
txtOtchestvo.Text = ""
End Sub
Public Sub cmdCommand503_Click()
frmDialog501.Hide
End Sub
Public Sub Form_Load()
txtZAGOLOVOK_Change
End Sub
Public Sub txtZAGOLOVOK_Change()
txtZAGOLOVOK.Text = "Список группы " & Str(Mod1.NG)
End Sub
'Процедуры обработки событий формы frmMenu501
Public Sub Form_Load()
End Sub
Private Sub mnuCancel_Click()
Unload frmSPISOK501
Unload frmMenu501
Form500.Show
End Sub
Private Sub mnuNew_Click()
Mod1.New_Spis
End Sub
Private Sub mnuSort_Click()
If PS = 0 Then
MsgBox "Список не создан"
Else
Mod1.Sort_Spis
End If
End Sub
Private Sub mnuView_Click()
Mod1.View_Spis
End Sub
'Процедуры обработки событий формы frmSPISOK501
Private Sub cmdCommand501_Click()
frmSPISOK501.Visible = False
End Sub
Public Sub Form_Load()
txtZAGOLOVOK_Change
End Sub
Private Sub Label1_Click()
End Sub
Public Sub txtZAGOLOVOK_Change()
txtZAGOLOVOK.Text = "Список группы " & Str(Mod1.NG)
End Sub