VisualFoxPro程序设计教程刘瑞第10章课件教学.pptVIP

ButtonClick事件代码： LPARAMETERS button DO CASE CASE button.Index = 1 THISFORM.new CASE button.Index = 2 THISFORM.open CASE button.Index = 3 THISFORM.save CASE button.Index = 5 SYS(1500, _MED_cut, _MEDIT) CASE button.Index = 6 SYS(1500, _MED_copy, _MEDIT) CASE button.Index = 7 SYS(1500, _MED_paste, _MEDIT) CASE button.Index = 9 SYS(1500, _MED_undo, _MEDIT) CASE button.Index = 10 SYS(1500, _med_redo, _MEDIT) ENDCASE 说明：函数SYS(1500)用来激活一个VFP系统菜单项。其使用的语法格式为 SYS(1500,〈系统菜单项名〉,〈菜单名〉) 〈系统菜单项名〉和〈菜单名〉可以通过“快速菜单”查看，或使用SYS（2013）显示其列表。 此时，若不添加