首页 >> 读书频道 >> 电脑 >> VB.Net播放声音文件3
 
· VB.Net播放声音文件
· PHP 和 HTML
· 使用 PHP
· VB.Net播放声音文件
· 编译问题
· VB.NET多线程开发实
· Visual Basic
· 安装
· 数据库问题
· 获取 PHP
· 邮件列表
· VB.NET面向对象的实
 
· 国家六部门联合发文
· 红楼梦:120回全本[清
· 常见图像文件格式详解
· 拉封丹寓言
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

VB.Net播放声音文件3


查看有无更新版本

关键字:VB.NET 2006-9-22

 

Protected Sub Button1_Click(ByVal sender As Object,
ByVal e As System.EventArgs)

        AxMMControl1.From = 8815 '从3000毫秒开始

        AxMMControl1.To =15624 '从6000毫秒结束

        AxMMControl1.Command = "play" '播放

    End Sub

    

    Protected Sub Button3_Click(ByVal sender As Object,
ByVal e As System.EventArgs)

        Me.Dispose() '调用dispose退出程序,释放占用的资源

    End Sub

   

    Protected Sub Form1_Click(ByVal sender As Object, ByVal
e As System.EventArgs)

       

    End Sub

    

    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs)

        AxMMControl1.From = 0 '从 0毫秒开始

        AxMMControl1.To = 8815 '从3000毫秒结束

        AxMMControl1.Command = "play" '播放

    End Sub

   

    Protected Sub AxMMControl1_OLEDragDrop(ByVal sender As
Object, ByVal e As AxMCI.DmciEvents_OLEDragDropEvent)

       

    End Sub

   

    Public Sub me_load()

        Me.BackColor = color.BlanchedAlmond '改变背景色为
BlanchedAlmond

        Me.BorderStyle = FormBorderStyle.None '改变窗体边框为
none,没有标题栏

        button1.Text = "播放上段" : button2.Text = "播放下
段" : button3.Text = "退出程序"

        AxMMControl1.TimeFormat = 0

        AxMMControl1.DeviceType = "waveaudio" '定义播放*.wav
格式

        AxMMControl1.filename =
System.WinForms.Application.StartUpPath & "\"
& "muli.wav" '载入文件,
System.WinForms.Application.StartUpPath为当前目录的意思

        AxMMControl1.Command = "open" '打开载入的文件

        AxMMControl1.Visible = False '使控件不可见,在后台工

    End Sub

End Class

        至于从几毫秒开始到几毫秒结束,是把不同的声音文件使用如
acoustica.exe这样的声音编辑程序整理成一个文件,记住先使用
windows的录音机录下来,这样生成的文件较小,把一些杂音,空白都剪切
掉,这样就是很小了。

VB.Net播放声音文件3

[ 1 ]
VB.Net播放声音文件3 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑