Використання структури Select Case для обробки вхідних значень із поля зі списком

Date: 2015-10-07; view: 390.

Нестандартні діалогові вікна

Іноді з'ясовується, що можливостей діалогових вікон MsgBox і InputBox не вистачає, і тоді вам доводиться конструювати власні діалогові вікна. У своїх проектах прагніть використовувати одні і ті ж діалогові вікна, щоб всі додатки виглядали однаково.

Оболонкою називається функція, в якій викликаються інші функції і процедури. Оболонки спрощують програму і дозволяють створювати модулі, призначені для багаторазового використовування. Основна перевага оболонки полягає у тому, що ви можете всього один раз написати програмний код, а користуватися ним знову і знову. Розглянемо приклад:

Відкрийте вікно програми для попереднього прикладу. Додайте наступний фрагмент:

Private Sub cmdTryMe_Click()

Dim rс As String

rс = InputBox("Введіть ім'я:")

If rс = "АДМІНІСТРАТОР" Then

MsgBox "Здрастуй, адміністратор!"

Else

MsgBox "Привіт, " & re & "!"

End If

End Sub

3. Запустіть додаток.

4. Введіть в текстовому полі АДМІНІСТРАТОР і натисніть кнопку ОК.

Ви використовуєте властивості List1.Text і List1.Listlndex для отримання вхідних даних, скористаєтеся структурою Select Case для відображення вітального повідомлення на одній з чотирьох мов.

Об'єкт Властивість______Значення

Labell Caption (Напис) Міжнародна програма