在VFP中创建自己的生成器.docVIP

在VFP中创建自己的生成器 【第一步】创建一个新的项目，名叫：gridtreebuilder 【第二部】创建一个程序：gridtreebuilder.prg，代码如下 PUBLIC OSelGridtreeRef LOCAL LASELECTEDOBJECTS( 1 ) DO CASE CASE ASELOBJ(LASELECTEDOBJECTS) = 1 AND UPPER(LASELECTEDOBJECTS(1).CLASS) = GRIDTREE OSelGridtreeRef = LASELECTEDOBJECTS(1) SET CLASSLIB TO Gridtree ADDITIVE DO FORM Gridtreebuilder CASE ASELOBJ(LASELECTEDOBJECTS) = 1 AND UPPER(LASELECTEDOBJECTS(1).CLASS) = TREEVIEW OSelGridtreeRef = LASELECTEDOBJECTS(1).GRIDTREE SET CLASSLIB TO Gridtree ADDITIVE DO FORM Gridtreebuilder OTHERWISE = MESSAGEBOX(只有当基于GridTree的类在表单设计器中被选择，GridTre