Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 49 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

49
Elem.Font.Name = “Ms Sans Serif”
Elem.Font.Bold = True
Elem.Font.Size = 20
Next Elem
Else
MsgBox “Пароль не корректен. Повторите ввод пароля”
End If
End Sub
Function GetPassword ( )
GetPassword = Lcase (InputBox(“Введите пароль:”,”Пароль”))
End Function
В Proc2 ключевое слово ElseIf с последующим условием использу-
ется дважды. Новое условие вносит в порядок выполнения команд допол-
нительные изменения, если проверка первого условия закончилась неуда-
чей. В Proc2 первое условие указано сразу за ключевым словом If. В нем
проверяется равенство переменной Password строке ”levell”. Если пере-
менная не равна строке, VB переходит
к первому ключевому слову ElseIf,
где проверяет следующее условие – равенство переменной Password стро-
ке “level2”. Начиная с этого момента, программа использует только новое
условие, “забывая” о старом. Если равенства опять нет, управление пере-
ходит к следующему ключевому слову ElseIf и т. д.
В строке 3 процедуры Proc2 вызывается функция GetPassword, в ко-
торой использованы новые элементы. Рассмотрим более подробно эти
элементы.
Function GetPassword ( )
GetPassword = Lcase (InputBox(“Введите пароль:”,”Пароль”))
End Function
Здесь во второй строке заданы обращения к двум встроенным функ-
циям VB - Lcase и InputBox. Первая преобразует все буквы переданной в
нее строки в строчные. Вторая выводит на экран диалоговое окно с запро-
сом на ввод данных пользователем. У этой функции есть несколько необя-
зательных аргументов, из которых нас интересуют только первые два
.
Один из них – строка, отображаемая в окне над полем для ввода. Второй
содержит строку заголовка диалогового окна. При вызове функции Input-
Box на экране появляется диалоговое окно с заданными заголовком и тек-
стом приглашения. Окно также содержит пустое поле, в котором пользова-
тель может ввести данные. Значение, возвращаемое InputBox, зависит от
того
, какую кнопку выберет пользователь (ОК - возвращается введенная
строка, Отмена (Cancel) – пустая строка). В нашем примере буквы этой
строки передаются в функцию Lcase, которая преобразует их в строчные.
В блоке, начинающемся сразу за ключевым словом If, помещен цикл For-
Each-Next (он подробно описан ниже в разделе "Управляющая структура 
                                     49
               Elem.Font.Name = “Ms Sans Serif”
               Elem.Font.Bold = True
               Elem.Font.Size = 20
           Next Elem
    Else
        MsgBox “Пароль не корректен. Повторите ввод пароля”
    End If
End Sub

Function GetPassword ( )
    GetPassword = Lcase (InputBox(“Введите пароль:”,”Пароль”))
End Function
      В Proc2 ключевое слово ElseIf с последующим условием использу-
ется дважды. Новое условие вносит в порядок выполнения команд допол-
нительные изменения, если проверка первого условия закончилась неуда-
чей. В Proc2 первое условие указано сразу за ключевым словом If. В нем
проверяется равенство переменной Password строке ”levell”. Если пере-
менная не равна строке, VB переходит к первому ключевому слову ElseIf,
где проверяет следующее условие – равенство переменной Password стро-
ке “level2”. Начиная с этого момента, программа использует только новое
условие, “забывая” о старом. Если равенства опять нет, управление пере-
ходит к следующему ключевому слову ElseIf и т. д.
      В строке 3 процедуры Proc2 вызывается функция GetPassword, в ко-
торой использованы новые элементы. Рассмотрим более подробно эти
элементы.
       Function GetPassword ( )
           GetPassword = Lcase (InputBox(“Введите пароль:”,”Пароль”))
       End Function
      Здесь во второй строке заданы обращения к двум встроенным функ-
циям VB - Lcase и InputBox. Первая преобразует все буквы переданной в
нее строки в строчные. Вторая выводит на экран диалоговое окно с запро-
сом на ввод данных пользователем. У этой функции есть несколько необя-
зательных аргументов, из которых нас интересуют только первые два.
Один из них – строка, отображаемая в окне над полем для ввода. Второй
содержит строку заголовка диалогового окна. При вызове функции Input-
Box на экране появляется диалоговое окно с заданными заголовком и тек-
стом приглашения. Окно также содержит пустое поле, в котором пользова-
тель может ввести данные. Значение, возвращаемое InputBox, зависит от
того, какую кнопку выберет пользователь (ОК - возвращается введенная
строка, Отмена (Cancel) – пустая строка). В нашем примере буквы этой
строки передаются в функцию Lcase, которая преобразует их в строчные.
В блоке, начинающемся сразу за ключевым словом If, помещен цикл For-
Each-Next (он подробно описан ниже в разделе "Управляющая структура

Страницы