易语言 鼠标移动到图形按钮上时播放音乐

sdfcc

RT。
是图形按钮，鼠标移动事件可以播放音乐，但是鼠标移动，它就会不停的重复播放。

1. .版本 2
   
2. 
   
3. .子程序 _图形按钮2_鼠标位置被移动, 逻辑型
   
4. .参数 横向位置, 整数型
   
5. .参数 纵向位置, 整数型
   
6. .参数 功能键状态, 整数型
   
7. 
   
8. 播放音乐 (#声音1, )
   
9. 
   

复制代码

zhangxian11111

比方说，我的音乐播放时长为34s，代码就是这样的[e]
.版本 2

.程序集 窗口程序集1

.子程序 _图形按钮1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型


.如果真 (i ＝ 1)
    i ＝ 0
    播放音乐 (#声音1, )
    时钟1.时钟周期 ＝ 34000

.如果真结束


.子程序 __启动窗口_创建完毕

i ＝ 1

.子程序 _时钟1_周期事件

i ＝ 1
[/e]

补充内容 (2013-11-16 16:20):
取音乐播放时长我还不会，我只是个菜鸟，求最佳

补充内容 (2013-11-16 16:24):
周期事件下面变成   时钟1.时钟周期=0     i=1

Cramps

加一句！
.版本 2

.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

停止播放 ()

Cramps

[e]
.版本 2

.子程序 _图形按钮2_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

播放音乐 (#声音1, )
.版本 2

.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

停止播放 ()

[/e]

最佳吧！
QQ995238212

提百万

鼠标移入移出.rar (2.55 KB, 下载次数: 32)

2013-11-16 13:18 上传

点击文件名下载附件

sdfcc

1. .版本 2
   
2. 
   
3. .子程序 _图形按钮2_鼠标位置被移动, 逻辑型
   
4. .参数 横向位置, 整数型
   
5. .参数 纵向位置, 整数型
   
6. .参数 功能键状态, 整数型
   
7. 
   
8. 播放音乐 (#声音1, 假)
   
9. 
   
10. 
    
11. .子程序 __启动窗口_鼠标位置被移动, 逻辑型
    
12. .参数 横向位置, 整数型
    
13. .参数 纵向位置, 整数型
    
14. .参数 功能键状态, 整数型
    
15. 
    
16. 停止播放 ()
    

复制代码

好像还是一样的效果啊

补充内容 (2013-11-16 13:34):
2楼的美女，您的好像不行啊

sdfcc

[e]
.版本 2

.子程序 _图形按钮7_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 是否移出, 逻辑型

.如果 (0 ≤ 横向位置 且 横向位置 ≤ 图形按钮7.宽度 且 0 ≤ 纵向位置 且 纵向位置 ≤ 图形按钮7.高度)
    .如果真 (是否移出 ＝ 假)
        SetCapture (图形按钮7.取窗口句柄 ())
        播放音乐 (#声音1, 假)
        是否移出 ＝ 真
    .如果真结束


.否则
    .如果真 (是否移出 ＝ 真)
        ReleaseCapture ()
        停止播放 ()
        是否移出 ＝ 假

    .如果真结束

.如果结束

[/e]

sdfcc

2位大侠的都不行啊。


还是会一直重复不停的播放。


鼠标移动一个像素就重新开始播放！

zhangxian11111

我写的就只播放一次，如果知道你要播放音乐的时长，加个钟表，周期为音乐时长就好了[e]
.版本 2

.程序集 窗口程序集1

.子程序 _图形按钮1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (i ＝ 1)
    i ＝ 0
    播放音乐 (#声音1, )

.如果真结束


.子程序 __启动窗口_创建完毕

i ＝ 1


[/e]

zhangxian11111

我直接打包源码给你，求最佳