一个奇怪的问题

Question

我在窗体上写了一个菜单，在退出按钮上问是否退出，如果点击否的话屏幕就很厉害的闪一下
感觉好像是重新加载了一遍窗体的内容
该怎么解决？
劳烦各位大哥大姐了！

Answer 1

把Form_Acvtive里边的内容移到其他地方，比如说计时器中。

Answer 2

代码很简单
Private Sub mnuExit_Click()
Dim vbs As String
vbs = MsgBox("确实要退出吗？", vbYesNo + vbQuestion, "确定")
If vbs = vbYes Then
Unload Me
End If
End Sub
而且Form_Acvtive里面啥也没有
就是窗体加载的时候填充了Treeview，内容不少，还加载了一个webbrowser
其他没什么特殊的地方了

Answer 3

Private Sub mnuExit_Click()
Dim vbs As String
vbs = MsgBox("确实要退出吗？", vbYesNo + vbQuestion, "确定")
If vbs = vbNo Then
exit sub
else
Unload Me
End If
End Sub
看看这样可以不

Answer 4

生成 EXE 后应该不会闪的吧

Answer 5

你点掉提示框的时候，后面的窗体获得了焦点。你查查后面所有窗体的跟获得焦点有关的事件，如窗体的Active、Resize等、控件的GetFocus内有没有刷新的内容。
其实很简单，你分步调试，看看调用什么部分的程序不就知道了。

Answer 6

或者试一下：Private Sub MenuExit_Click()
    If MsgBox("确定要退出吗?", vbOKCancel+ vbQuestion, "确定") = vbCancel Then
       Exit Sub
    End If
    Set objplan = Nothing         '' 类模块
    Set objJYTaskOrder = Nothing
    Set objTaskOrder = Nothing
    Set objSys = Nothing
    Set objPrint = Nothing
    Unload Me
    Set frmMain = Nothing
    End
End Sub

Answer 7

这样呢?
Private Sub mnuExit_Click()
Dim vbs As String
vbs = MsgBox("确实要退出吗？", vbYesNo + vbQuestion, "确定")
If vbs = vbNo Then
exit sub
else
me.hide
Unload Me
End If
End Sub
看看这样可以不

Answer 8

To ejoe313(星梦奇缘)
这样不好吧，点击取消之后整个运行界面都没了那多难看阿？

Answer 9

窗体的Active、Resize等、控件的GetFocus内都没有内容的
谢谢大家了
我添加了一个窗体，把窗体做成类似消息框的样式
这样就可以解决这个问题了
不管怎么样，还是谢谢大家！
以后不懂的地方还请各位大哥大姐多多帮助