Офисное программирование

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