您所在位置：主题：小技巧:如何点击X执行你的"关闭"命令按钮的功能
huangdehua
[专家分：5730] 发布于 2004-10-08 22:44:00
见本论谈一朋友发贴,可以用命令按钮实现某功能,但不知点击右上角的"关闭"按钮如何实现相同功能,又见不少朋友开发的软件,把CLOSABLE属性设为.F.,以防用户点击关闭表单造成程序出错,强迫用户用命令按钮,虽为小事,总让人感觉不舒服,其实你可以设计好程序,让用户点击表单右上角的"关闭"按钮执行你设计的的"关闭"命令按钮的功能.方法十分简单:
1 添加表单属性:sfclose--值为.F.
2 在"关闭"命令按钮中添加下列代码: THISFORM.sfclose=.t.
3 在表单的QueryUnload事件中设计下列代码
if THISFORM.sfclose=.f.
nodefault
thisform.你的命令按钮.click
endi
怎么样,表单更专业化了....
1 添加表单属性:sfclose--值为.F.
2 在"关闭"命令按钮中添加下列代码: THISFORM.sfclose=.t.
3 在表单的QueryUnload事件中设计下列代码
if THISFORM.sfclose=.f.
nodefault
thisform.你的命令按钮.click
endi
怎么样,表单更专业化了....
