AM电脑吧 - Win10精简版系统_Win11精简版_Win7旗舰版

Yes
查看: 4961|回复: 2
收起左侧

[其它] 源码音乐播放暂停按钮问题 请帮忙解决一下

 关闭 [复制链接]
ampc823649

签到天数: 3 天

[LV.2]二兆带宽

id zpmc123 发表于 2015-09-12 18:26:25 手机发帖
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("音乐暂停按钮示例", 623, 442, 192, 124)
FileInstall("Sound\C.jpg", @TempDir & "\")
$Pic1 = GUICtrlCreatePic( @TempDir & "\c.jpg", 8, 8, 604, 100)
FileDelete(@TempDir & "\c.jpg")
_soundplay(@ScriptDir & "\sound\AM SoftIns.mp3" , 0)   ;AM SoftIns.mp3为音乐名称
$pu = GUICtrlCreateIcon(@ScriptDir & "\sound\播放.ico", 0, 20, 343, 32, 32)  ;此处按钮点击后显示下面暂停ICO
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "单击背景音乐暂停")
GUICtrlSetOnEvent($pu, "sound_pause")
$pl = GUICtrlCreateIcon(@ScriptDir & "\sound\暂停.ico", 0, 20, 343, 32, 32);此处按钮点击后显示下面播放ICO
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "单击背景音乐继续")
GUICtrlSetOnEvent($pl, "sound_play")
GUICtrlSetState($pl, $gui_hide)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

Func sound_pause()
        GUICtrlSetState($pu, $gui_hide)
        GUICtrlSetState($pl, $gui_show)
        _soundpause(@ScriptDir & "\sound\AM SoftIns.mp3" )
EndFunc

Func sound_play()
        GUICtrlSetState($pl, $gui_hide)
        GUICtrlSetState($pu, $gui_show)
        _soundplay(@ScriptDir & "\sound\AM SoftIns.mp3" , 0)
EndFunc

本文地址: https://www.ampc8.com/thread-20013-1-1.html
上一篇:win7任务栏网络图标异常
下一篇:2015.09.13可联网JiHuowin7旗舰版的一个秘钥
回复

举报

ampc831350

签到天数: 48 天

[LV.5]五张显卡

id xg365 发表于 2015-09-12 23:18:03
不懂 纯支持
回复

举报

ampc823649

签到天数: 3 天

[LV.2]二兆带宽

lz  楼主| zpmc123 发表于 2015-09-12 18:29:35 手机发帖
不知道哪里不对调用两个图标只显示一个而且点按钮也不起作用谁懂帮忙一下
回复

举报

您需要登录后才可以回帖 登录 | 验证注册

Powered by AMpc8.Com (晋ICP备13003365号ghs 晋公网安备 14090202000112号 |GMT+8, 2024/5/8 00:08 |
快速回复 返回顶部 返回列表