高手请进,帮忙分析代码,高分求救!!!

evbsky 2003-05-14 09:15:58
以下代码中,能找到资源的句柄,就是不能播放它。头痛!
Dim hRsrc As Long
Dim hGlobal As Long
Dim lpString As String
Dim strCmd As String, strReturnVal As String
Dim nbuf As Long
Dim temp As Long

lpString = "about"

hInst = LoadLibrary(App.Path & "\lang936.dll")
hRsrc = FindResource(hInst, lpString, "wave")
hGlobal = LoadResource(hInst, hRsrc)
lpData = LockResource(hGlobal)
Debug.Print lpData

sndPlaySound lpData, SND_NODEFAULT + SND_SYNC + SND_MEMORY

FreeLibrary hInst
...全文
9 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
evbsky 2003-05-19
哈哈,解决了,谢谢,关键是要修改一下sndPlaySound 的参数(SND_NODEFAULT + SND_SYNC + SND_MEMORY)
回复
sxs69 2003-05-16
已经给你发过去了
回复
danielinbiti 2003-05-15
SND_MEMORY
你把声音文件加载到内存了吗?只有事先把声音文件加载到了内存才能用这个参数.
比如用资源文件里声音就需用这个参数。
回复
evbsky 2003-05-15
高手请进来!!!
回复
evbsky 2003-05-15
hGlobal = LoadResource(hInst, hRsrc)
上面这句就是加载的命令
回复
wumy_ld 2003-05-14
关注!
回复
相关推荐
基于java的企业人事管理系统设计--软件工程课程设计(含源码与论文设计).rar 1 引言 4 1.1 课程设计目标 4 1.2 编程工具(编程环境)介绍 4 1.3 实施时间及主要实施步骤 4 2 需求分析 5 3 系统总体设计 6 4 数据库设计 6 5 主要功能模块的设计与实现 10 5.1 功能模块1详细设计(综合查询员工信息)..........................................................10 5.1.1 详细设计.......................................................................................................10 5.1.2 算法流程........................................................................................................15 5.1.3 界面设计及测试结果.....................................................................................15 6 调试分析 15 7 用户手册 16 8 测试结果 17 8.1 员工信息的添加...................................................................................................17 8.2 员工信息的修改...................................................................................................17 8.3 员工信息的删除...................................................................................................18 8.4 员工信息的综合查询...........................................................................................18 8.5 员工信息按性别统计的结果................................................................................19 8.6 员工信息按状态统计的结果...............................................................................19 8.7 员工信息按职称统计的结果................................................................................20 9 结论 20 10 参考文献 20
发帖
VB基础类
创建于2007-09-28

7493

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-14 09:15
社区公告
暂无公告