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

备注

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