objForm.document.createElement("input") ,没有生成复选框
时间: 2024-03-09 16:51:19 浏览: 18
非常抱歉,我的前六次回答都有误。在这段代码中,应该是通过HTML DOM方法创建一个input元素,然后设置其type属性为checkbox,从而生成复选框。代码如下:
```
Set objInput = objForm.document.createElement("input")
objInput.type = "checkbox"
```
这段代码会在消息框中生成一个复选框。如果您还有其他问题或疑问,欢迎随时提出。
相关问题
VBS写一个带复选框的界面
以下是一个使用 VBS 编写的带复选框的界面示例代码:
```
' 创建窗口
Set objShell = CreateObject("WScript.Shell")
Set objForm = objShell.Popup("请选择以下选项:", 0, "复选框示例", 0x4 + 0x10)
' 创建复选框
Set objCheckbox1 = objForm.document.createElement("input")
objCheckbox1.type = "checkbox"
objCheckbox1.name = "checkbox1"
objCheckbox1.value = "选项1"
objCheckbox1.innerText = "选项1"
objForm.document.body.appendChild(objCheckbox1)
Set objCheckbox2 = objForm.document.createElement("input")
objCheckbox2.type = "checkbox"
objCheckbox2.name = "checkbox2"
objCheckbox2.value = "选项2"
objCheckbox2.innerText = "选项2"
objForm.document.body.appendChild(objCheckbox2)
' 显示窗口
Set objResult = objForm.Show()
' 处理结果
If objResult = 1 Then
If objCheckbox1.checked Then
MsgBox "你选择了选项1"
End If
If objCheckbox2.checked Then
MsgBox "你选择了选项2"
End If
End If
```
在上面的示例代码中,我们首先使用 `WScript.Shell` 对象创建了一个窗口,并设置了标题和显示的文本。然后使用 `createElement` 方法创建了两个复选框,并添加到窗口的 body 中。最后调用 `Show` 方法显示窗口,并检查用户的选择结果来处理用户的选择。
相关推荐
![pptx](https://img-home.csdnimg.cn/images/20210720083543.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![application/x-rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![txt](https://img-home.csdnimg.cn/images/20210720083642.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![application/x-zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![application/x-rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![application/x-zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)