vb媒体播放器程序
我是来学习的!!
Option Explicit
Dim i As Byte
Dim strUrl() As String
Dim PlMode As Byte
Private Sub cmdFF_Click()
wmp.Controls.fastForward
End Sub
Private Sub cmdFR_Click()
wmp.Controls.fastReverse
End Sub
Private Sub cmdNxt_Click()
If Playlist.ListIndex = Playlist.ListCount - 1 Then
Exit Sub
Else
Playlist.ListIndex = Playlist.ListIndex + 1
wmp.URL = strUrl(Playlist.ListIndex)
i = 0
cmdPlayPause_Click
End If
End Sub
Private Sub cmdPlayPause_Click()
i = i + 1
If i = 10 Then i = 2
If i Mod 2 = 1 Then
cmdPlayPause.Caption = "暂停"
wmp.Controls.play
ElseIf i Mod 2 = 0 Then
cmdPlayPause.Caption = "播放"
wmp.Controls.pause
End If
End Sub
Private Sub cmdPre_Click()
If Playlist.ListIndex = 0 Then
Exit Sub
Else
Playlist.ListIndex = Playlist.ListIndex - 1
wmp.URL = strUrl(Playlist.ListIndex)
i = 0
cmdPlayPause_Click
End If
End Sub
Private Sub cmdStop_Click()
wmp.Controls.stop
If cmdPlayPause.Caption = "暂停" Then cmdPlayPause.Caption = "播放"
i = 0
PlMode = 4
End Sub
Private Sub Form_Load()
Me.Caption = "多媒体播放器"
Me.Left = 1200
Me.Top = 1800
Me.Width = 10800
Me.Height = 7200
PlMode = 1
i = 0
End Sub
Private Sub HscVolume_Change()
wmp.settings.volume = HscVolume.Value
End Sub
Private Sub lblShow_Click(Index As Integer)
If Index = 0 Then
PopupMenu mnuPR
End If
End Sub
Private Sub mnuFileOpen_Click()
Dim n As Integer
cd.CancelError = True
On Error GoTo ERR
cd.Flags = 8
cd.ShowOpen
wmp.URL = cd.FileName
Playlist.AddItem wmp.currentMedia.getItemInfo("Title")
n = Playlist.ListCount
ReDim Preserve strUrl(n)
strUrl(n) = cd.FileName
Playlist.ListIndex = n - 1
i = 0
cmdPlayPause_Click
ERR:
End Sub
Private Sub mnuFileURL_Click()
Dim s As String, n As Integer
s = InputBox("请输入一个有效的URL地址", "URL输入")
If Len(Trim(s)) = 0 Then Exit Sub
wmp.URL = s
Playlist.AddItem wmp.currentMedia.getItemInfo("Title")
n = Playlist.ListCount
ReDim Preserve strUrl(n)
strUrl(n) = cd.FileName
Playlist.ListIndex = n - 1
i = 0
cmdPlayPause_Click
End Sub
Private Sub mnuHelpAbout_Click()
MsgBox App.ProductName & vbCrLf & "版本:" & App.Major & "." & App.Minor _
& vbCrLf & "作者:" & App.CompanyName
End Sub
shockwave flash 控件
添加后在窗体上画出屏幕
需要一句代码:
shockwaveflash1.movie="flash文件路径"'你可配合commondialog控件来选择文件!
播放avi,rmvb 需要 microsoft multimedia control 6.0 控件,实例代码如下,给你个教程,认真点,可以做出来的!
媒体播放器控件(MCI)可以播放音频和视频,也就是音乐和影碟。
在 D:盘根目录下新建一个文件夹,名字改为music,里面拷入三个音乐文件,一个Wav文件重命名为one,另一个Mp3文件,重命名为two,再将第十课中的thr视频文件拷贝进去,这是一个Avi文件。
启动VB,修改好窗体的各个属性,再添加一个标签,将Caption改为“我的播放器”。
MCI控件要自己添加到工具箱中,方法是在工具箱上单击鼠标右键,选择“部件”在对话框中找到Microsoft Multimeia Control6.0 打上勾选中,再单击“确定”这样在工具箱中就加入了多媒体控件MMControl。
在工具箱里找到MMControl控件(最后一个),选中后在窗体上画一个,可以发现跟我们常见的设备符号一样,有播放、停止、暂停、快进、弹碟等等。以“音乐播放器”为文件名保存文件到自己的文件夹。
现在播放器是虚的,还要设置一下显示属性,用鼠标右键单击窗体中的多媒体控件,在弹出的菜单中选择“属性”,在弹出的对话框顶端选择“控件”标签,将各个按钮符号旁边的有效选中打上勾,单击“确定”回到窗体中,这时候控件就可以使用了。
单击启动按钮运行一下,窗口中的播放器还是虚的,这是因为还没有要播放的文件。
关闭程序回到窗体窗口,添加一个框架Fram1,向里面添加三个单选按钮Option,分别设置Caption为Wav,Mp3和Avi,再修改好背景色。
下面我们来添加代码打开播放器,播放一个指定的文件,双击窗体,添加代码到Form_Load()过程中初始化播放器:
MMcontrol1.Notify=False '不返回播放信息
MMcontrol1.Wait=True '播放时其他人等待
在代码窗口的顶部左边的列表中选择Option1,右边自动选择Click,在弹出的Option_Click()过程中添加播放Wav的代码:
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音频格式
MMControl1.FileName = "d:\music\one.wav" '文件夹中的one.wav文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '播放文件
各行代码的作用,在后面的绿色注释中讲到,最后一句用来自动播放,相当于单击播放器的“播放”按钮,播放时必须要有文件名和播放命令。
同样找到Option2的Click()过程,添加播放MP3的代码:
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "" '其他类型
MMControl1.FileName = "d:\music\two.mp3" '文件夹中的two.mp3文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '也可以点击播放按钮
这里的Mp3格式是压缩格式属于其他类型,别的跟Wav文件相同,都是声音文件,没有图像只有音乐。
注意Option3有些不同,它是Avi视频格式,也就是既有声音还有图像,它的Click()代码为:
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "AviVideo" 'Avi视频格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗体当屏幕
MMControl1.FileName = "d:\music\thr.avi" '文件夹中的thr.avi文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '也可以点击播放按钮
这儿第三行代码是让视频图像显示在背景中,也可以添加一个图片框,把Form1改为PIcture1,注意图像的比例一般是4:3 或者16:9。
检查一遍代码,注意中英文和标点符号以及大小写的正确性。保存一下文件
单击“启动”按钮运行程序,点击不同的格式文件来播放音乐,看看我们的多媒体播放器强大的功能,注意重复播放时要倒带子,单击“倒带”然后再播放就重新播放了,退出前一定要关闭设备也就是“close”命令。
整个代码为:
Private Sub Command1_Click() '退出程序
MMControl1.Command = "close" '关闭播放器设备
MMControl1.Shareable = True '允许别人使用播放器
End
End Sub
Private Sub Form_DblClick()'双击退出
MMControl1.Command = "close" '关闭播放器
MMControl1.Shareable = True
End
End Sub
Private Sub Form_Load()
MMControl1.Notify = False '不返回播放信息
MMControl1.Wait = True '播放时其他人稍等
End Sub
Private Sub Form_Unload(Cancel As Integer) '关闭窗口
MMControl1.Command = "close" '关闭播放器
MMControl1.Shareable = True
End Sub
Private Sub Option1_Click()
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音频格式
MMControl1.FileName = "d:\music\one.wav" '文件夹中的文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '播放文件
End Sub
Private Sub Option2_Click()
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "" '其他类型
MMControl1.FileName = "d:\music\two.mp3" '当前文件夹中的文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '也可以点击播放按钮
End Sub
Private Sub Option3_Click()
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "AviVideo" 'Avi视频格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗体当屏幕
MMControl1.FileName ="d:\music\thr.avi" '文件夹中的文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '也可以点击播放按钮
End Sub
PS:想做的漂亮,你再找点教程!
Flash Player是什么软件?
Adobe Flash Player是一种广泛使用的、专有的多媒体程序播放器。Adobe Flash Player最初设计目的为播放2维向量动画,但至此之后成为适合开发创造丰富型互联网应用程序、流视频音频的工具。Flash成为嵌入网页中的小游戏、动画以及图形用户界面常用的格式。2017年7月26日,Adobe Systems公司宣布,计划在2020年底...
哪位高手帮忙教一下如何用VB制作一个媒体播放器啊
单击“启动”按钮运行程序,点击不同的格式文件来播放音乐,看看我们的多媒体播放器强大的功能,注意重复播放时要倒带子,单击“倒带”然后再播放就重新播放了,退出前一定要关闭设备也就是“close”命令。整个代码为:Private Sub Command1_Click() '退出程序 MMControl1.Command = "close" '关闭播放器...
以字母B开头的电视播放器
是不是BeoPlayer播放器
哪里可以下载SD-Jukebox ?
一个可以不需外挂任何Encoder程序就能将CD转成MP3(WAV,RA)的程序,速度也快,而且还能 www.onlinedown.net\/soft\/1769.htm 3.Media Jukebox 8.0.399 多媒体播放器,支持 MP3、MusicX、AVI 以及 Windows Media Player 6.0 支持的所有格式 dl.pconline.com.cn\/html\/1\/8\/dlid=498&dltypeid=1&p...
b) 常见多媒体文件有哪些?它们相对应的播放器是什么
图片类:jpg,bmp,png,tif等,可以用ACDSee查看 影像类:mov,mpg,avi,mkv,rmb,wmv,mp4等,推荐用KMplayer播放(支持格式多)声音类:mp3,wma等,可以用qq音乐就可以。。其他诸如flash之类也可以用暴风影音或者Flashplayer播放
[ 请教]VLC Media Player 怎么用啊
1安装并运行“VLC播放器”程序,点击“媒体”->“打开网络串流”项就可以观看网络视频 2在打开的“打开媒体”窗口中,将磁力链接或视频地址粘贴到“URL地址栏”,并点击“播放”按钮就可以正式观看视频。3点击“视频”-“播放列表”项就可以打开“播放列表”窗口啦。快捷为“Ctrl+L”。4在播放列表界面...
AdobeFlashplayer是什么软件
Adobe Flash Player 是一款高级客户端运行时使用的播放器。它短小精悍,能够在各种浏览器、操作系统和移动设备上使用,功能强大,兼容性高。超过13亿台的连接 Internet 的桌面计算机和移动设备上都安装了 Adobe Flash Player ,它使公司和个人能够构建并带给最终用户美妙的数字体验。使您能够在将交互式、...
ape文件怎么打开
APE(Monkeys Audio)是一种无损音频压缩格式,常用于存储高质量的音乐文件,要打开APE文件,你可以尝试以下几种方法。一、播放器软件:使用支持APE格式的音频播放器软件来打开和播放APE文件。以下是一些常用的支持APE格式的播放器软件:1、Foobar2000:一款免费的高度可定制的音频播放器,支持多种音频格式,...
什么播放器可以播放mkv格式?
Media Player Classic是一个模仿 Windows Media Player 6.4这个经典版本的媒体播放器,但并非基于WMP6.4改进。由匈牙利人Gabest开发,基于源代码开放协议(GPL)。根据此协议,任何人都可以自由使用这款软件的源代码,条件是使用这款软件的源代码所开发或改进的软件也必须按GPL协议开放其源代码,而软件也...
VB制作MP3播放器问题
我想起我2001年做的第一个小程序,当时市面上还没有可以单曲循环和带歌词的播放器,就给女朋友写了个,花了我3天的时间,怀念起那时的日子。Dim ab As String Private Sub Command1_Click()Dim song As String Dim a As String With CommonDialog1 .FontName = "".Filter = "*.mp3 |*.mp3...
犹诞沈阳: 在VB中选“工程”=>“部件”=>在“控件”选项卡中勾选“Windows Media Player”=>确定 你就会看见控件栏中多了个控件,既是Windows Media Player控件了,再在窗口中添加该控件就行了.解释一下三楼的代码: Private Sub Form_Load()WMP1.settings.autoStart=True'打开窗口自动播放WMP1.URL="d:\movie.mpg"'播放“D:\”目录下的“movie.mpg”文件 End Sub看完有帮助的话别忘了采纳哦~~~~~呵呵呵~~~~
临川区15683305575: 用VB编写视频播放器,给个代码?
犹诞沈阳: 就是在菜单里 添加控件 选windows media player然后拖到form上 就好了...好像都不需要代码...
临川区15683305575: VB制作媒体播放器代码?
犹诞沈阳: 可以使用自带的WindowMediaPlayer控件 如果是网络路径就是 Name.Url=“http://www.xxx.com/1.mp3” 如果是当前本地路径就是: app.path & "\1.mp3"
临川区15683305575: 如何用VB制作简单的播放器? - ?
犹诞沈阳: 本人曾做过这类东西,你可以使用VB自带的media player,MCI控件,也可以调用API函数.或者在网站上搜索一下别人编写的现成的播放器.在设计模式下选择WindowsMediaPlayer的“自定义……”可以设置它的相关基本属性,如装载时是否启...
临川区15683305575: vb制作播放器的代码??
犹诞沈阳: 先添加这个控件 WindowsMediaPlayer1.URL = "所要播放文件的地址" 这个好多视频格式好像都是不支持的
临川区15683305575: VB编一个多媒体播放器 要代码?
犹诞沈阳: 点工程然后点部件.在其中找出windows media player 然后确定. 用到两个代码. 播放中是WindowsMediaPlayer1.URL="地址" 停止的是WindowsMediaPlayer1.URL=""
临川区15683305575: 用vb怎样编写多媒体播放器啊? - ?
犹诞沈阳: 本例设计了一个多媒体播放器,它能够播放WAV、MIDI和AVI文件.Private Sub Check2_Click() If Check2.Value = 1 Then '关闭AVI文件的声音 MMControl1.Silent = True Else '打开AVI文件的声音 MMControl1.Silent = False End If End ...
临川区15683305575: 求高手编写VB 多媒体播放器程序代码?
犹诞沈阳: 给你代码(能播放视频文件和音频文件): 首先引用一下部件并添加到你的窗体: (1):Microsoft common dialog control 6.0 (2):windows media player 代码: CommonDialog1.Filter = "支持的视频格式|*.avi;*.mpg;*.wmv;*.rm;*.rmvb|支持的音频格式|*.wav;*.mp3;*.wma|list|*.wpl"CommonDialog1.ShowOpenIf CommonDialog1.FileName <> "" ThenWindowsMediaPlayer1.URL = CommonDialog1.FileNameEnd If
临川区15683305575: 用vb怎么编写音乐播放器? - ?
犹诞沈阳: 1.如何加载WindowsMediaPlayer,控件:在VB6.0D的菜单栏找到“工程”——“部件”,在弹出的菜单中,拉动滚动条找到WindowsMediaPlayer,将其前面的复选框选中,点击“应用”“确定”即可,然后你就会在你的的控件栏中看到...
临川区15683305575: 基于VB6.0制作媒体播放器的步骤 - ?
犹诞沈阳: 1.新建一个工程;2.用ctrt+T使用windows Media player控件;3.插入控件;4.制作菜单;5.设置必要项;6.使用.QQ给我:代码哥给你发过来!