关于VBA中窗体的奇怪问题

nlnc

1、我用.show方法来显示窗体；
2、我用.hide方法来隐藏窗体，是否是关闭释放窗体？
3、我在一个窗体中给一个模块中定义的几个PUBLIC变量赋值，在调用.hide方法时，居然把这些变量的值全给清了，怎么回事？

efan2000

Hide只是隐藏窗体，并不会释放窗体。
应该是程序中其它地方出现问题，自己使用单步调试一下。

nlnc

怪就怪在这里，如果我不使用.hide而是点击窗体右上角的叉叉，PUBLIC变量就还有值，一但使用了.hide，仅仅使用了.hide，其他一模一样，结果所有的PUBLIC变量值就空了；

mccad

你每个带窗体的程序都这样吗？

myfreemind

检查一下可能清空这些变量值的语句!

nlnc

即使我写了.hide，比如放一个按钮，然后在按钮的点击事件里写.hide，但是，只要我不点击这个按钮，而是点击右上角的叉叉，就不会把变量清空，只是点了按钮，也就是执行了.hide才出怪事的；
每个窗体，只要用了.hide就出鬼，其他关于变量的语句即使一句也没有也是这样，见鬼了，高手帮忙捉鬼啊。

mccad

你用以下程序试试你的运行结果是否和我一样：
窗体userform1代码：

2. Private Sub CommandButton1_Click()
   
3. Debug.Print "HIDE前mccad的值为：" & mccad
   
4. Debug.Print "HIDE前mjtd 的值为：" & mjtd
   
5. Me.Hide
   
6. Debug.Print "HIDE后mccad的值为：" & mccad
   
7. Debug.Print "HIDE后mjtd 的值为：" & mjtd
   
8. Unload Me
   
9. Debug.Print "卸后mccad的值为：" & mccad
   
10. Debug.Print "卸后mjtd 的值为：" & mjtd
    
11. End Sub
    
12. 
    
13. Private Sub UserForm_Initialize()
    
14. Debug.Print "未设置前mccad的值为：" & mccad
    
15. Debug.Print "未设置前mjtd 的值为：" & mjtd
    
16. mccad = "www.mccad.net"
    
17. mjtd = "www.mjtd.com"
    
18. Debug.Print "打开窗体初始化后mccad的值为：" & mccad
    
19. Debug.Print "打开窗体初始化后mjtd 的值为：" & mjtd
    
20. 
    
21. End Sub
    

Private Sub CommandButton1_Click()<br /> Debug.Print "HIDE前mccad的值为：" & mccad<br /> Debug.Print "HIDE前mjtd 的值为：" & mjtd<br /> Me.Hide<br /> Debug.Print "HIDE后mccad的值为：" & mccad<br /> Debug.Print "HIDE后mjtd 的值为：" & mjtd<br /> Unload Me<br /> Debug.Print "卸后mccad的值为：" & mccad<br /> Debug.Print "卸后mjtd 的值为：" & mjtd<br /> End Sub<br /> <br /> Private Sub UserForm_Initialize()<br /> Debug.Print "未设置前mccad的值为：" & mccad<br /> Debug.Print "未设置前mjtd 的值为：" & mjtd<br /> mccad = "www.mccad.net"<br /> mjtd = "www.mjtd.com"<br /> Debug.Print "打开窗体初始化后mccad的值为：" & mccad<br /> Debug.Print "打开窗体初始化后mjtd 的值为：" & mjtd<br /> <br /> End Sub<br />

模块1代码：

1. Public mccad As String
   
2. Public mjtd As String
   

复制代码

这是我的运行结果：

1. 未设置前mccad的值为：
   
2. 未设置前mjtd 的值为：
   
3. 打开窗体初始化后mccad的值为：www.mccad.net
   
4. 打开窗体初始化后mjtd 的值为：www.mjtd.com
   
5. HIDE前mccad的值为：www.mccad.net
   
6. HIDE前mjtd 的值为：www.mjtd.com
   
7. HIDE后mccad的值为：www.mccad.net
   
8. HIDE后mjtd 的值为：www.mjtd.com
   
9. HIDE前mccad的值为：www.mccad.net
   
10. HIDE前mjtd 的值为：www.mjtd.com
    
11. HIDE后mccad的值为：www.mccad.net
    
12. HIDE后mjtd 的值为：www.mjtd.com
    
13. 卸后mccad的值为：www.mccad.net
    
14. 卸后mjtd 的值为：www.mjtd.com
    

复制代码

nlnc

首先感谢，请您试试将.hide后面的内容放到一个新的模块中一个新的宏中，在.hide后，手动运行新模块的新宏，看看结果；

我忘了说了，我曾经试过，在.hide后直接跟其他模块的任何宏（就是在.hide后面写call module1.test（例））结果是变量值存在，但是分开运行就不对了；

mccad

那就是你软件的问题了，我的正常。
我增加了一个 模块2
在其中写上：

2. Sub GetStr()
   
3. Debug.Print "其它过程中mccad的值为：" & mccad
   
4. Debug.Print "其它过程中mjtd 的值为：" & mjtd
   
5. End Sub
   

Sub GetStr()<br /> Debug.Print "其它过程中mccad的值为：" & mccad<br /> Debug.Print "其它过程中mjtd 的值为：" & mjtd<br /> End Sub<br />

然后分别在窗体的初始化及按钮的点击事件中增加
Call GetStr
行，最后的结果是：

1. 未设置前mccad的值为：
   
2. 未设置前mjtd 的值为：
   
3. 打开窗体初始化后mccad的值为：www.mccad.net
   
4. 打开窗体初始化后mjtd 的值为：www.mjtd.com
   
5. 其它过程中mccad的值为：www.mccad.net
   
6. 其它过程中mjtd 的值为：www.mjtd.com
   
7. HIDE前mccad的值为：www.mccad.net
   
8. HIDE前mjtd 的值为：www.mjtd.com
   
9. HIDE后mccad的值为：www.mccad.net
   
10. HIDE后mjtd 的值为：www.mjtd.com
    
11. 卸后mccad的值为：www.mccad.net
    
12. 卸后mjtd 的值为：www.mjtd.com
    
13. 其它过程中mccad的值为：www.mccad.net
    
14. 其它过程中mjtd 的值为：www.mjtd.com
    

复制代码

nlnc

先执行窗体所包含的所有宏，例如设置变量，然后.hide；
然后工作结束，回到VBA界面，再用F8或者执行你写的GETSTR，也就是单独执行，不要让窗体调GETSTR，再看看结果；

非常谢谢；