vb.net中 AxWindowsMediaPlayer的用法

Posted 2023-04-06

Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter
filename = "E:\歌\爱是最大权利.mp3"
我要用代码来实现我要播放的歌、电影

参考技术A 有个currentplayerlist属性呀，但是好像没有什么用... 还有一个方法，就是通过PlayStateChange事件来处理 首先要有三个窗体级变量： urls() As String nowplayindex As Integer forend As Boolean 然后在urls中存一个歌曲的路径，在AxWindowsMediaPlayer1_PlayStateChange中加入以下内容： If e.newstate = 1 Then If forend = False Then If nowplayindex + 1 = urls.Count Then nowplayindex = 0 AxWindowsMediaPlayer1.URL = urls(0) AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 0 AxWindowsMediaPlayer1.Ctlcontrols.play() forend = True Else AxWindowsMediaPlayer1.URL = urlss(nowplayindex + 1) AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 0 AxWindowsMediaPlayer1.Ctlcontrols.play() nowplayindex += 1 forend = True End If End If End If 上面的代码实现了顺序播放和循环播放 教你一个方法，可以获取到mp3、wma的歌曲属性 Object.Text = AxWindowsMediaPlayer1.currentMedia.getItemInfo(InfoName) InfoName可以填下面的字符串，如TextBox1.Text = AxWindowsMediaPlayer1.currentMedia.getItemInfo("Title") '获取MP3的唱片标题 Abstract、Description = 备注 Author、Artist = 艺术家 AverageLevel = 平均等级？ Bitrate = 比特率 Copyright = 版权 CurrentBitrate = 现在的比特率？ Duration = 总时间（秒） FileSize = 文件大小 FileType = 文件类型（其实就是扩展名） Is_Protected = 是否受保护 Is_Trusted = 是否受托管？ IsVBR = 应该是是否存在可变比特率 MediaType = 媒体类型 SourceURL = 原文件路径 Streams = 文件流？ Title = 唱片标题 Type = 类型 WM/AlbumArtist = 专辑艺术家 WM/AlbumTitle、Album = 专辑 WM/Genre、Genre = 流派 WM/GenreID = 流派编号？ WM/Lyrics = 歌词 WM/PromotionURL = 升级地址？ WM/Track = 音轨 WM/TrackNumber = 曲目编号 WMFSDKNeeded = 必须的软件版本版本 WMFSDKVersion = 软件版本 WM/Year = 年代 WMServerVersion = 服务器版本？ 多教楼主一个信息，是不是要多给点分？ 还有，我想问一下，怎么播放avi文件呀？ QQ 626808803

vb.net中怎么使用createobject添加类呢，就好像vb中一样

vb中代码如下：
Dim aa As Object
Set aa = CreateObject("aaa.aa")
有谁可以告诉我vb.net中如何做到吗？不要添加引用的那种，只知道类名
VB中可以直接使用，但是在VB.NET 中会提示无法创建ACTIVEX控件。当然了，如果添加引用的话肯定是没有问题的，但是我是想和VB中一样，不添加引用。我事先是不知道有哪些类的，类名都是保存在数据库中的，用的时候才会抓出类名，然后用createobject来添加。这样在vb中是可以的，但是在vb.net中我就不知道怎么实现了

应该是一样的，createobject（“”）
不过你还是要添加引用的，否则那个调用对象是不行的。
建议你还是引用的好，这样容易查错，object对象无法继承，所以就没有下拉菜单的索引帮助。这样往往运行时才会引发错误，且这种错误不方便查询定位。追问

不一样，VB中可以直接使用，但是在VB.NET 中会提示无法创建ACTIVEX控件。当然了，如果添加引用的话肯定是没有问题的，但是我是想和VB中一样，不添加引用。我事先是不知道有哪些类的，类名都是保存在数据库中的，用的时候才会抓出类名，然后用createobject来添加。这样在vb中是可以的，但是在vb.net中我就不知道怎么实现了

追答

vb很久没用了，不是很有印象。不过即使按照你的要求，也是可以做的。你可以用VB6写个你需要的dll，这样。net中直接调用它就是了。
不过如果你事先都不知道类是干什么的，就能写出他的调用过程，逻辑上有些不可理解！^_^

追问

我试过了，确实可以实现了。但是为什么vb.net中生成的类没有办法这么调用呢？

追答

^_^，这个问题应该让微软来回答！

参考技术A dim aa as new aaa.aa 参考技术B 就这样可以的，vb.net也行