Список (ListBox) и поле со списком (ComboBox)

2015-11-20

1280

Обсуждений (0)

0.00 из 5.00 0 оценок

⇐ Предыдущая 7 8 9 10 111213 14 15 16 Следующая ⇒

Список (ListBox)

Предположим, что нам надо создать следующую форму, с помощью которой пользователь мог указывать преподавателей кафедры:

ТРЕБУЕТСЯ: создать форму (выполните самостоятельно!) и написать программу инициализации формы, в которой:

§ Список преподавателей должен быть в 2 колонки (1-я колонка – Ф.И.О, 2-я – Должность).

§ В список заносятся только преподаватели кафедры АСУ.

§ Предусмотрена возможность выбора нескольких элементов.

§ Элементы списка формируются на основе данных, расположенных на листе Кадры в книге C:\St\Институт.xls (Рис. 10‑10):

Рис. 10‑10. Структура базы данных Кадры

Начальные условия

1) при создании формы присвойте следующие имена элементам управления:

кнопке ОК – cmdOK

кнопке Отмена – cmdОтмена

списку – lstСотрудник

2) саму форму назовите frmСписок_в_2_колонки.

Тогда программа инициализации формы и 2 её подпрограммы будут выглядеть, например, так:

1)	Option Base 1
2)	Dim flagНаличие As Integer
3)	Dim flag As Integer
4)	Sub Список_2_колонки()
5)	Dim Преподаватели() As String
6)	Dim ПреподавателиТранс () As String
7)	Dim НомерСтроки As Integer
8)	Dim КолСотрудников As Integer
9)	On Error GoTo Ошибка
10)	'1. Проверяем существование книги C:\St\Институт.xls
11)	Call НаличиеКниги("C:\St\Институт.xls")
12)	If flagНаличие = 0 Then Exit Sub
13)	'2. Проверяем существование листа Кадры
14)	Call НаличиеЛиста("Кадры")
15)	If flag = 0 Then Exit Sub
16)	'3. Отбираем сотрудников кафедры АСУ в массив _ Преподаватели:
17)	НомерСтроки = 3
18)	КолСотрудников = 0
19)	While Trim(Cells(НомерСтроки, 2).Value) <> ""
20)	If Trim(Cells(НомерСтроки, 1).Value) = " АСУ" Then
21)	КолСотрудников = КолСотрудников + 1
22)	ReDim Preserve Преподаватели(2, КолСотрудников)
23)	Преподаватели(1, КолСотрудников) = _ Cells(НомерСтроки, 2).Value
24)	Преподаватели(2, КолСотрудников) = _ Cells(НомерСтроки, 3).Value
25)	End If
26)	НомерСтроки = НомерСтроки + 1
27)	Wend
28)	'4. Транспонируем массив Преподаватели:
29)	ReDim ПреподавателиТранс(КолСотрудников, 2)
30)	For i = 1 To КолСотрудников
31)	ПреподавателиТранс (i, 1) = Преподаватели(1, i)
32)	ПреподавателиТранс (i, 2) = Преподаватели(2, i)
33)	Next i
34)	'5. Заполняем список, состоящий их 2-х колонок и _
35)	выводим форму на экран:
36)	With frmСписок_в_2_колонки.lstСотрудник
37)	.ColumnCount = 2
38)	.MultiSelect = fmMultiSelectMulti
39)	.List = ПреподавателиТранс
40)	End With
41)	frmСписок_в_2_колонки.Show
42)	Exit Sub
43)	Ошибка:
44)	MsgBox "Программа выполнила недопустимую операцию и _ будет закрыта!", vbCritical, "Сообщение об ошибке"
45)	End Sub

1)	Sub НаличиеКниги(ПолноеИмяФайла)
2)	Dim ПолноеИмяФайла As String
3)	Dim Файл As String
4)	flagНаличие = 1
5)	flag = 0
6)	'1. Проверяем существование книги:
7)	Файл = Dir(ПолноеИмяФайла)
8)	If Файл = "" Then
9)	flagНаличие = 0
10)	MsgBox "Файл " & ПолноеИмяФайла & " не найден!", _ vbInformation
11)	Exit Sub
12)	End If
13)	'2. Проверяем, открыта ли книга:
14)	For i = 1 To Workbooks.Count
15)	If Workbooks(i).Name = Файл Then
16)	Workbooks(i).Activate
17)	flag = 1
18)	Exit For
19)	End If
20)	Nexti
21)	If flag = 0 Then _ Workbooks.Open Filename:= ПолноеИмяФайла
22)	End Sub

1)	Sub НаличиеЛиста(Лист)
2)	Dim Лист As String
3)	'Проверяем наличие листа:
4)	flag = 0
5)	For i = 1 To Worksheets.Count
6)	If Worksheets(i).Name = Лист Then
7)	flag = 1
8)	Exit For
9)	End If
10)	Nexti
11)	If flag = 1 Then
12)	Sheets(Лист).Select
13)	Else
14)	MsgBox "Не могу сформировать список - лист " & _ Лист & " не найден!", vbExclamation, _ “Сообщение об ошибке”
15)	Exit Sub
16)	End If
17)	End Sub

Замечания:

1. Подпрограмма НаличиеКниги проверяет, существует ли нужная нам книга.

2. Подпрограмма НаличиеЛиста проверяет, существует ли искомый лист.

3. Приведенный пример не является догмой, а руководством к действию. вы можете написать свой код – гораздо лучший J!

Задание:

В Модуль10 наберите и протестируйте представленные выше программы.

Определение выбранных элементов списка

Расширим нашу задачу и подсчитаем количество выбранных сотрудников. Полученную цифру выведем на экран.

Для того чтобы определить, какие элементы списка выбрал пользователь, воспользуемся свойством 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.

2015-11-20

1280

Обсуждений (0)

0.00 из 5.00 0 оценок

⇐ Предыдущая 7 8 9 10 111213 14 15 16 Следующая ⇒

Обсуждение в статье: Список (ListBox) и поле со списком (ComboBox)

Обсуждений еще не было, будьте первым... ↓↓↓