05.扩展命令12.Dialog 对话窗命令

Dialog.InputBox 弹出输入窗

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

弹出窗口等待用户输入文本，注意本命令会阻塞运行。

语法

结果 = Dialog.InputBox(提示文本)

参数

参数 数据类型 解释
提示文本 字符串 窗口上显示的描述文本内容。

返回值

字符串 ，用户输入的文本内容。

示例

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim 密码 = "345911220"
Do
    Dim mm = Dialog.InputBox("请输入脚本密码：")
    If mm = 密码 Then 
        ShowMessage "密码正确"
        Exit Do
    Else
        ShowMessage "密码错误"
    End If
Loop
Delay 3000
ShowMessage "脚本开始执行"
Delay 3000

备注

若不输入文本，则脚本会一直暂停执行。