Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата Win4ester:
Первую половину я сделал (окно вывел и все показал), »
И где Ваш код?

Цитата Win4ester:
с кнопками Стоп,
Повтор и Пропустить »
Не существует такого. Есть «Abort/Retry/Ignore» из наиболее близкого.

Код: Выделить весь код
Option Explicit

Const InputBoxNearestWidthInTwips  = 5495
Const InputBoxNearestHeightInTwips = 2390

With WScript.CreateObject("htmlfile").parentWindow.screen
	MsgBox MsgBox(InputBox("Введите текстовую строку:", "Ввод текстовой строки", "Текстовая строка", (.availWidth / .deviceXDPI * 1440) - InputBoxNearestWidthInTwips, (.availHeight / .deviceYDPI * 1440) - InputBoxNearestHeightInTwips), vbAbortRetryIgnore + vbQuestion, "Окно сообщения"), vbOKOnly, "Код нажатой кнопки"
End With

WScript.Quit 0

Отправлено: 03:17, 07-01-2015 | #2