我想给幼儿园的小朋友做个认识动物的小程序，图片名字.dbf的字段a里放的是jpg或gif图片的名字（即动物的名字），图片大小在300*200左右吧（不行再缩小），字段b是显示的次数，图片名字.dbf会时常增加记录的，需要有两种不同方式显示：

方式1、一张一张随机显示字段b=0的图片，显示后将字段b替换为1，在屏幕中间显示，图片下方有一按钮，鼠标点击后可播放该动物的儿歌（mp3名字与图片名字相同）,任意键或有“下一组”按钮点击后显示后下一张图片，当字段b全部是1后全部替换为0，再重新循环，有“退出”按钮。

方式2、先随机放一个字段b=0的动物的mp3，再随机找三张动物图片（字段b为0为1皆可），四张不同图片按“田”字型显示，位置需要随机变换，（让小朋友找一下刚才播放的是哪个小动物），显示后将先前播放mp3的字段b替换为1，并且每张图下面有一按钮，鼠标点击后可播放该动物的儿歌（mp3名字与图片名字相同）,任意键或有“下一组”按钮点击后显示下一组四张图片，再重新循环，有“退出”按钮。

我找到了一个播放mp3的函数（在附件里），不知道能不能减少大家的劳动，我不会做控件，只能拜托各位高手、版主了，我先替全班35名小朋友谢谢大家了！附件不支持大文件，只能放在网盘上了
http://sljf.qupan.cc/7032952.html

晕死了，一会儿山区的电教，一会儿作业帖，就是想给城里幼儿园的小朋友做个小程序，教学之用而已，mp3的代码是我从网上搜索出来的，如果我能编那段我想也用不着让大家帮忙了，mp3.prg我试过能用才上传的，希望能少占用大家的时间和精力，再次感谢大家的关注，谢谢！

我是用下面代码试的
acce'  兔子--1    老虎--2 ' to x
if x='1'
= PlayMicList( [C:\dongwu\兔子.mp3], .F. )
= PlayMicList( [C:\dongwu\兔子.mp3], .F. )
else
= PlayMicList( [C:\dongwu\老虎.mp3], .F. )
= PlayMicList( [C:\dongwu\兔子.mp3], .F. )
endi
我学的是foxbase最早最基础的部分，编个程也只是dos版的（是哪位网友说的，忘了），就上面那段还有问题呢----怎么只播放一遍。什么界面支持GDI，什么绘图，什么控件都不知是何物，电脑里的vfp我是当它foxbase用的，你要用C/C++完成那我更头大了，下次想再增加记录或删除记录都不会了，还是谢谢hellovfp！原想在十一前就能给小朋友用上，不知能否了

谢谢sywzs版主，从网上找了一下怎么运行表单，do form 表单1.scx 回车后出现了下面的错误
http://hiphotos.baidu.com/yymjjw/pic/item/ff418b02ec5e47a03ac76339.jpg
然后想打开看下，又出错了
http://hiphotos.baidu.com/yymjjw/pic/item/4d6e9e8069738e7dc9fc7a39.jpg
我是vfp6.0版本的，把先前附件里的文件全部放到VFP6.EXE所在的目录下，不知道是我哪里弄错了，请指教

恩，在vfp9下能用了，就是我要的效果，谢谢版主！不过少了一个小按钮，能在“停止”按钮后面再加上一个“随机”按钮，就是当四个图片出来后，点“随机”就随机放四个图片中的某个对应的mp3（可能还有加“随机暂停”“随机停止”按钮），等随机放完或暂停或停止后让小朋友猜是哪一副图，能帮助小朋友加深记忆。感谢版主再加工一下，那就完美了，我会告诉小朋友是辽宁的叔叔帮忙做的，让他们好好学习天天向上，我自己抽空也要从头学vfp9。

不好意思，原来是辽宁沈阳的爷爷啊，我确实不会加，让您费心了。

版主，有个小问题就是点对点错都是哭脸，能显示文件名的idea非常好，就是希望文件名在笑脸哭脸的下面显示,并且根据文件名的长度画出一个背景白色的小区域，用红色把整个文件名在这个小区域中显示出来，因为如果图片是红色的话，那显示的字就看不清楚了，所以要根据文件名的长度画出一个背景白色的小区域。

我说“点对点错都是哭脸”，是因为我增加了含有英文字母的jpg和mp3的配对文件，（我还纳闷版主怎么结贴了呢），点“随机”按钮后，再点正确图片就出现错误了，研究了大半天也不知道怎么改，麻烦版主再帮忙修改一下，其他的就不要改了，先祝您国庆节快乐，身体健康！

随机按钮还有点问题，一、出来一组四张图片后，点随机再点图片后，当第2次点随机的时候会出现重复刚才的图片，有时候要点3、4次才随机到没点过的图片，点过的图片要标记为已点过，要在这四张图片全部点过后，再次将这四张图片全部标记为未点过。二、先点随机再点图片后，这时如果再点更换的话会出现开始按钮，会将原先已经出来的图片重新随机再出来，就是说将全部的图片重新开始随机排列了，出来过的图片应该不出来了，我想要的随机按钮是只随机当前一组四张图片，而不影响全局的那个随机

感谢版主爷爷，在学校用了两天小朋友们都很是喜欢这个寓教于乐的小游戏，不过为什么我用下面的代码做成prg后，就会在所有图片出现后要重新随机时会出来打开表的对话框，出错的语句是 对象：cmdstart  过程：click  
SCAN    &&光标停在这里
  Thisform.List1.AddItem(ALLTRIM(DWM))
ENDSCAN

点击图片播放音乐.prg   (在百度上找到的)
close all                          
_screen.visible=.f.                 &&不显示vfp窗口
set talk off                        &&关闭系统对话
set century on                      &&年份显示四位
set date to ymd                     &&日期显示格式改为：年月日
set mark to "-"                     &&日期分隔符改为："-"
do form 点击图片播放音乐.scx     &&执行你的表单，将main.scx改成你的表单的名字。
read events           &&开始执行事务，此句不可省略！！！
set talk on          &&从此句开始恢复系统默认设置
set century off
set date to american
set mark to "/"
close all