请教老师：为了试验vars变量的用法，我在项目事件BeforeOpenProject 和BeforeSaveProject 中分别写了如下代码
在项目事件 BeforeOpenProject 中写如下代码
Vars("网络状态") = True
MessageBox.Show("网络状态1 = " & Vars("网络状态") ,"提醒",MessageBoxButtons.OK,MessageBoxIcon.Error)
在项目事件 BeforeSaveProject 中写如下代码：
MessageBox.Show("网络状态2 = " & Vars("网络状态") ,"提醒",MessageBoxButtons.OK,MessageBoxIcon.Error)
If Vars("网络状态") = False '如果网络不通,禁止保存项目
e.Cancel=True
Dim Result As DialogResult
Result = MessageBox.Show("网络不通,不能保存项目!" & vbcrlf & " 点击【是】按钮退出系统," & vbcrlf & " 点击【否】按钮等待网络恢复正常", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Syscmd.Project.Exit(False)
Else
e.Cancel=True
Return
End If
End If
执行结果 ：
网络状态1 = true
网络状态2 =
也就是说先给 Vars("网络状态") 变量赋值后，值又没有了，请问是什么原因？
加好友 
发短信
Post By：2015/12/11 0:51:00 [显示全部帖子]
