Visual Basic Script


Учебник Visual Basic Script - часть 5


        Используем подпрограмму в сценарии Hello.vbs, назовем новый сценарий Hello_Sub.vbs.

        Заключим оператор MsgBox в подпрограмму Messeger:

    Sub Messager()

    MsgBox “Hello World!”

    End Sub

        Однако, если мы попробуем запустить сценарий, у нас ничего не получится – подпрограмма должна быть вызвана.

        Для этого добавим диалоговое окно выбора.

        Окончательный сценарий Hello_Sub.vbs будет следующим:

Создаем подпрограмму Messeger c параметром text

Sub Messager(text)
    MsgBox text
End Sub‘Конец подпрограммы
 

    Dim result

    ‘объявляем переменную result, в которую будет помещен результат
    ‘работы диалогового окна

    ‘Выводим окно выбора:
    result = MsgBox(“Хотите увидеть приветствие?”, vbYesNo _

+ vbQuestion, “Ваш выбор”)    If result = vbYes Then

    ‘выбрана кнопка “Да”

    Call Messager(“Hello World!”)

    ‘вызываем подпрограмму с параметром “Hello World”

    Else

    ‘иначе

    MsgBox “Не хотите – не надо!”

    End If

        Чтобы проиллюстрировать использование функции, мы не будем создавать свою функцию, а воспользуемся встроенной функцией VBS – Ucase, которая переводит строчные буквы в прописные.

        Создадим сценарий UCase_Function.vbs:

Dim Text, UText
'объявляем переменные для хранения исходного
'и преобразованного текста

Text = InputBox("Введите какой-либо текст:", "")
'помещаем введенные данные в Text

UText = UCase(Text)
'преобразуем с помощью функции UCase
'строчные буквы в прописные, вызываем ее с параметром Text




Начало  Назад  Вперед



Книжный магазин