Показать выпадающий список/поле со списком в VB Script

Я пытаюсь создать раскрывающийся список в поле VB Script. Согласно моему пониманию, мы должны создать экземпляр для Internet Explorer и создать/комбинированный раскрывающийся, что-то вроде этого:Показать выпадающий список/поле со списком в VB Script

set oIE = createObject("InternetExplorer.Application") 
    with oIE 
    .Navigate "about:blank" 
    Do until .ReadyState = 4 : WScript.Sleep 100 : Loop 
    set oDoc = .document 
    .Visible = true 
    end with 

    with oDoc 
    .open 
    .writeln "<html><head><title>ComboBox Example</title></head>" 
    .writeln "<body scroll=no><object " 
    .writeln "classid=clsid:8BD21D30-EC42-11CE-9E0D-00AA006002F3" 
    .writeln "id=ComboBox1 width=400></object><p>" 
    .writeln "</body></html>" 
    .close 
    Do until .ReadyState = "complete" : WScript.Sleep 100 : Loop 
    set oComboBox1 = .all.ComboBox1 

    end with 

    with oComboBox1 
    .List = Array("One", "Two", "Three", "Four") 
    .AutoWordSelect = true 
    .focus 
    end with 
    oDoc.parentWindow.opener = "Me" 

    bClosing = false 

    on error resume next 
    do until bclosing: wsh.sleep 100 : loop 
    oIE.quit 

    sub Closing : bClosing = True : end sub

Можно ли создать/выпадающий Dorp-вниз без использования IE, похожее на окно сообщений или поле ввода?

источник

2013-03-20 Gokul Nath KP

[стоит попробовать] (http://www.veretennikov.org/WSO/) – 2013-04-16 16:04:02

Я уверен, что многие пользователи здесь будут рады ответить на этот вопрос, и их ответ может содержать различные детали, но наверняка ответ был бы таким же. Нет. По крайней мере, не с чистым VBScript и без программируя свой собственный компонент ActiveX, который затем должен быть создан с помощью CreateObject внутри вашего сценария .vbs.

Но если вы ищете альтернативу, то можете рассмотреть HTA как вариант для вашего собственного графического интерфейса.

источник

2013-03-20 07:23:17

Показать выпадающий список/поле со списком в VB Script

ответ

Смежные вопросы