vb中菜单项与窗体关联的问题?

[复制链接]
查看11 | 回复0 | 2010-4-16 23:05:28 | 显示全部楼层 |阅读模式
比如你有4个窗体,form1,form2,form3,form4菜单在form1上,菜单调用的是form2,form3,form4菜单名分别为aaa,bbb,cccform1的代码里添加如下Private Sub aaa_Click() '菜单aaa单击过程bbb.Enabled = Falseccc.Enabled = FalseLoad Form2Form2.ShowEnd SubPrivate Sub bbb_Click() '菜单bbb单击过程aaa.Enabled = Falseccc.Enabled = FalseLoad Form3Form3.ShowEnd SubPrivate Sub ccc_Click() '菜单ccc单击过程aaa.Enabled = Falsebbb.Enabled = FalseLoad Form4Form4.ShowEnd Subform2里的代码如下Private Sub Form_Unload(Cancel As Integer) '关闭窗体事件过程Form1.bbb.Enabled = TrueForm1.ccc.Enabled = TrueEnd Subform3里的代码如下Private Sub Form_Unload(Cancel As Integer) '关闭窗体事件过程Form1.aaa.Enabled = TrueForm1.ccc.Enabled = TrueEnd Subform4里的代码如下Private Sub Form_Unload(Cancel As Integer) '关闭窗体事件过程Form1.aaa.Enabled = TrueForm1.bbb.Enabled = TrueEnd Sub
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行