Книга: Windows Script Host для Windows 2000/XP

Метод Popup объекта WshShell

закрыть рекламу

Метод Popup объекта WshShell

С помощью метода Popup (подробное описание метода приведено в главе 1) можно создавать такие же диалоговые окна, как и при помощи функции MsgBox, причем этот метод можно использовать как в VBScript-, так и в JScript-сценариях (листинги 2.12 и 2.13).

Листинг 2.12. Создание диалогового окна с помощью метода Popup (JScript)

/*******************************************************************/
/* Имя: Popup.js                                                   */
/* Язык: JScript                                                   */
/* Описание: Пример использования метода WshShell.Popup            */
/*******************************************************************/
var WshShell,Res,Text,Title; //Объявляем переменные
//Инициализируем константы для диалоговых окон
var vbOkCancel=1,vbOk=1;  
//Создаем объект WshShell
WshShell = WScript.CreateObject("WScript.Shell");
Text="Пример вывода строк в диалоговоеnокно WScript";
Title="Заголовок"
//Выводим диалоговое окно на экран
Res=WshShell.Popup(Text,0,Title,vbOkCancel);
// Определяем, какая из кнопок была нажата в диалоговом окне
if (Res==vbOk) WshShell.Popup("Нажата кнопка OK");
else WshShell.Popup("Нажата кнопка Отмена");
/*************  Конец *********************************************/

Листинг 2.13. Создание диалогового окна с помощью метода Popup (VBScript)

'*******************************************************************
' Имя: Popup.vbs
' Язык: VBcript
' Описание: Пример использования метода WshShell.Popup
'*******************************************************************
Option Explicit
Dim WshShell,Res,Text,Title  ' Объявляем переменные
' Создаем объект WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Text="Пример вывода строк в диалоговое" & vbCrLf & "окно WScript"
Title="Заголовок"
' Выводим диалоговое окно на экран
Res=WshShell.Popup(Text,0,Title,vbOkCancel)
' Определяем, какая из кнопок была нажата в диалоговом окне
If (Res=vbOk) Then
 WshShell.Popup "Нажата кнопка OK"
Else
 WshShell.Popup "Нажата кнопка Отмена"
End If
'*************  Конец *********************************************

Главным отличием метода Popup от функции MsgBox является наличие параметра nSecToWait, задающего время (в секундах), по истечении которого диалоговое окно будет автоматически закрыто. Если этот параметр равен нулю, как в приведенных выше примерах, то окно будет закрыто только после нажатия какой-либо кнопки в нем.

Оглавление книги


Генерация: 1.047. Запросов К БД/Cache: 4 / 0
поделиться
Вверх Вниз