大逃亡..

hardwired · 发表于 2008-12-9 10:49:11

嗨，
有没有什么方法可以对程序进行编码，以便用户可以从正在运行的vba程序中逃脱出来？
我为我们的办公室创建了一套cad工具，经理们的一些评论是，如果您不小心单击go或错误地填写信息并单击go，则无法逃脱程序。有没有办法添加此功能，同时保持绘图中的所有内容不变，以便绘图恢复到程序运行前的状态？
有什么想法吗？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

pkohut · 发表于 2008-12-9 11:00:16

在例程开始时设置一个撤销标记怎么样？如果需要，用户可以
使用撤消命令。

Matt__W · 发表于 2008-12-9 11:17:30

我想，首先...你的程序做了什么（简而言之）？

hardwired · 发表于 2008-12-9 11:26:38

有许多不同的，但举例来说，其中一个绘图所有选定的布局，使用保存的绘图设置在每个布局。它有点原始，但还没有时间整理出正确的编码，但基本上它循环通过每个布局，并使用and命令来绘制布局..
当然，有时这可能需要很长时间，用户可能会在列表中单击错误的布局，或者忘记一两个布局，或者只是不小心单击了按钮，所以退出选项会很好，而不仅仅是在程序完成后撤消，这是我在某些其他程序中需要的，但不是这个程序..

Matt__W · 发表于 2008-12-9 11:34:19

*GASP* SendCommand？？要策划？？
为了羞耻!!!
由于您正在循环浏览布局，一遍又一遍地执行相同的代码，因此我想您可以显示一个带有取消按钮的窗体。你可以有一个全局变量，用于指示用户是否按下了取消按钮 - 也许是一个布尔值？在每个循环的开头，检查全局变量的 True/False 值。如果用户按下取消按钮，变量将设置，程序将相应地响应。
有什么意义吗？

Matt__W · 发表于 2008-12-9 12:13:05

两个字给你你提到的功能...
酒吧
lish
你可能会给这样的东西一个机会。出于演示目的，我将其与采样计时器一起弹出。

copy

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_ESCAPE = &H1B
Sub Test()
Dim intCnt As Integer
Dim PauseTime, Start, Finish, TotalTime
GetAsyncKeyState VK_ESCAPE
For intCnt = 1 To 10
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
        If GetAsyncKeyState(VK_ESCAPE) Then
         Exit For
        End If
    
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start    ' Calculate total time.
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If
Next intCnt
End Sub