Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 确实是api错了,我怎是郁闷,这个我都没注意看下 嘿嘿给你一段我的播放器的调用函数Public Function MP3Player(Inst As String) If Inst = "Play" Then If Form1.Timer1.Enabled = False Then If mciSendString("play mp3", Chr(0), 0, 0) = 0 Then Form1.Timer1.Enabled = True Form1.Command1(0).Caption = "暂停" Eror = False Else If Eror = True Then Form1.Temp.Tag = Form1.Temp.Tag + 1 Eror = True Form1.Player (1) Eror = False End If Else Call mciSendString("pause mp3", Chr(0), 0, 0) Form1.Command1(0).Caption = "播放" Form1.Timer1.Enabled = False Eror = False End If End If If Inst = "上" Then Form1.Temp.Tag = Form1.Temp.Tag - 1 Form1.Player (1) End If If Inst = "下" Then Form1.Temp.Tag = Form1.Temp.Tag + 1 Form1.Player (1) End If If Inst = "Stop" Then Call mciSendString("close mp3", Chr(0), 0, 0)End Function另外我有写好的播放器源码,可以添加列表,全局组合热键控制,自己在用如果要可以发给你风影flash播放器 1.85 风影flash播放器可以实现的功能主要有:软件界面秉承传统影音播放器的特点(如豪杰解霸,东方影都等),让你上手起来非常容易,一看就懂,只需拖动滚动条便可就可以随意控制动画进度,还可以跳转到指定帧,和快速播放、快速退放、慢速播放、慢速退放、快退、快进、暂停、停止、上一首、下一首,等方式观看动画,并且在播放动画时会显示动画正在播放的帧数、动画总帧数、动画时间、和播放状态,并可随意控制音量大小。窗口可以随意拖放大小,并有标准窗口、二倍窗口、最大化、全屏播放、恢复视窗,多种窗口控制模式,同时具备窗口总在最前的功能,可以让你一边工作,一边欣赏动画。有默认、游戏机、mtv单曲、mtv列表,四种播放模式可供选择,让你更自由的播放动画。风影flash播放器具有很强大的列表功能,你可以增加单个动文件或整个文件夹下的动画文件到播放列表,并可保存列表文件、找开列表文件、清空列表、动画文件改名、动画文件另存、搜索ie缓存中的动画,还有预览窗口,预览播放列表中的动画,可以帮助您迅速找到所需要的 flash动画。风影flash播放器 v1.5新増功能:增加了swf2scr,可将flash动画设为当前屏幕保护程序。增加了swf2exe,可将喜爱的动画做成可执行文件(专用播放器),发给您的朋友共享!。增加了exe2swf,可以打开所有正确的exe格式的flash文件。增加了当前帧另存为位图的功能。增加了当前帧设为墙纸的功能,这样你可将你喜欢的flash画面设为桌面。改进了拖放文件的功能。可以非常方便的搜索刚刚在网上浏览过的动画, 可通过选择"时间搜索选项"来做更为详细的搜索,这样就可以把你刚才30秒,1分钟,2,10,20,30分钟,最大可选择1小时内的动画添加到列表,手动调整搜索文件的大小,可以过滤掉不想看的广告动画。修改了前一版本的一些bug,运行更加稳定。