论坛 › 已解决问题区 › DO...Until 循环问题，请求帮助[已解决]

heroxianf 发表于 2015-11-26 00:05:19

DO...Until 循环问题，请求帮助[已解决]

本帖最后由 heroxianf 于 2015-11-26 01:19 编辑

Local $sPasswd

Do

$sPasswd = InputBox("测试", @CRLF & "测试文件" & @CRLF & @CRLF & @CRLF & @CRLF & "输入登陆密码:", "", "*")

Until $sPasswd = "110"按照上边的代码倒是可以停留在密码输入界面等到输入正确，但是点击右上角关闭或者退出按钮还是无线循环，也试着获取返回值但是失败了，请指点一下。

afan 发表于 2015-11-26 00:23:50

Until $sPasswd = "110" Or @Error

heroxianf 发表于 2015-11-26 00:40:44

本帖最后由 heroxianf 于 2015-11-26 00:46 编辑

回复 2# afan

谢谢A大，   原来还可以这么实用@Error。但是我点击退出后边代码会执行，就没有达到点击退出就直接退出那种。
Local $sPasswd

Do

$sPasswd = InputBox("测试", @CRLF & "测试文件" & @CRLF & @CRLF & @CRLF & @CRLF & "输入登陆密码:", "", "*")

Until $sPasswd = "110" or @error

MsgBox(0, 0, "如果点击退出后边代码不应该执行。")

txen548 发表于 2015-11-26 01:13:54

試下如下代碼Local $answer
Do
      $answer =inputbox("口令","你叫什么名字？","","*10")
      If @error Then Exit
                Until $answer = 'me'

heroxianf 发表于 2015-11-26 01:19:28

本帖最后由 heroxianf 于 2015-11-26 01:27 编辑

回复 4# txen548


谢谢坛友这么晚了还给出的帮助，问题解决了。这嵌套看来还要加强学习。

txen548 发表于 2015-11-26 01:21:05

這都是論壇上收集的一些代碼，不用客氣。

heroxianf 发表于 2015-11-26 01:28:09

回复 6# txen548

但还是有点不明白点击退出为什么是   @error呢？   不应该是返回的三个键值么，-1、-2之类的？

txen548 发表于 2015-11-26 01:35:41

主要代碼在第4行，這裡下了一個判斷，如果錯誤就退出程序。

查看完整版本: DO...Until 循环问题，请求帮助[已解决]