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

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

scripting vbscript

Scripting 在VB脚本中显示下拉/组合框,scripting,vbscript,scripting-language,Scripting,Vbscript,Scripting Language,我正在尝试用VB脚本创建一个下拉/组合框。根据我的理解，我们需要为Internet Explorer创建一个实例，并创建一个下拉/组合框，如下所示： set oIE = createObject("InternetExplorer.Application") with oIE .Navigate "about:blank" Do until .ReadyState = 4 : WScript.Sleep 100 : Loop set oDoc = .documen

我正在尝试用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

set oIE=createObject（“InternetExplorer.Application”）
与爱
.导航“关于：空白”
Do until.ReadyState=4:WScript.Sleep 100:Loop
设置oDoc=.document
.Visible=true
以
奥多克
打开
.writeln“组合框示例”
.writeln“”
.writeln“”
.结束
Do until.ReadyState=“complete”：WScript.Sleep 100:Loop
设置ocombox1=.all.ComboBox1
以
使用Ocombox1
.List=数组（“一”、“二”、“三”、“四”）
.AutoWordSelect=true
集中
以
oDoc.parentWindow.opener=“我”
bClosing=false
出错时继续下一步
直到bclose:wsh.sleep 100:loop
退出
子结账：bClosing=True：结束子结账

有没有可能在不使用IE的情况下创建一个dorp下拉/组合框，类似于消息框或输入框？

我相信这里的许多用户都会很乐意回答这个问题，他们的回答可能包含各种细节，但是可以肯定的是答案是相同的-不。至少不是纯

VBScript

和没有编程自己的

ActiveX

组件，然后在

.vbs

脚本中使用

CreateObject

实例化

但是如果您寻找替代方案，那么可以考虑作为您自己自定义GUI的选项。