关闭按钮的失效和恢复问题

小何

如何点击本窗体的"添加"按钮时,使本窗体的关闭按钮失效,然而点击"保存"按钮时,使本窗体关闭按钮恢复有效.    这样怎么设置啊?

一点通

CloseButton 属性
使用 CloseButton（关闭按钮）属性可以指定窗体上的“关闭”按钮  是否可用。

设置

CloseButton 属性使用以下设置。

设置 Visual Basic 说明
是 True（-1） （默认值）“关闭”按钮可用。
否 False（0） “关闭”按钮失效，并且控制菜单上的“关闭”命令不可用。


可以使用窗体属性表、宏或 Visual Basic 来设置 CloseButton 属性。

只有在窗体“设计”视图中才能设置 CloseButton 属性。

说明

CloseButton 属性设置为“否”时，“关闭”按钮可见，但呈暗灰色，必须使用其他方法才能关闭窗体，例如，通过一个命令按钮或自定义菜单命令来运行关闭窗体的宏或事件过程。

提示   也可以按 ALT+F4 来关闭窗体。

根据帮助提示,这个属性不能在运行的状态下用VBA来设置,所以建议用另一个按钮来实现这样的功能

[此贴子已经被作者于2007-4-19 9:12:07编辑过]

小何

我试用了一下不行啊?

Private Sub Command83_Click()
Me.CloseButton = False
End Sub

Private Sub Command84_Click()
Me.CloseButton = True
End Sub

都提示:   运行时错误"2448"   您不能将数值指定给这个对象

bergyan

这个属性在窗体运行的时候不能更改...只能在设计状态下更改...

小何

那有没有办法在窗体运行时更改的方法啊?

bergyan

请看2楼的建议,就是很好的解决办法...

小何

以下是引用小何在2007-4-19 9:32:00的发言：


那有没有办法在窗体运行时更改的方法啊?

我试过了

Private Sub Command83_Click()
Me.CloseButton = False
End Sub



Private Sub Command84_Click()
Me.CloseButton = True
End Sub



都提示:   运行时错误"2448"   您不能将数值指定给这个对象

bergyan

呵呵~请看到一点通先生最后面的一句话...我指的是这个建议...

根据帮助提示,这个属性不能在运行的状态下用VBA来设置,所以建议用另一个按钮来实现这样的功能

ayhyf2007

我也知道如何设计,但我不懂8楼这个建议具体要怎么实现啊?

宿命的风

8楼的意思是这样的。

还有一种办法，就是在窗体的卸载事件中判断一下是否保存。

[此贴子已经被作者于2007-4-19 18:07:01编辑过]