从表单生成vfp源代码
在foxpro2.5b for windows中，所编制的表单是会生成源代码的，但在vfp中，表单以不在生成可见的代码，而代之以类库和sct文件，代码查看是不够直观的，不知道那位有办法从vfp表单文件生成生成完整的表单代码呢？
[解决办法]
自已慢慢写吧，不知帖主为什么这样。
有了可视化，又想DOS时代，以下是VFP自带帮助中的一段代码：
frmMyForm = CREATEOBJECT( 'Form ') && 创建一个表单
frmMyForm.Closable = .F. && 使控件菜单框失效
frmMyForm.AddObject( 'shpLine ', 'Line ') && Add a Line control to the form
frmMyForm.AddObject( 'cmdCmndBtn1 ', 'cmdMyCmndBtn1 ') && “向上”Cmnd 按钮
frmMyForm.AddObject( 'cmdCmndBtn2 ', 'cmdMyCmndBtn2 ') && “向下”Cmnd 按钮
frmMyForm.AddObject( 'cmdCmndBtn3 ', 'cmdMyCmndBtn3 ') && ‘退出’Cmnd 按钮
frmMyForm.shpLine.Visible = .T. && 使 Line 控件可见
frmMyForm.shpLine.Top = 20 && 指定 Line 控件与表单上边距
frmMyForm.shpLine.Left = 125 && 指定 Line 控件与表单左边距
frmMyForm.cmdCmndBtn1.Visible =.T. && “向上”命令按钮可见
frmMyForm.cmdCmndBtn2.Visible =.T. && “向下”命令按钮可见
frmMyForm.cmdCmndBtn3.Visible =.T. && “退出”命令按钮可见
frmMyForm.SHOW && 显示表单
READ EVENTS && 启动事件处理
DEFINE CLASS cmdMyCmndBtn1 AS COMMANDBUTTON && 创建命令按钮
Caption = 'Slant \ <Up ' && 加上命名按钮的标题
Left = 50 && 命令按钮与表单的左边距
Top = 100 && 命令按钮与表单的上边距
Height = 25 && 命令按钮的高度
PROCEDURE Click
ThisForm.shpLine.Visible = .F. && 隐藏 Line 控件
ThisForm.shpLine.LineSlant = '/ ' && 向上倾斜
ThisForm.shpLine.Visible = .T. && 显示 Line 控件
ENDDEFINE
DEFINE CLASS cmdMyCmndBtn2 AS CommandButton && 创建命令按钮
Caption = 'Slant \ <Down ' && 加上命名按钮的标题
Left = 200 && 命令按钮与表单的左边距
Top = 100 && 命令按钮与表单的上边距
Height = 25 && 命令按钮的高度
PROCEDURE Click
ThisForm.shpLine.Visible = .F. && 隐藏 Line 控件
ThisForm.shpLine.LineSlant = '\ ' && 向下倾斜
ThisForm.shpLine.Visible = .T. && 显示 Line 控件
ENDDEFINE
DEFINE CLASS cmdMyCmndBtn3 AS CommandButton && 创建命令按钮
Caption = '\ <Quit ' && 加上命名按钮的标题
Cancel = .T. && 默认的 Cancel 命令按钮(Esc)
Left = 125 && 命令按钮与表单的左边距
Top = 150 && 命令按钮与表单的上边距
Height = 25 && 命令按钮的高度
PROCEDURE Click
CLEAR EVENTS && 停止事件处理，关闭表单
ENDDEFINE
[解决办法]
用ReFox可以变向得到代码
