создание ввода с различными кнопками

Question

У меня есть код vbs, и я хотел бы изменить способ отображения InputBox.

Я хочу создать InputBox, что вместо «ОК» и «Отмена» кнопки будут отображаться различные названия кнопок

возможно ли это в VBS?

спасибо

Answer 1

То, что вы хотите, не представляется возможным с помощью встроенного в InputBox функции. Вам нужно создать custom dialog для этого:

Set ie = CreateObject("InternetExplorer.Application") 

ie.Navigate "about:blank" 
ie.Document.title = "Title" 
ie.ToolBar  = False 
ie.Resizable  = False 
ie.StatusBar  = False 
ie.Width   = 320 
ie.Height   = 180 

While ie.ReadyState <> 4 : WScript.Sleep 100 : Wend 

ie.Document.body.innerHTML = _ 
    "<p><input type='text' size='20' id='UserInput'></p>" & vbNewLine & _ 
    "<p><input type='hidden' id='OK' name='OK' value='0'>" & _ 
    "<input type='submit' value='Foo' onClick='VBScript:OK.value=1'></p>" 
ie.Document.body.style.overflow = "auto" 

ie.Visible = True 
ie.Document.all.UserInput.focus 

On Error Resume Next 
Do While ie.Document.all.OK.value = 0 
    WScript.Sleep 100 
Loop 
On Error Goto 0 

Используйте таблицы стилей для настройки внешнего вида диалога:

Set style = ie.Document.CreateStyleSheet 
style.AddRule "*", "margin:0; padding:0; border:0;" 
style.AddRule "body", "font-family:serif; font-size:12px; text-align:center;" 
style.AddRule ".button", "border:2px outset; width:70px;" 
...