VFP工具栏设计问题
求教“制作VFP工具栏上的按钮时，上一条，下一条，第一条，最后一条，帮助，打开，关闭，等的代码”
希望大家多多帮助！谢谢
[解决办法]
上一条
IF !BOF()
SKIP -1
ENDIF
下一条
IF !EOF()
SKIP 1
ENDIF
第一条
GO TOP
最后一条
GO BOTT
帮助
SET HELP TO '帮助文件.CHM '
SET HELP ON
HELP 或 F1
打开
你要打开什么？
关闭
你要关闭什么？
[解决办法]
建议你还是去下载一个示例参考吧：
http://www.vfptop.com/dmfs.asp
http://www.daima.com.cn/Down/88To1/
这里有免费代码放送
163的VFP视频教程：
http://tech.163.com/special/t/000915SU/ttupfoxpro.html
[解决办法]
首先在工具栏上设置7个按钮，
分别是：上一条，下一条，第一条，最后一条，帮助，打开，关闭
工具栏的ButtonClick事件：
*** ActiveX Control Event ***
LPARAMETERS button
DO CASE
CASE button.INDEX=1 &&1表示工具拦上的第1个按钮 上一条
IF !BOF()
SKIP -1
ENDIF
CASE button.INDEX=2 &&2表示工具拦上的第2个按钮 下一条
IF !EOF()
SKIP 1
ENDIF
CASE button.INDEX=3 &&3表示工具拦上的第3个按钮 第一条
GO TOP
CASE button.INDEX=4 &&4表示工具拦上的第4个按钮 最后一条
GO BOTT
CASE button.INDEX=5 &&5表示工具拦上的第5个按钮 帮助
SET HELP TO '帮助文件.CHM '
SET HELP ON
HELP
CASE button.INDEX=6 &&6表示工具拦上的第6个按钮 打开
******
CASE button.INDEX=7 &&7表示工具拦上的第7个按钮 关闭
IF MESSAGEBOX( '确认要退出吗？ ',4+32+256, '信息提示 ')=6
QUIT
ELSE
RETURN
ENDIF
ENDCASE
[解决办法]
最好新建一个类（容器类），放入上述按钮，并用上十豆三的代码，哪里用到就放到哪去，比做工具栏方便得多。在触发上述按钮前记得先选定要操作的表。
