2013-03-20 86 views
7

VBスクリプトでドロップダウン/コンボボックスを作成しようとしています。私の理解あたりとして、我々は、このような何かのInternet Explorerのインスタンスを作成し、ドロップダウン/コンボボックスを作成する必要があります。VBスクリプトでドロップダウン/コンボボックスを表示

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 

IEを使用せずにDORPダウン/コンボボックスを作成することは可能ですが、メッセージボックスや入力ボックスに似ていますか?

+0

[価値がある](http://www.veretennikov.org/WSO/) –

答えて

5

ここでは多くのユーザーがこの質問に喜んで答えてくれるだろうと確信していますが、返信にはさまざまな詳細が含まれているかもしれませんが、確かに答えは同じです - 少なくとも純粋ではないVBScriptあなた自身のActiveXコンポーネントをプログラミングしてからスクリプトの中でCreateObjectとインスタンス化します。

しかし、代替ツールをお探しの場合は、独自のカスタムGUIのオプションとしてHTAを選択してください。

関連する問題