锐客网

  1. 首页 > 生活百科 > it技术 > >

vbnet多媒体播放器 多媒体播放器怎么用

IT技术MMControl

用VB.NET编多媒体播放器我这里有一段前段时间写的测试代码，使用WMPLib类，中间有你需要的功能，你可以参考下:
使用wmp.currentMedia.duration和wmp.currentMedia.durationString分别以double和string获得当前媒体的播放时间，使用wmp.settings.volume设置音量大小，使用wmp.controls.currentPosition设置当前播放时间点
Imports WMPLib
Public Class FrmMain
Dim WithEvents wmp As WMPLib.WindowsMediaPlayer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wmp = New WMPLib.WindowsMediaPlayer()
TextBox1.Text = TextBox1.TextvbCrLf"当前播放状态:"wmp.status
wmp.uiMode = "Mini"
wmp.settings.balance = 1
wmp.enableContextMenu = True
wmp.fullScreen = False
wmp.windowlessVideo = True
wmp.enabled = True
Dim wmpMediaList As IWMPPlaylist = wmp.newPlaylist("默认播放列表", "")
Dim wmpMedia As IWMPMedia = wmp.newMedia(My.Computer.FileSystem.CurrentDirectory"\Human.mp3")
With wmpMediaList
.appendItem(wmpMedia)
End With
'wmp.URL = "\\192.168.1.247\sharoncn\music\Human.mp3"
wmp.currentMedia = wmpMedia
wmp.settings.autoStart = True
tBarPlay.Value = https://www.04ip.com/post/0
ListBox1.Items.Add(wmpMediaList.name)
ListBox1.SelectedIndex = 0
ListBox2.Items.Add(wmpMediaList.Item(0).name)
ListBox2.SelectedIndex = 0
tbar.Maximum = 100
tbar.Value = https://www.04ip.com/post/50
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub wmp_PlayStateChange(ByVal NewState As Integer) Handles wmp.PlayStateChange
tBarPlay.Maximum = wmp.currentMedia.duration * 10
Label1.Text = "总时间:"wmp.currentMedia.durationString
TextBox1.Text = TextBox1.TextvbCrLf"当前播放状态："NewState
If NewState = 1 Then
wmp.controls.play()
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.SelectionStart = Len(TextBox1.Text)
TextBox1.ScrollToCaret()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = "当前播放进度:"wmp.controls.currentPositionString
tBarPlay.Value = https://www.04ip.com/post/CInt(wmp.controls.currentPosition * 10)
End Sub
Private Sub tbar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbar.Scroll
wmp.settings.volume = tbar.Value
End Sub
Private Sub tBarPlay_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tBarPlay.Scroll
wmp.controls.currentPosition = tBarPlay.Value / 10
End Sub
End Class
用VB.NET 做个多媒体播放器?。能播放ATI格式的文件能看MTV就行了方法只是添加一个播放器控件 ， 再改它的属性就可以了.
添加播放器控件的方法：在窗体设计模式中，右键单击”工具箱”－＞”WINDOWS 窗体”，选择”添加／移除项”，再选择”COM组件”标签找到”WINDOWS MEDIA PLAYER”项，选上.最后把添加了控件放到窗体中就行了.
我没有ATI格式的文件也不知道MEDIA PLAYER能放不，不行的话用别的控件试试，比如REALPLAYER.
邮件我已经发过去了.
谁能帮我找到关于怎么用VB.NET编写一个播放器的材料???急!!当你在用老牌的XingPlay或是华丽的《超级解霸5.0》的时候,你有没有想过拥有一个你自己编写的软解压播放器呢?其实你只要掌握一点VB的技巧,那么要实现这个愿望就变得很简单了 。
笔者在初步研究了Windows的SYSTEM.INI后发现，通过VB的多媒体控件MCI.VBX可以打开MPEG压缩文件(如VCD2.0版的.DAT文件) 。
首先你的Windows系统中SYSTEM.INI文件关于[MCI]中需有MPEGVideo项(一般Windows95和Windows98中都已有此项,通过安装XingPlay或CCDVP95等软件也可增加此项) 。
其次在VB中建立一个新窗口,将MCI.VBX加入ToolBox中,将MCI控件拖放至窗体Form上,调整其大小,将九个按钮(从左至右为:Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中Record按钮Visible属性设为False,其余按钮的Visible属性和Enabled属性设置为True,以上按钮的设置可通过MMControl的属性栏内“自定义”项来设置 。
假设光驱为E:,VCD碟片文件为E:\MPEGAV\MUSIC01.DAT 。
源代码如下：
Private Sub Form_ Load()
MMControl.DeviceType=〃MPEGVideo〃
MMControl.FileName=〃E:\MPEGAV\MUSIC01.DAT〃
MMControl.Command=〃OPEN〃
MMControl.Command=〃PLAY〃
End Sub
Sub Form_Unload(Cancel As Integer)
MMControl.Command=〃close〃
End Sub
笔者通过实践发现Step和Back按钮功能不明显,所以对以上两个按钮进行了一些改进 。
Sub MMControl_ StepClick(Cancel As Integer)
j=MMControl.Position＋100 ′数值100为前进量,可适当调整
If jMMControl.Length Then
MMControl.From=MMControl.Length
Else
MMControl.From=j
End If
MMControl.Command=〃Play〃
End Sub
Sub MMControl_ BackClick(Cancel As Integer)
I=MMControl.Position－100 ′数值100为后退量,可适当调整
If I0 Then
MMControl.From=0
Else
MMControl.From=I
End If
MMControl.Command=〃Play〃
End Sub
MCI控件还有很多属性,如画面播放位置hWndDisplay属性等,读者可参阅相关资料自行摸索,这里不再介绍 。读者还可以通过建立通用对话框来打开文件,以解决VCD文件名不统一或多文件的问题 。
调整好窗体Form的标题、图标、颜色等,然后编译成?EXE文件,你就可以在Windows下拥有自己的VCD播放器了 。
如何用vb.net实现视频播放器编写vb.net代码来实现 。
引用控件来进行实现vbnet多媒体播放器 ， 如WMP控件 。
关于多媒体播放器的播放菜单（vb.net 2005）1.你使用vbnet多媒体播放器的媒体控制是什么？
2.要加入ListBox的双击事件
3. 你这里只是用浏览对话框找到了mp3文件vbnet多媒体播放器，并显示在列表框里 。没有播放的代码 。
张志晨
add
...............................................
添加WMplayer控件
Public Class Form1
Private Sub 打开目录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开目录ToolStripMenuItem.Click
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim f As IO.FileInfo
Dim d As IO.DirectoryInfo = New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
Dim file As String
For Each f In d.GetFiles("*.mp3")
file = (f.FullName)
ListBox1.Items.Add(file)
Next
End If
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged‘双击就播放
AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndex)
End Sub
End Class
【vbnet多媒体播放器 多媒体播放器怎么用】vbnet多媒体播放器的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于多媒体播放器怎么用、vbnet多媒体播放器的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：linux重启命令提示符，win7命令提示符重启电脑

    下一篇：游戏机恋爱养成游戏，恋爱游戏 养成类