7
में एक ड्रॉप-डाउन/कॉम्बो बॉक्स प्रदर्शित करें मैं वीबी स्क्रिप्ट में एक ड्रॉप-डाउन/कॉम्बो बॉक्स बनाने की कोशिश कर रहा हूं। मेरी समझ के अनुसार हम कुछ इस तरह इंटरनेट एक्सप्लोरर के लिए एक उदाहरण बना सकते हैं और एक ड्रॉप डाउन/कॉम्बो बॉक्स बनाने के लिए, की जरूरत है:वीबी स्क्रिप्ट
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 का उपयोग किए बिना एक देहात डाउन/कॉम्बो बॉक्स बनाने के लिए संभव है, संदेश बॉक्स या इनपुट बॉक्स के समान?
[एक कोशिश के लायक] (http://www.veretennikov.org/WSO/) –