在VB脚本中显示下拉/组合框

7

我正在尝试在VB脚本中创建一个下拉/组合框。据我了解,我们需要创建Internet Explorer的实例并创建一个下拉/组合框,类似于以下内容:

  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,类似于消息框或输入框?


值得一试 - user2140173
1个回答

5
我相信这里的许多用户都会很乐意回答这个问题,他们的回复可能包含各种细节,但答案肯定是一样的 - 不行。至少不是使用纯粹的VBScript,并且没有编写自己的ActiveX组件,然后在您的.vbs脚本中使用CreateObject进行实例化。
但是,如果您正在寻找替代方案,则可以考虑HTA作为自定义GUI的选项。

网页内容由stack overflow 提供, 点击上面的
可以查看英文原文,
原文链接