方便Xing点播的VB小程序

Author: 董平 Date: 1997-01-01

　　Ｘｉｎｇ是一个ＶＣＤ软解压程序，在使用中你可能会发现用它看ＶＣＤ电影还比较方便，但看卡拉ＯＫ影碟时要点播其中的一首歌就会有些不方便。下面就介绍一个用ＶＢ开发的点播程序，可以弥补Ｘｉｎｇ的这一缺陷，能在任何时刻选定你所要播放的歌曲。
　　先要在ｆｏｒｍ中建立ｆｉｌｅ１、ｃｏｍｍａｎｄ１、ｃｏｍｍａｎｄ２。设定ｃｏｍｍａｎｄ１．ｃａｐｔｉｏｎ＝“刷新”，ｃｏｍｍａｎｄ２．ｃａｐｔｉｏｎ＝“退出”，而后加入以下程序：
　　ｆｏｒｍ１－ｌｏａｄ（）　　　
　　ｏｎ　ｅｒｒｏｒ　ｒｅｓｕｍｅ　ｎｅｘｔ　　　
　　ｆｉｌｅ１．ｆｉｌｅｎａｍｅ＝＂ｄ：＼ｍｐｅｇａｖ＼ａｖｓｅｑ＊．ｄａｔ＂　　　
　　ｉｆ　ｅｒｒ　ｔｈｅｎ　　　
　　ｍｓｇｂｏｘ　＂在光盘中没有装入ＶＣＤ影碟！＂，６４　　　
　　ｆｉｌｅ１．ｅｎａｂｌｅｄ＝ｆａｌｓｅ　　　
　　ｅｘｉｔ　ｓｕｂ　　　
　　ｅｎｄｉｆ
　　ｆｉｌｅ１－ｃｌｉｃｋ（）　　　
　　ｆｉｌｅ＄＝ｆｉｌｅ１．ｆｉｌｅｎａｍｅ　　　
　　ｏｎ　ｅｒｒｏｒ　ｇｏｔｏ　ｉｎｅｒｒ　　　
　　ｏｐｅｎ　＂ｄ：＼ｍｐｅｇａｖ＼＂＋ｆｉｌｅ＄　ｆｏｒ　ｉｎｐｕｔ　ａｓ　＃１　　　
　　ｂ＄＝＂ｃ：＼ｘｉｎｇ＼ｘｍｐｌａｙｅｒ＼ｘｍｐｌａｙｅｒ．ｅｘｅ＂＋ｆｉｌｅ＄　　　
　　ｉｆ　ｅｒｒ　ｔｈｅｎ　　　
　　ｉｎｅｒｒ：　　　
　　ｍｓｇｂｏｘ　＂你可能中途换盘，按刷新键＂，１６　　　
　　ｆｉｌｅ１．ｅｎａｂｌｅｄ＝ｆａｌｓｅ　　　
　　ｅｘｉｔ　ｓｕｂ　　　
　　ｅｌｓｅ　　　
　　ｘｉｎｇ＝ｓｈｅｌｌ（ｂ＄，４）　　　
　　ｅｎｄｉｆ
　　ｃｏｍｍａｎｄ１－ｃｌｉｃｋ（）　　　
　　ｆｉｌｅ１．ｆｉｌｅｎａｍｅ＝＂ｃ：＼＊．ｄｐ＂　　　
　　ｏｎ　ｅｒｒｏｒ　ｒｅｓｕｍｅ　ｎｅｘｔ　　　
　　ｆｉｌｅ１．ｆｉｌｅｎａｍｅ＝＂ｄ：＼ｍｐｅｇａｖ＼ａｖｓｅｑ＊．ｄａｔ＂　　　
　　ｉｆ　ｅｒｒ　ｔｈｅｎ　　　
　　ｍｓｇｂｏｘ　＂没有装入ＶＣＤ或等ＣＤ－ＲＯＭ上的灯变为绿色后再按刷新＂，６４　　　
　　ｆｉｌｅ１．ｅｎａｂｌｅｄ＝ｆａｌｓｅ　　　
　　ｅｘｉｔ　ｓｕｂ　　　
　　ｅｎｄ　ｉｆ　　　
　　ｆｉｌｅ１．ｅｎａｂｌｅｄ＝ｔｒｕｅ
　　ｃｏｍｍａｎｄ２－ｃｌｉｃｋ（）　　　
　　ｅｎｄ
　　运行该程序，用鼠标点击所要播放的ＶＣＤ曲目就可直接调用Ｘｉｎｇ播放。在播放中按Ａｌｔ＋Ｔａｂ键切换可重新点歌。以上程序光驱盘符假定为Ｄ盘。