在“工程”菜单 选择 “部件” 控件列表最下面 有一个 “Windows Media Player” 勾选 确定
把控件放入form中
Private Sub Form_Load()
WindowsMediaPlayer1.URL = "F:\音乐\晴天.mp3"
End Sub
运行就可以播放了。
能不能给几个步骤、、、
如何用VB6.0制作一个简单的播放音乐的程序
打开VB6.0 在“工程”菜单 选择 “部件” 控件列表最下面 有一个 “Windows Media Player” 勾选 确定 把控件放入form中 Private Sub Form_Load()WindowsMediaPlayer1.URL = "F:\\音乐\\晴天.mp3"End Sub 运行就可以播放了。
用VB6.0制作一个MP3播放器,给出代码谢谢
ret = Left(ret, 8)StatusBar1.Panels(1).Text = ret '在状态栏显示播放状态 t = mciSendString("play " + mfn + " form " + Str(ProgressBar1.Value), 0&, 0, 0)'开始播放 Timer1.Enabled = True End Sub Private Sub pause_Click()t% = mciSendString("pause " + mfn, 0&, ...
用VB6.0编写一个MP3播放器怎么编?各位高手给个代码或教程让小弟学习吧...
回答：用MMC控件或者WMP控件,都很简单,我提供一点代码,可以进行MP3的播放,但没有循环功能,循环功能你自己加吧,其实也是很简单的。MMC控件事例:一个MMC控件名字为:MMContorl1,一个Command控件名字为Command1,一个List控件名字为List1,一个CommonDialog控件名字为CommonDialog1代码:Pribate Sub Command1_Clic...
vb6.0制作音乐播放器的疑惑
单击“启动”按钮运行程序，点击不同的格式文件来播放音乐，看看我们的多媒体播放器强大的功能，注意重复播放时要倒带子，单击“倒带”然后再播放就重新播放了，退出前一定要关闭设备也就是“close”命令。整个代码为：Private Sub Command1_Click() '退出程序 MMControl1.Command = "close" '关闭播放器...
用vb怎么编写音乐播放器?
1.如何加载WindowsMediaPlayer，控件：在VB6.0D的菜单栏找到“工程”——“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“应用”“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。2.如何播放音乐文件 只需要将WindowsMediaPlayer1.URL赋...
VB6.0如何嵌入音乐
在VB6.0中嵌入音乐，首先，你需要在工具箱中添加一个Windows Media Player控件。这将允许你轻松地在应用程序中集成音频播放功能。通过使用Windows Media Player控件，你可以实现对多种音频格式的支持，包括WAV、AVI、MID、RMVB、RM和MP3等。用户只需双击相关文件，即可启动播放。为了提供更丰富的用户体验，...
怎样用VB6.0编播放器
使用WindowsMediaPlayer控件和Command控件就行了代码如下：Private Sub Form_Load()MediaPlayer1.settings.autoStart = False Me.Caption = "媒体播放器"End Sub Private Sub MediaPlayer1_PlayStateChange(ByVal NewState As Long)Select Case NewState Case mpPaused, mpStopped mnuPlay.Caption = "...
VB6.0播放音乐问题?
'添加部件WindowsMediaPlayer1、五个按钮 Dim flag As Boolean Private Sub Form_Load()With WindowsMediaPlayer1 .uiMode = "full"End With Command1.Caption = "播放暂停"Command2.Caption = "停止"Command3.Caption = "快进"Command4.Caption = "打开文件"Command5.Caption = "快退"End Sub '...
用vb怎样制作音乐播放器啊
呵呵，其实很简单的哦，认真看我的操作，选中这个，因为我已经选择好了，有这个是不行的，还要添加一个空间，那就是commondialog，它的添加给media player一样的，Microsoft Common Dialog Control 6.0 选中这个就行了，它对应的图标是这个———看我鼠标。把这个两个再添加到窗体上就可以了。然后就是...
请教vb6.0播放声音的问题
Public Sub 音乐()Dim Res As Integer, Ret As String * 1024 If blnBaojing = False Then Exit Sub 'Res = mciSendString("play " & APPPATH & "Shili.wav from 3000 to 8000", Ret, 1024, 0)Res = mciSendString("play " & APPPATH & "1.mp3", Ret, 1024, 0) '整首播放 End ...
