2013-03-20 14 views
7

Sto cercando di creare una casella/combinata a discesa in VB Script. Come per la mia comprensione abbiamo bisogno di creare un'istanza per Internet Explorer e creare una casella/combinata a discesa, qualcosa di simile:visualizzare una finestra/combinata a discesa in 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 

E 'possibile creare una casella/combinata dorp-down senza l'utilizzo di IE, simile a Message Box o Input Box?

+0

[vale la pena provare] (http://www.veretennikov.org/WSO/) –

risposta

5

Sono abbastanza sicuro che molti utenti qui saranno lieti di rispondere a questa domanda, e la loro risposta potrebbe contenere vari dettagli, ma di sicuro la risposta era stata la stessa - No. Almeno non con puro VBScript e senza programmare il proprio componente ActiveX, che quindi per l'istanziazione con CreateObject all'interno dello script .vbs.

Ma se si cerca di alternativa poi può prendere in considerazione HTA come opzione per il proprio GUI personalizzata.

Problemi correlati