WindowsMediaPlayer1.uimode="none"可以只留下播放窗口，需要自己用按钮控制播放停止，至于你测试没反应，你自己仔细单步调试肯定找的到原因

谢谢版主！   播放器的播放条算是解决了  测试的时候要美观一点了。但是我还是播放不出来，没有任何错误提示，好像是没有找到路劲，还是谢谢你从头到尾都帮助我。结贴..............

Private Sub Command1_Click()
Dim a As String
a = Dir(App.Path & "\sp" & "\" & Text1 & ".*")
If a <> "" Then WindowsMediaPlayer1.URL = a
End Sub

我看了一下路劲是 VB的安装路劲，只有生成EXE文件 与多媒体为一个文件夹才可以播放，它怎么就不读取\SP文件夹里面的张三.MP3。
马上0:00 百度很久也无结果，版主怎么改一下呢？本人确实愚钝，累了晚安。

[ 本帖最后由 事业男儿 于 2014-5-7 23:55 编辑 ]

没验证dir返回结果。
还是应该像风版主说的，要计算下文件路径，代码如下：
Private Sub Command1_Click()
Dim a As String
a = Dir(App.Path & "\sp" & "\" & Text1 & ".*")
If a <> "" Then
  a=IIf(InStrRev(a, ".") > 0, "." & Right(a, Len(a) - InStrRev(a, ".")), "") '获取该文件的扩展名
  WindowsMediaPlayer1.URL =App.Path & "\sp" & "\" & Text1 & a
endif
End Sub

或者：由于dir只返回文件名（含该文件扩展名），如果该路径下查找的文件名唯一，就简单使用下列代码
Private Sub Command1_Click()
Dim a As String
a = Dir(App.Path & "\sp" & "\" & Text1 & ".*")
If a <> "" Then   WindowsMediaPlayer1.URL =App.Path & "\sp" & "\"  & a
End Sub



[ 本帖最后由 lowxiong 于 2014-5-8 07:31 编辑 ]

谢谢版主，测试通过