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

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
...全文
48 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
关注!

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧