| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4973 人关注过本帖
标题:如何给vf添加音频文件
只看楼主 加入收藏
胡七七
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:304
专家分:851
注 册:2015-5-14
结帖率:93.33%
收藏
已结贴  问题点数:20 回复次数:161 
如何给vf添加音频文件
做了一个KTV的点播系统,想插入音频可以播放,求大神指教如何添加音频 ,我是菜鸟,请详细一点。妹子拜谢
搜索更多相关主题的帖子: 如何 
2015-05-14 20:30
胡七七
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:304
专家分:851
注 册:2015-5-14
收藏
得分:0 
不要让我的帖子沉嘛,期末作业啊,大神啊,版主啊,求助
2015-05-14 20:31
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:5 
作业要自己做才有用
2015-05-14 21:02
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:5 
“插入音频”、“添加音频”是什么意思? 能具体点说说?
2015-05-14 21:54
胡七七
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:304
专家分:851
注 册:2015-5-14
收藏
得分:0 
回复 4楼 吹水佬
就是想实现在表单里播放音乐的功能。不知道怎么做
2015-05-14 22:11
胡七七
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:304
专家分:851
注 册:2015-5-14
收藏
得分:0 
回复 3楼 tlliqi
不是说不会了可以不耻下问嘛
2015-05-14 22:11
胡七七
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:304
专家分:851
注 册:2015-5-14
收藏
得分:0 
回复 3楼 tlliqi
我也没有让人做嘛,我只是遇到不会的问题了,来求助的。
2015-05-14 22:15
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
用wmplayer控件啊

授人以渔,不授人以鱼。
2015-05-15 04:25
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
播放什么格式音乐文件?目前好象还没全兼容的播放器,好多都要第三方插件支持。
2015-05-15 08:17
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
程序代码:
CLEAR ALL 
Main()
CLEAR ALL 
RETURN 

PROCEDURE Main()
    LOCAL loForm
    loForm = CREATEOBJECT("C_Form")
    WITH loForm
        .Caption = "测试 - 卡拉OK点播机"
        .AutoCenter = .T.
        .Show
    ENDWITH 
    READ EVENTS
ENDPROC 

DEFINE CLASS C_Form AS Form

    ADD OBJECT MusicPlayer AS OleControl WITH OleClass = "WMPlayer.OCX.7", Width = 300, Height = 200
    
    PROCEDURE Arrange
        WITH ThisForm.MusicPlayer
            .Top = 10
            .Left = 10
        ENDWITH 
    ENDPROC 
    
    PROCEDURE Activate
        ThisForm.Arrange
        ThisForm.MusicPlayer.URL = "D:\音樂\Céline Dion\Original Album Classics\Misled.mp3"
        *ThisForm.MusicPlayer.URL = "d4eca0066381d9c4e673ba552daaedb4.mp4"
    ENDPROC 
    
    PROCEDURE Resize
        ThisForm.Arrange
    ENDPROC 
    
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC 
    
ENDDEFINE 

授人以渔,不授人以鱼。
2015-05-15 10:39
快速回复:如何给vf添加音频文件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023265 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved