问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

VB 中如何嵌入声音文件

发布网友 发布时间:2022-09-08 20:39

我来回答

2个回答

热心网友 时间:2024-11-18 19:29

使用资源管理器呗
点 外接程序--外接程序管理器 在打开的对话框里点“Visual Basic 6 资源编辑器”再把“加载/卸载”打上勾就有了。 工具栏会多出一个资源编辑器
如果没有找到“Visual Basic 6 资源编辑器”说明你的VB是精简版的。必须下载完整的版本才行。

==================================================
所谓资源文件其实就是在生成的EXE文件的最后部分写入你添加的图片、文本等等一系列资源,运行时,你的程序就可以读取这些东西。
如果从文件读取的话,你就必须在提供EXE文件的同时提供你要读取的文件,而用资源文件,你就可以只有一个EXE文件了。

参考代码:
'声明API
private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Const HWND_TOP = 0
Const GW_CHILD = 5
Dim SW As Long
Private Sub Form_Load()
'度量单位设为像素
Me.ScaleMode = vbPixels
'初始化MCI,并打开文件
MMControl1.DeviceType = "MPEGVideo"
MMControl1.FileName = "D:intro.wmv"
MMControl1.Command = "open"
'打开MCI后,取MCI显示输出的窗口的句柄
SW = FindWindow("MCIQTZ_Window", MMControl1.FileName)
'取子窗口句柄
SW = GetWindow(SW, GW_CHILD)
'将MCI显示输出窗口(子窗口)置于当前窗口中
MMControl1.hWndDisplay = Me.hwnd
MMControl1.Command = "play"
End Sub

Private Sub Form_Resize()
'设置子窗口自动适应当前窗口
SetWindowPos SW, HWND_TOP, Me.ScaleLeft, Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight, 0&
End Sub

注:MMControl1 是微软的mediaplay控件

热心网友 时间:2024-11-18 19:30

一般来说用资源文件。
然后用 sndPlaySound 播放 。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
临沂比较有名的男装品牌 呼伦贝尔市悦动网络科技有限公司怎么样? 呼伦贝尔中汇实业有限公司怎么样? 呼伦贝尔油玉不绝电子商务有限公司怎么样? 如何避免wps卡顿? 属鼠的男人找对象是属什么,属鼠的人和什么属相合 96年鼠的姻缘在哪年 属相相合年份运势提升 2024属鼠找对象属什么最佳 黑客攻击网站能报案吗 黑客攻击报案有用吗 关于VB按钮添加声音 VB6.0如何插入声音 VB程序中加入声音和图像 如何在VB里加入声音? 今夜偏知春气暖,虫声新透绿窗沙 加父母名字交多少契税 房产证上写子女的名字税费怎么收 房产加名字税费问题 qq空间神级搞笑留言 今夜偏知春气暖,虫声新透绿窗纱. 今夜偏知春气暖,虫声新透绿纱窗。 Forever lover是什么意思 今夜偏知春气暖的后句是什么 梦见冰山 野生蚁后怎么抓 梦幻西游手游帮派帮主有什么福利 读了牛郎织女的神话故事后一,你想到的诗句是什么? 河汗清且,相去复几何. 盈盈一水间, 漠漠不得语的意思是什么_百度... 中迢迢牵牛星诗中后四句表达了主人公怎样的情感? 迢迢牵牛星,皎皎河汉女 后面是什么 如何在VB中插入播放音频 怎样在VB中插入声音文件 谁有搞笑又长的空间留言,介绍几个,本人有急用 有好评 重阳节有多少地方有扫墓习俗? 残疾人工资怎么加计扣除 上海到西湖旅游 常说的舌头粒子疮学名叫什么呀?怎么治疗? 杨幂整容过吗?应该是拔牙导致脸型的吧? 梦幻诛仙,胡歌和杨幂有传出绯闻了? 百闻不如一见,一见不如不见的意思 领导说辛苦了你怎么回复 请问新百伦有自家的专利减震技术么?像阿迪boost和耐克zoom技术那种... 车贷拒绝了咋办 人民的正义哪个电视台放的 铝合金封闭阳台中间是否需要加立柱? 风水问题,别人家的柱子对着我家阳台窗中间,没事吧?请各位大师看下,谢谢... 阳台方柱好还是圆柱好? 门前排水沟的风水化解方法有哪些门前排水沟的风水化解方法介绍 什么地方能看到三峡 《中国三峡》免费在线观看完整版高清,求百度网盘资源