皮皮网

【顶级ai核心源码】【如何看到exe源码】【springbean实例化源码】vb音乐播放器源码_vb音乐播放器源码是多少

时间:2024-12-25 00:33:27 来源:车机系统源码

1.如何用VB编写一个音乐播放器
2.谁知道多媒体播放器的音乐b音源码VB程序代码

vb音乐播放器源码_vb音乐播放器源码是多少

如何用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 =

       .ShowOpen

       song = .FileName

       End With

       If song = "" The乐播n 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

谁知道多媒体播放器的VB程序代码

       播放flash需要添加:

       shockwave flash 控件

       添加后在窗体上画出屏幕

       需要一句代码:

       shockwaveflash1.movie="flash文件路径"'你可配合commondialog控件来选择文件!

       flash 实例:

       需要ShockwaveFlash一个,放器两个command

       Private Sub Command1_Click()

        ShockwaveFlash1.Movie = App.Path & "\ball.swf"

        '读取同一目录下的多少顶级ai核心源码Flash动画文件

        ShockwaveFlash1.Play

        Command1.Enabled = False

       End Sub

       Private Sub Command2_Click()

        If Command2.Caption = "暂停" Then

        ShockwaveFlash1.Playing = False

        '停止动画

        Command2.Caption = "继续"

        Else

        ShockwaveFlash1.Playing = True

        '继续动画

        Command2.Caption = "暂停"

        End If

       End Sub

       播放avi,rmvb 需要 microsoft multimedia control 6.0 控件,实例代码如下,音乐b音源码给你个教程,播放认真点,器源可以做出来的乐播!

       媒体播放器控件(MCI)可以播放音频和视频,放器也就是多少音乐和影碟。

       在 D:盘根目录下新建一个文件夹,音乐b音源码名字改为music,播放里面拷入三个音乐文件,器源一个Wav文件重命名为one,另一个Mp3文件,重命名为two,再将第十课中的如何看到exe源码thr视频文件拷贝进去,这是一个Avi文件。

       启动VB,修改好窗体的各个属性,再添加一个标签,将Caption改为“我的播放器”。

       MCI控件要自己添加到工具箱中,方法是在工具箱上单击鼠标右键,选择“部件”在对话框中找到Microsoft Multimeia Control6.0 打上勾选中,再单击“确定”这样在工具箱中就加入了多媒体控件MMControl。springbean实例化源码

       在工具箱里找到MMControl控件(最后一个),选中后在窗体上画一个,可以发现跟我们常见的设备符号一样,有播放、停止、暂停、快进、弹碟等等。以“音乐播放器”为文件名保存文件到自己的股票zb指标源码文件夹。

       现在播放器是虚的,还要设置一下显示属性,用鼠标右键单击窗体中的多媒体控件,在弹出的菜单中选择“属性”,在弹出的对话框顶端选择“控件”标签,将各个按钮符号旁边的有效选中打上勾,单击“确定”回到窗体中,这时候控件就可以使用了。

       单击启动按钮运行一下,net源码如何使用窗口中的播放器还是虚的,这是因为还没有要播放的文件。

       关闭程序回到窗体窗口,添加一个框架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 或者: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

推荐资讯
2030要降1/3癌症死亡率!國健署研擬幽門螺旋桿菌檢測 最快8月試辦

2030要降1/3癌症死亡率!國健署研擬幽門螺旋桿菌檢測 最快8月試辦

源码网站集合

源码网站集合

源码大盏

源码大盏

监管锁源码_监管锁源码下载

监管锁源码_监管锁源码下载

國家級警報大響!對流旺盛「慎防暴雨、雷擊」 12縣市大雨下到晚上

國家級警報大響!對流旺盛「慎防暴雨、雷擊」 12縣市大雨下到晚上

promise源码nodejs

promise源码nodejs

copyright © 2016 powered by 皮皮网   sitemap