两个问题一起问，98分大家分

Question

Private Sub Form_Unload(Cancel As Integer)    Cancel = True '就可以退出Form_unload的处理了。End Sub

Answer 1

问题2：
把Case 0 '按钮一事件
         .
         .  
  Case 1 '按钮二事件
         .
         .
  Case 2 '按钮三事件
的事件写到函数里面进行处理:
上述代码修改为：
Private Sub Command_Click(Index As Integer)
On Error Resume Next
 Select Case Index
  Case 0 '按钮一事件
      call sub1
         .
         .  
  Case 1 '按钮二事件
      call sub2
         .
         .
  Case 2 '按钮三事件
      call sub3
         .
 End SelectEnd Sub

Answer 2

X对应的应该是FORM UNLOAD吧，你在UNLOAD里面写代码就可以了

Answer 3

1.form的unload事件中
2.command_click(1)

Answer 4

问题2
直接 CALL command_click
就可以了。这些都是函数，可以调用的。

Answer 5

问题1：
你在Form_Unload或Form_QueryUnload事件中都可以捕获到，如果不想退出则
Cancel = 1问题2：
在其它地方要调用"按钮二事件"，代码如下
Call Command_Click(1)
即可。

Answer 6

问题1：
你在Form_Unload或Form_QueryUnload事件中都可以捕获到，如果不想退出则
Cancel = true(Form_Unload)
Cancel = 1(Form_QueryUnload)问题2：
在其它地方要调用"按钮二事件"，代码如下
Call Command_Click(n)
(n=0,1,2......)

Answer 7

问题二已得到解决重申问题一：
例如：想让右上角的X失效
添加如下代码：
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
Cancel = -1
End Sub关闭按钮下的 Unload Me 语句也失效了那我如何才能关闭该窗口？

Answer 8

看一下帮助中的unloadmode参数，包括退出方式，如系统退出，代码退出等等。

Answer 9

问题2：
在其它地方要调用"按钮二事件"，代码如下
you can do as below
command.value=true

Answer 10

1.窗体卸载前会先引发form_queryunload事件，卸载完毕后引发form_unload事件，可以在这两个事件中编写相应的代码。
2.可以用call command1_click(index)来调用按钮控件click事件的代码，如果是在另一个模块中调用，需要将private sub command1_click(byval index as integer)改成public sub command1_click(byval index as integer)，在调用时用call form1.command1_click(index)
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 11

可以使用api函数将右上角的“×”按钮屏蔽掉
或者设form.controls=false or form.bordstyle=0