A. 用vb怎样制作音乐播放器啊
好的，我们的教程现在开始——————
这个是我已经做好了的窗体，来看一下，这个应该熟悉吧？就是windows media player 它是怎么添加的呢？呵呵，其实很简单的哦，认真看我的操作，选中这个，因为我已经选择好了，有这个是不行的，还要添加一个空间，那就是commondialog，它的添加给media player一样的，Microsoft Common Dialog Control 6.0 选中这个就行了，它对应的图标是这个————看我鼠标。把这个两个再添加到窗体上就可以了。
然后就是写代码，我想你是想做个播放器吧？呵呵，我就把代码顺便给你写了出来....下面看代码
'代码开始————————————————————
Private Sub Command1_Click()
CommonDialog1.Action = 1
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Form1.Caption = "影音播放器"
Command1.Caption = "打开"
Command2.Caption = "退出"
End Sub
_________________________________________________
这个就是代码了，下面我们运行一下看能不能运行啊...期待中ing...o(∩_∩)o...貌似可以哦，^_^
:-)，看到没，一个播放器做成了！！！怎么样？有点成就感吧？当然要做好一个播放器不只是这么简单的哦，还需要继续努力！好了，教程到此结束.我这个支持你选择播放的！！！
以上程序在xp下测试通过！
B. 帮着用vb6做一个音乐播放器可以么大神们帮帮忙
VERSION 5.00 Begin VB.Form Form12 Caption = "播放音频文件" ClientHeight = 7650 ClientLeft = 60 ClientTop = 450 ClientWidth = 10875 LinkTopic = "Form12" ScaleHeight = 7650 ScaleWidth = 10875 StartUpPosition = 3 '窗口缺省 End Attribute VB_Name = "Form12" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Form_Click() Dim x x = mciExecute("play F:\OneMoreTime-Jewelry-Kenh14.vn.mp3") End Sub
C. 用VB做一个简单的MP3播放器怎么做
要求挺多呀,用WindowsMediaPlayer控件,代码也给你贴上吧
Dim songname$, appdisk$, aa$
Private Sub Command1_Click()
Dim time As Integer
If Command6.Caption = "暂停" Then
If WindowsMediaPlayer1.URL = "" Then
mciSendString("pause " & songname, vbNullString, 0, 0)
'暂停歌曲播放
Else
WindowsMediaPlayer1.Controls.pause()
End If
Command6.Caption = "继续"
ElseIf Command6.Caption = "继续" Then
If WindowsMediaPlayer1.URL = "" Then
mciSendString("play " & songname & " repeat", vbNullString, 0, 0)
'歌曲循环播放，去除 & " repeat" 则取消循环
Else
WindowsMediaPlayer1.Controls.play()
End If
Command6.Caption = "暂停"
End If
End Sub
'加载歌曲
Private Sub Form_Load()
On Error Resume Next
'忽略错误，有错误的时候不显示
WindowsMediaPlayer1.Visible = False
Command4.Enabled = False
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\\" Then appdisk = appdisk & "\\"
aa = "system.mp3"
If InStr(aa, " ") > 0 Then
'判断歌曲名是否有空格,有的话就去掉,并拷备为没空格的新歌曲名(在同一路径下)
songname = Replace(aa, " ", "")
FileCopy(appdisk & aa, appdisk & songname)
Else
songname = aa
End If
If InStr(appdisk, " ") > 0 Then
'判断路径是否有空格
FileCopy(appdisk & songname, Left(appdisk, 3) & songname)
'将歌曲拷到windows系统盘符下.
songname = Left(appdisk, 3) & songname
Else
songname = appdisk & songname
End If
mciSendString("play " & songname & " repeat", vbNullString, 0, 0)
'歌曲循环播放，去除 & " repeat" 则取消循环
End Sub
'关闭程序时 卸载内存中的歌曲
Private Sub Form_Unload(ByVal Cancel As Integer)
mciSendString("stop " & songname, vbNullString, 0, 0)
End Sub
D. 用VB6.0制作音乐播放器
申明:(CommonDialog控件的来name改为cmd
把WindowsMediaPlayer的源name改成WMP)你也可以不修改...
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click(Index As Integer)
cmd.FileName = ""
cmd.DialogTitle = "请选择您要播放的MP3格式的文件 "
cmd.Filter = "MP3|*.mp3|" Rem随便什么格式自己去添加就ok了
cmd.ShowOpen
If Trim(cmd.FileName) = "" Then
Exit Sub
Else
WMP.URL = Trim(cmd.FileName)
End If
End Sub
Private Sub Form_Load()
If App.PrevInstance Then
End
End If
End Sub
E. 用VB做个音乐播放器
工程-->部件-->浏览-->选择msdxm.ocx加载
然后在窗体设计器中创建一个MediaPlayer控件，名字不用改，不过注意如果专名字不是属MediaPlayer1就说明该控件版本和我不一样，代码也就不能用了。
接着在Form_load事件中加入代码：
MediaPlayer1.AutoStart = False '让播放器不自动播放
MediaPlayer1.FileName = "C:\123.mp3" '载入C:\123.mp3
MediaPlayer1.Play '播放
当然事先要在C盘放一个123.mp3
暂停和停止功能，MediaPlayer控件自带。
虽然功能很少但是至少可以实现mp3播放，如果你有不懂的地方，我可以继续为你解答。
F. vb6.0做在线音乐播放器
菜鸟学做这个抄没什么意思啊
根本学不到什么的
最好自己想想做个小游戏之类考验算法的东西来
比较有意义
写那个非过程化的东西一点学习价值也没有
如果你真想做点话可以自己去查查WMP控件的属性
以及怎么读写文件 这就足够了
真的说实话 你说的那个东西真的什么也学不到 培养编程能力
不必知道了解很多的东西的用法 只要拿过来会用能用就行
重要的在于一个能力 你说的那个东西就是用代码设置属性玩了
只要对WMP控件了解了 知道他怎么用了 你就可以做出来了
而且在线的音乐列表 这个需要一个庞大的数据库来支持 这点你是无法实现
除非你的音乐表里只有几首歌
G. 如何用VB编写一个音乐播放器
添加一个 WindowsMediaPlayer，一个CommonDialog，一个list ，一个command
Dim pa As String
Private Sub Command1_Click()
Dim song As String
With CommonDialog1
.FileName = ""
.Filter = "*.MP3|*.mp3;*.avi;*.mid"
.Flags = 512
.ShowOpen
song = .FileName
End With
If song = "" Then Exit Sub
a = ""
For i = Len(song) To 1 Step -1
k = Mid(song, i, 1)
If k = " " Then '多首歌的分隔符
List1.AddItem a
a = ""
ElseIf k = "\" Then '一首歌时歌名与路径的分隔符
List1.AddItem a
pa = Left(song, i)
Exit Sub
Else
a = k & a
End If
Next i
End Sub
Private Sub List1_DblClick()
Me.Caption = "我的播放器 当前播放" & pa & List1.Text
WindowsMediaPlayer1.URL = pa & List1.Text
End Sub
H. 用vb怎么编写音乐播放器
1.如何加载WindowsMediaPlayer，控件：
在VB6.0D的菜单栏找到“工程”——“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“应用”“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。
2.如何播放音乐文件
只需要将WindowsMediaPlayer1.URL赋相应的值即可。
例如要在窗体加载时播放music.mp3这个文件，只要这样写代码。
Private Sub Form_Load()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub
注意：其中的\music.mp3是一个相对路径表示当前目录下的文件，即你的工程所保存的位置。
3.如何暂停播放
在command按钮中加入如下代码，即可实现。
Private Sub Command4_Click()
WindowsMediaPlayer1.Controls.pause
End Sub
4.如何在暂停播放之后继续播放
在command按钮中加入如下代码，即可实现。
Private Sub Command3_Click()
WindowsMediaPlayer1.Controls.play
End Sub
如果想实现音乐从头播放，只需要将第二条中播放音乐中代码再写一遍即可。
Private Sub Command5_Click()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub
5.停止播放的音乐（关闭播放器）
在command按钮中加入如下代码，即可实现。
Private Sub Command1_Click()
WindowsMediaPlayer1.Close
End Sub ----------------------------------------------简单的话 一句话Private Sub File1_DblClick()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.List(File1.ListIndex)
End Sub
I. 怎样用VB制作一个音乐播放器
申明:(CommonDialog控件的name改为cmd 把WindowsMediaPlayer的name改成WMP)你也可以不修改... Private Sub Command1_Click() End End Sub Private Sub Command2_Click(Index As Integer) cmd.FileName = "" cmd.DialogTitle = "请选择您要播放的MP3格式的文件版 " cmd.Filter = "MP3|*.mp3|" Rem随便什么格式自己权去添加就ok了 cmd.ShowOpen If Trim(cmd.FileName) = "" Then Exit Sub Else WMP.URL = Trim(cmd.FileName) End If End Sub Private Sub Form_Load() If App.PrevInstance Then End End If End Sub 貌似书上都有这个的做法啊？
J. 怎样在VB做一个简单的音乐播放器啊
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim tmpF As String
tmpF = File1.Path
If Right(tmpF, 1) <> "\" Then tmpF = tmpF & "\"
tmpF = tmpF & File1.List(File1.ListIndex)
WMP1.URL = tmpF
WMP1.Controls.play
Label1 = tmpF
End Sub
Private Sub Form_Load()
File1.Pattern = "*.mp3;*.wav"
End Sub