| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4973 人关注过本帖
标题:如何给vf添加音频文件
只看楼主 加入收藏
胡七七
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:304
专家分:851
注 册:2015-5-14
收藏
得分:0 
回复 140楼 TonyDeng
大神真是惜字如金。。。
2015-05-21 12:09
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
我正在升级系统呢,晚点给你。

授人以渔,不授人以鱼。
2015-05-21 13:12
胡七七
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:304
专家分:851
注 册:2015-5-14
收藏
得分:0 
以下是引用TonyDeng在2015-5-21 11:31:47的发言:

可以实现啊

惜字如金的大神。请教教我吧~~~~~听说你和蔼可亲威望又高技术又精授人予渔特别有耐心应该不会嫌弃我这个vf二级的菜鸟。请多多指教。
2015-05-21 13:13
胡七七
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:304
专家分:851
注 册:2015-5-14
收藏
得分:0 
回复 142楼 TonyDeng
OK。您先忙。
2015-05-21 13:17
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
你这样点歌不方便的啦

授人以渔,不授人以鱼。
2015-05-21 13:20
胡七七
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:304
专家分:851
注 册:2015-5-14
收藏
得分:0 
回复 145楼 TonyDeng
可是像KTV系统那样,不就是,查询想点的歌,然后查出来了,就可以播放了。我的想法就是这样。最好播放的时候还有歌词什么的,或者歌手的照片,我不打算做播放视频。想法就是这样。您觉得的呢?
2015-05-21 13:26
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
你去卡拉ok看看通常的點歌是怎樣的

授人以渔,不授人以鱼。
2015-05-21 15:27
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
帮你把播放部分嵌进去了,收吧。在“唱歌的”部分,管理员部分,你自己参照着做。

授人以渔,不授人以鱼。
2015-05-21 16:33
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
其實就是在按鈕的Click事件中寫了這麽一段:
程序代码:
LOCAL loPlayer                                                            && 定義對象爲局部變量,在方法結束後對象將自動釋放佔用的資源,不用手動release
loPlay = CREATEOBJECT("C_Player")                                         && 動態創建一個播放器對象,視類類型不同,可以是窗體,或是當前頁面的控件對象
WITH loPlay                                                               && 給對象設置屬性,等效於在設計對話器中填寫的過程
    .Width = 800                                                          && 對象的寬
    .Height = 600                                                         && 對象的高
    .AutoCenter = .T.                                                     && 如果對象是Form類型,則可以自動居中,否則自己定位
    .Resize                                                               && 根據對象的尺寸拜訪內部控件,它會跟隨窗體的尺寸拉伸而自動變化
    .Play(ADDBS(ALLTRIM(歌单表.所在文件夹)) + ALLTRIM(歌单表.歌曲))       && 播放歌曲
    .Show(1)                                                              && 把窗體呈現出來,參數1是類型窗體,衹有在關閉窗體後才能接著運行後面的代碼,否則窗體會一閃而過
ENDWITH


我已經把播放器修改爲Form類型,原先是Container類型,前者用於彈出一個窗體播放,後者用於在當前窗體中開闢空間播放。原來的主程序是不需要的。現在你看看,我這樣直接在代碼中寫出所有的屬性設置和方法調用,不是比在設計對話器中翻來翻去來得清晰?自己做了什麽一目瞭然,要修改也容易(比如要改個東西,在一行前面加個星號就可以了,但在設計器中,要把内容刪掉,想留著以後撿回來都不行),想加減什麽,直接增刪行代碼就可以了;關鍵是邏輯一眼看出,而在設計器中,那是無序的,要自己整理思路,不是看出來的。

那個C_Player就是一個設計好的控件,當普通控件用就是,另存爲.vcx,就是可以拖拉的控件。


[ 本帖最后由 TonyDeng 于 2015-5-21 16:56 编辑 ]

授人以渔,不授人以鱼。
2015-05-21 16:36
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
這次足夠偏心了,給你解釋得那麽詳細。

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



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

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