VB question. please help - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Programming - 葵花宝典

VB question. please help

VB question. please help# Programming - 葵花宝典

v*h2008-12-15 08:12

1 楼

悠悠岁月，惟有夫妻伴终生。风雨同行共命运，恩恩爱爱天地久，黑发白首情意浓。
漫漫人生路，相扶到终生，嫦娥吴刚奔月宫。
悠悠岁月，惟有父母恩情大。生儿育女不容易，望子成龙默默奉献，耗尽心血也情愿。
漫漫人生路，风烛残年，养老送终是儿女的心愿。
悠悠岁月，惟有儿女最情长。呱呱落地有了希望，未睡过通眠觉，未吃过热火饭，精心
喂养盼成长。漫漫人生路，拉着儿女的手，今生今世有奔头。
悠悠岁月，兄弟姊妹同手足。一母同胞一锅饭，穿着姐姐的衣，拉着弟弟的手，风风雨
雨往前走。成家了立业，各奔东和西，逢年过节盼团聚。
悠悠岁月，人生路上需朋友。桃源结义刘关张，水泊梁山一百单八将，肝胆相照共存亡
。漫漫人生路，一路有朋友，朋友多了路好走。
悠悠岁月，人生路上情意长。有情有意有相帮，三人一条心黄土变成金，有情有意有辉
煌。漫漫人生路，情意来铺就，扶老携幼往前走。

b*y2008-12-15 08:12

2 楼

请问VB高手们，如何能够实现在播放audio file的同时还能detect mouse click呢？如
果不放audio，能够检测到点击鼠标。但一旦开始放audio file,再点鼠标就没反应了。
Here's the audio play code:
retVal& = sndPlaySound(wave_frm_name$, SND_ASYNC Or SND_NODEFAULT)
, where sndPlaySound is defined as :
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Many thanks!

b*y2008-12-15 08:12

3 楼

搞错了，上面的code没有问题，是我自己搞错了。

【在 b**********y 的大作中提到】

: 请问VB高手们，如何能够实现在播放audio file的同时还能detect mouse click呢？如
: 果不放audio，能够检测到点击鼠标。但一旦开始放audio file,再点鼠标就没反应了。
: Here's the audio play code:
: retVal& = sndPlaySound(wave_frm_name$, SND_ASYNC Or SND_NODEFAULT)
: , where sndPlaySound is defined as :
: Declare Function sndPlaySound32 Lib "winmm.dll" _
: Alias "sndPlaySoundA" (ByVal lpszSoundName _
: As String, ByVal uFlags As Long) As Long
: Many thanks!