使用VBS做一个选择框
时间: 2023-05-15 12:07:29 浏览: 247
好的,以下是使用 VBS 做一个选择框的代码:
```
Dim answer
answer = MsgBox("Do you want to continue?", vbYesNo, "Confirmation")
If answer = vbYes Then
' User clicked Yes
Else
' User clicked No
End If
```
这段代码会弹出一个选择框,询问用户是否要继续,用户可以选择“是”或“否”。如果用户选择“是”,则会执行“User clicked Yes”的代码,否则会执行“User clicked No”的代码。
相关问题
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` 方法显示窗口,并检查用户的选择结果来处理用户的选择。
使用vbs编写一个弹窗,答案不对继续弹窗
以下是使用VBScript编写一个弹窗,并在用户回答不正确时继续弹窗的示例:
```vbscript
Do
answer = InputBox("请回答问题:你喜欢编程吗?", "问题", "")
Loop While answer <> "是"
MsgBox "回答正确!"
```
这段代码创建了一个弹窗,要求用户回答一个问题:“你喜欢编程吗?”如果用户的回答不是“是”,则会继续弹出同样的问题,直到用户回答正确为止。当用户回答为“是”时,将显示一个提示框,显示“回答正确!”的消息。
相关推荐
![vbe](https://img-home.csdnimg.cn/images/20210720083646.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)