用VBS怎样写复选框？

wteagle · 发表于 2011-12-8 16:45:12

请教一个问题。我在编写DIADem的VBS Script。现在我想实现一个功能，就是弹出一个对话框，上面可以多重选择，然后返回选择了哪些内容。
比如，我有参数a，b，c，d，e，我希望弹出一个对话框，上面列出a、b、c、d、e，然后在其下面（或者竖着列，在其右边）有对应的五个小选择方框，电脑上常见的那种复选框，点一下就会有有一个x，再点x消失。比如我点了a、c、d的复选框，然后点确定，对话框消失，并以某种方式反馈给程序我选了哪些参数，用于后面的计算。比如把选了的acd名字赋给三个变量，如果选了四个就赋给四个变量等等。
这个功能该如何实现呢？不胜感激！

此外，在调用标准数据加载对话框时，能否加入其他信息，比如加入一个或若干个选择框，不仅加载数据，同时也返回对选择框做出了怎样的选择？

broly · 发表于 2011-12-9 21:46:06

VBScript没有这个功能，VB就可以

s700800900 · 发表于 2011-12-23 16:25:37

如果你愿意的话, 可以试试微软的hta, 框体由网页支持, 代码由js或vbs支持.

s700800900 · 发表于 2011-12-23 16:26:00

如果你愿意的话, 可以试试微软的hta, 框体由网页支持, 代码由js或vbs支持.

pcl_test · 发表于 2017-4-13 00:27:28

本帖最后由 pcl_test 于 2017-4-13 12:15 编辑

Set ws = CreateObject("WScript.Shell")
list=split("项目一|项目二|项目三|项目四|项目五","|")
For i=0 To UBound(list)
info=info&"<input type='checkbox' name='check' value='"& i+1 &"'> "& list(i) &"<br>"
Next
msgbox CheckBox(info)
Function CheckBox(info)
CheckBox = ws.Exec("mshta.exe ""about:<HTA:APPLICATION ShowInTaskbar='no' Scroll='no' MaximizeButton='no' MinimizeButton='no' />" &_
"<title>请选择</title><script>window.resizeTo(180, 220);" & _
"function choise(){var result='', list=document.getElementsByName('check');" & _
"for(var i=0;i<list.length;i++){if(list[i].checked==true)result+=list[i].value+'|';}" & _
"(new ActiveXObject('Scripting.FileSystemObject')).GetStandardStream(1).write(result.replace(/\|$/, ''));close();}</script>" & _
"<body style='text-align:center'><div><font style='color:#008200;'>"& info &"</font></div><br>" & _
"<input type='button' value='确定' onclick='choise()'></body>""").StdOut.ReadAll
End Function

复制代码

jiang_best · 发表于 2022-1-12 11:47:17

回复 5# pcl_test
版主，怎么让您写的这个复选框窗口居中显示呢？如果能有个全选和反选的判断按钮就更好了,能帮修改一下吗？谢谢

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] 用VBS怎样写复选框？

浏览过的版块