|
Офисное программирование - Создание VBA-программ |
Страница 19 из 51
Создание VBA-программ
4.1. Элемент управления ListBox
В данной главе будут анализироваться VBA-программы, создаваемые в приложении Word без вывода результата в документ Word, поэтому программы применимы во всех приложениях пакета MS Office. Рассматриваемые примеры используют весь теоретический материал, рассмотренный в главах 1–3, а также добавляют новые возможности программирования. Во многих создаваемых приложениях используют возможности массивов. Для доступа к элементам массивов часто применяют элемент управления ListBox. Элемент управления ListBox (список) создается с помощью кнопки Список
(ListBox). Данный элемент нужен для хранения списка значений. Из списка пользователь может выбрать одно или несколько значений, которые в последующем могут использоваться в тексте программы. Наиболее часто используемые свойства элемента управления ListBox: ListIndex – возвращает номер текущего элемента списка, нумерация элементов списка начинается с нуля; Listcount – возвращает число элементов списка; TopIndex – возвращает элемент списка с наибольшим номером; columnCount – устанавливает число столбцов в списке; textcolumn – устанавливает столбец в списке, элемент которого возвращается свойством text; text – возвращает выбранный в списке элемент; List (row, column) – возвращает элемент списка, стоящий на пересечении указанных строки и столбца; RowSourse – устанавливает диапазон, содержащий элементы списка; ControlCourse – устанавливает диапазон (ячейку), куда возвращается выбранный элемент из списка; multiSelect – устанавливает способ выбора элементов списка. Допустимые значения: • fmMultiSelectSingle – выбор только одного элемента; • fmMultiSelectMulti – разрешен выбор нескольких элементов посредством либо щелчка, либо нажатием клавиши Пробел; • fmMultiSelectExtended – разрешено использование клавиши shift при выборе ряда последовательных элементов списка; selected – допустимые значения: True (если элемент списка выбран) и False (в противном случае), используется для определения выделенного текста, когда свойство multiSelect имеет значение fmMultiSelectMulti или fmMultiSelectExtended; columnWidths – устанавливает ширину столбцов списка. Синтаксис:
columnWidths = string,
где String – строка, устанавливающая ширину столбцов.
В примере устанавливается ширина каждого из трех столбцов списка:
With ListBox1 ColumnCount=3 ColumnWidths = “20;30;30” end With
columnHeads – допустимые значения: True (выводятся заголовки столбцов раскрывающего списка) и False (в противном случае); listStyle – допустимые значения: • fmListStylePlain – выбранный элемент из списка выделяется цветом; • fmListStyleOption – перед каждым элементом в списке располагается флажок, и выбор элемента из списка соответствует установке этого флажка; boundColumn – устанавливает тип, возвращаемый свойством Value. А именно: • если свойство boundColumn равно 0, то свойство value возвращает индекс выбранной строки; • если свойство boundColumn принимает значение из диапазона от 1 до количества столбцов в списке, то свойство value возвращает элемент из выбранной строки, стоящей в столбце, определенном свойством boundcolumn. Наиболее часто используемые методы элемента управления ListBox : clear – удаляет все элементы из списка; RemoveItem (index) – удаляет из списка элемент с указанным номером, где index – номер элемента; AddItem ([item[,varIndex]]) – добавляет элемент в список, где item – элемент (строковое выражение), добавляемый в список, и varIndex – номер добавляемого элемента. Заполнить список можно одним из следующих способов.
Поэлементно, если список состоит из одной колонки
With ListBox1 AddItem «июнь» AddItem «июль» AddItem «август» ListIndex=0 End With
Массивом, если список состоит из одной колонки
With ListBox1 List=Array(«июнь»,"июль","август") ListIndex = 1 End With
Из диапазона A1:B4, в который предварительно введены элементы списка. Результат выбора (индекс выбранной строки) выводится в ячейку С1
With ListBox1 ColumnCount = 2 RowSourse = «A1:B4» ControlSourse = «C1» BoundColumn=0 End With
Поэлементно, если список состоит из нескольких колонок, например двух
With ListBox1 ColumnCount = 2 AddItem «июнь» List(0,1)="сессия" AddItem «июль» List(1,1)="каникулы" AddItem «август» List(2,1)="отработка" End With
Массивом, если список состоит из нескольких колонок, например двух
Dim A(2,1) As string A(0,0) = «июнь» A(0,1) = «сессия» A(1,0) = «июль» A(1,1) = «каникулы» A(2,0) = «август» A(2,1) = «отработка» With ListBox1 ColumnCount = 2 List = A End With
Задачи на закрепление материала
Пример 20. Создать программу, которая при вводе имени пользователя и числа от 1 до 10 в текстовые поля формы выдает в метку label1 предсказание в зависимости от введенного значения. При разработке программы использовать одномерный массив, объявляемый в процедуре Fortuna , содержащей все возможные предсказания. Технология выполнения 1. Откройте приложение Word, сохраните документ и перейдите в редактор VBA. 2. Создайте форму (рис. 38). 3. Пропишите обработчики событий нажатия на кнопки «Вывести предсказание » и «Закрыть ».
Рис. 38. Форма примера 20 в рабочем состоянии
При обработке процедуры нажатия кнопки Вывести можно опираться на нижеприведенный листинг. Примечание. Обратите внимание на создание процедуры, содержащей массив предсказаний, и вызов этой процедуры из процедуры нажатия кнопки «Вывести предсказание », учитывая «защиту от дурака».
Sub fortune(a As String, b As Integer) Dim today(1 To 10) today(1) = «Вы станете богатым и знаменитым за 15 минут» today(2) = «Вам предстоит обед с незнакомцем» today(3) = «Стоимость Ваших вкладов удвоится!» today(4) = «Вы получите большой букет от своего почитателя» today(5) = «Вы опоздаете на пару» today(6) = «Все Ваши мечты сбудутся» today(7) = «Вам вернут долг» today(8) = «Вы выучите лекцию и ответите на опрос» today(9) = "Вы встретите своего давнего знакомого» today(10) = «На Вас обратят внимание» Label3.Caption = a & «, Вас ожидает следующее:» & today(b) End Sub
Private Sub CommandButton1_Click() Dim a As String Dim b As Integer a = TextBox1.Text b = Val(TextBox2.Text) If b > 0 And b <= 10 Then Call fortune(a, b) Else: Label3.Caption = «Вы ввели не то число!» End If End Sub
4. Откомпилируйте программу. 5. Запустите приложение на выполнение. Пример 21. Создать форму, в текстовые поля которой вводятся имя и пароль. Если пароль введен правильно, то пользователь получает доступ к списку некоторой группы, отражаемой в элементе listbox, при этом выдается сообщение о допуске пользователя к списку. Список организуется программно. Технология выполнения 1. Откройте приложение Word, сохраните документ и перейдите в редактор VBA. 2. Создайте форму (рис. 39).
Рис. 39. Форма примера 21 в рабочем состоянии. Сообщение о допуске
3. Переименуйте форму с Name на frmOne. Для этого активизируйте форму (щелкните на ней), перейдите в окно свойств объекта (properties), выделите свойство Name (первая строка) и пропишите frmOne. 4. Создайте текстовые поля textbox1 и textbox2. Первое будет использоваться для ввода имени, второе – для ввода пароля, поэтому переименуйте их на txtName и txtPassword (аналогично пункту 3). 5. Как правило, вводимый пароль не отображается в поле. Чтобы вводимые символы пароля заменялись звездочками, выделите поле пароля, затем в окне Properties найдите свойство PasswordChar и задайте для него значение «*». 6. Добавьте кнопки. Переименуйте первую кнопку на btnOK . Кнопка OK должна быть кнопкой по умолчанию. Это означает, что на нажатие клавиши Enter форма должна реагировать так же, как и на щелчок этой кнопки. Для этого измените значение свойства Default кнопки btnOK на True. 7. Переименуйте вторую кнопку на btnCancel . Щелчок кнопки Cancel обычно эквивалентен нажатию клавиши Escape. Чтобы в вашем окне было именно так, задайте значение «True» для свойства Cancel . 8. Создайте процедуру закрытия формы. 9. Создайте процедуру работы кнопки ОК. В заготовке процедуры
Private Sub btnOK_Click() End Sub
вставьте оператор MsgBox Txtname & «получил(а) доступ» . В этом операторе текст, введенный в поле txtName, объединяется с поясняющей строкой и выводится в информационном окне. 10. Создайте процедуру для проверки пароля. Закроем доступ к кнопке OK, пока не введен верный пароль. Для этого измените свойство Enabled кнопки OK на False (доступ к кнопке закрыт) и введите новую процедуру:
Private Sub CheckOK() Const pas = «abc» 'Пароль If Txtpassword = pas Then 'Если текст в поле Txtpassword совпадает с паролем, то btnOK.Enabled = True 'доступ к кнопке OK открыт Else 'иначе btnOK.Enabled = False 'доступ к кнопке OK закрыт End If End Sub
Процедура должна запускаться при вводе нового пароля. Для этого в окне формы щелкните дважды второе текстовое поле (предназначенное для пароля). В появившуюся процедуру
Private Sub Txtpassword_Change() End Sub
введите единственную команду CheckOK , которая при внесении любых изменений в поле пароля будет запускать процедуру проверки пароля. 11. Заполните список группы. Расположите на форме элемент управления ListBox. По умолчанию его имя ListBox1. Оставим его в таком виде. Заполнить список можно в операторе With:
With ListBox1 List = Array(«Иванова Марина», «Гончарова Елена», «Зотова Татьяна», «Кринченко Светлана», «Орлов Сергей», «Петров Александр») End With
Здесь List – свойство элемента ListBox , которое является массивом. Вставьте этот оператор в уже имеющуюся процедуру btnOK_Click . 12. Проверка работы формы. После запуска формы введите свое имя и верный пароль. Должна стать доступной кнопка ok. После ее нажатия появляются сообщение «Имя получил(а) доступ» и заполненный список. После нажатия кнопки Закрыть форма должна закрыться.
Дополнительные задания
13. Дополните список с помощью метода AddItem. Синтаксис:
ИмяСписка. AddItem «новый элемент списка».
14. Обработайте событие, связанное со щелчком по форме (мимо элементов управления). Пусть в ответ на это выводится какое-нибудь сообщение типа «Вы не попали по кнопке!».
|
|