| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 多媒体编程 >> 实例分析正文
最新推荐 更多内容
VB.Net读取音频文件并复制到剪贴板的实例
VB.Net读取音频文件并复制到剪贴板的实例
作者:Ilu    来源:乐博网整理     更新时间:2009-8-21

VB.Net读取音频文件并复制到剪贴板的代码

乐博网lob.cn提示:此代码运行环境为vb.net2008

Public Class Form1
    '读取音频文件并复制到剪贴板
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim MyData As Byte()
            MyData = My.Computer.FileSystem.ReadAllBytes("WindowsXP.wav")
            My.Computer.Clipboard.SetAudio(MyData)
            MessageBox.Show("已经成功将音频数据复制到剪贴板!", "乐博网提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("将音频数据复制到剪贴板出现错误,请检查音频文件是否已经存在?", "乐博网提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
    '粘贴剪贴板音频数据并播放
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim MyData As Object
            MyData = My.Computer.Clipboard.GetData(DataFormats.WaveAudio)
            My.Computer.Audio.Play(MyData, AudioPlayMode.Background)
        Catch ex As Exception
            MessageBox.Show("剪贴板上不存在指定的音频数据!", "乐博网提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
    '清空剪贴板上的音频数据
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Clipboard.Clear()
    End Sub
End Class

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    VB.Net获取文件和目录完整路径的实例
    VB.Net剪贴板实例(2)
    VB.Net剪贴板实例(1)
    剪贴板的实例
    VB.Net剪贴板实例学习笔记.02.[乐博网]
    VB.Net剪贴板实例学习笔记.01.[乐博网]
    从剪贴板读取数据的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]