Расширим нашу задачу и подсчитаем количество выбранных сотрудников. Полученную цифру выведем на экран.
Для того чтобы определить, какие элементы списка выбрал пользователь, воспользуемся свойством Selected:
Option Base 1
Private Sub cmdOK_Click()
Dim Сотрудников As Integer
For i = 0 To lstСотрудник.ListCount - 1
If lstСотрудник.Selected(i) = True Then _
Сотрудников = Сотрудников + 1
Next i
MsgBox "Выбрано " & Сотрудников & " сотрудников!", _
vbInformation, "Сообщение"
Unload Me
End Sub
Задание:
1. В модуле формы frmСписок_в_2_колонки наберите и протестируйте программу cmdOK_Click.
2. Напишите и протестируйте программу cmdОтмена_Click.
Поле со списком (ComboBox)
Предположим, что нам надо создать форму, с помощью которой пользователь указывает нужную ему кафедру:
ТРЕБУЕТСЯ: создать форму (выполните самостоятельно!) и написать программу инициализации формы, в которой элементы поля со списком формируются на основе данных, расположенных в первом столбце на листе Кадры в книге C:\St\Институт.xls (Рис. 10‑10):
Начальные условия
1) при создании формы присвойте следующие имена элементам управления:
кнопке ОК – cmdOK
кнопке Отмена – cmdОтмена
полю со списком – cboКафедра
2) саму форму назовите frmКафедра.
Тогда код, который формирует поле со списком, запишется так:
Sub ПолеСоСписком()
'Объявляем переменные и массивы:
Dim Кафедры() As String
Dim Кафедра As String
Dim НомерСтроки As Integer
Dim КолСотрудников As Integer
Dim КолКафедр As Integer
'1. Проверяем существование книги C:\St\Институт.xls
Call НаличиеКниги("C:\St\Институт.xls")
If flagНаличие = 0 Then Exit Sub
'2. Проверяем существование листа Кадры
Call НаличиеЛиста("Кадры")
If flag = 0 Then Exit Sub
'3. Формируем список кафедр, которые встречаются в первом _
столбце на листе Кадры:
НомерСтроки = 3
Do While Trim(Cells(НомерСтроки, 1).Value) <> ""
НомерСтроки = НомерСтроки + 1
Loop
КолКафедр = 1 'кол-во кафедр
ReDim Preserve Кафедры(КолКафедр) As String
Кафедры(КолКафедр) = Trim(Cells(3, 1).Value)
For i = 3 To НомерСтроки - 1
If Trim(Cells(i + 1, 1).Value) <> "" Then
Кафедра = Trim(Cells(i + 1, 1).Value)
For j = 1 To КолКафедр
If Кафедра = Кафедры(j) Then GoTo n3
Next j
КолКафедр = КолКафедр + 1
ReDim Preserve Кафедры(КолКафедр) As String
Кафедры(КолКафедр) = Trim(Cells(i + 1, 1).Value)
End If
n3: Next i
'4. Сортируем список кафедр:
For i = 1 To КолКафедр - 1
Кафедра = Кафедры(i)
k = i
For j = i + 1 To КолКафедр
If Кафедры(j) >= Кафедра Then
Else
Кафедра = Кафедры(j)
Кафедры(j) = Кафедры (k)
Кафедры(k) = Кафедра
End If
Next
Next i
'5. Заполняем поле со списком и выводим форму на экран:
frmКафедра.cbo Кафедра.List = Кафедры
frmКафедра.Show
End Sub
Задание:
1. В Модуль10 наберите и протестируйте программу ПолеСоСписком.
2. В модуле формы frmКафедра напишите программу обработки события «щелчок/нажатие кнопки cmdОтмена», которая выгружает форму из памяти.
3. Оформите фрагмент сортировки одномерного массива в виде подпрограммы СортировкаМассива(КолЭлементов).
