通过消息框继续执行代码

krampaul82 · 发表于 2012-11-23 17:25:29

嘿，大家看下面的代码---------------------------------------------------------------------------------------
&039；模块&nbsp；：模块3\u get\u excell\u文件；日期时间：2012年11月23日15:05；作者&nbsp；：标记；目的&nbsp；：此模块获取新创建的当前项目所需的Excel文件---------------------------------------------------------------------------------------
选项显式；声明变量；Dim sSourceDir作为字符串；Dim sBackDir作为字符串；将sNextFile设置为字符串；Dim sDriveLetter作为字符串；Dim currpath作为字符串；将ws作为字符串；Dim gtcprojnum为双精度；On Error GoTo FileCopyError
&039；更改Excel数据以准备文件移动；ChDir“；Excel数据“
&039；更改这些路径以适合
；sSourceDir=&quot；五： “gtc\U项目\Excel\U数据”
；sDriveLetter=左$（CurDir$（），1）；currpath=CurDir$（[sDriveLetter]）
；sBackDir=gtcprojnum&#039；模块1中的全局变量集；sNextFile=Dir$（sSourceDir.*.XLS）
；而sNextFile&lt&燃气轮机&引用&引用
&nbsp；文件副本sSourceDir&amp；sNextFile、sBackDir&amp；sNextFile文件&nbsp；sNextFile=Dir$
；Wend；MsgBox“；带有前缀的Excel文件已就位。关于数据提取文件……”&nbsp；（这是我想在用户不点击OK的情况下继续的地方）这可能吗
感谢您的帮助&nbsp；

Keith · 发表于 2012-11-23 18:30:11

MsgBox是一个模式对话框，因此在显示当前执行时停止当前执行
然而，也有一些解决方案，例如对话框超时，就像用户在时间过去后按下按钮一样（不确定是否在AutoCAD vba中可用），但是，也有可以创建和使用的无模式表单
将一个新表单添加到项目中，并使其与msgbox对话框的大小相同
将所需的标签和按钮放置在表单上，根据需要进行设计。您可以添加图像以在msgbox上实现相同的外观
在代码中，设置标签值、标题等，以说出您想要的内容，然后创建一个新表单，即

copy

'Create the form
set NewForm = New MyMsgBoxForm '(if MyMsgBoxForm is what you named your form)
With Newform
.Caption = "Message"
.label1.Text ="Excel Files W/Prefix are in place. On to the Data Extraction Files..."
.show(vbModeless)
End With

每当您想在代码执行期间隐藏表单时，只需调用NewForm。隐藏如果您在一个函数中创建表单，并且变量超出范围，则您将赢得&#039；无法使用变量名将其关闭，因此您可能需要创建一个保存消息表单的属性。例如：

copy

Private _Myform as Userform
_Myform = New MyMsgBoxForm
Property Get MessageBox() As MyMsgBoxForm
set MessageBox = _Myform
End Property

现在你可以调用MessageBox来完成这项工作

copy

With MessageBox
'do stuff here
End With

当然，我已经好几年没有使用vba了，所以我可以#039；我不能保证VBA库中没有变化，也不能保证语法正确……但这个想法应该适合你。

通过消息框继续执行代码

发表回复

精选推荐