音乐暂停播放按钮示例己解决

zpmc123 · 发表于 2015-9-12 14:36:10

本帖最后由 zpmc123 于 2018-5-22 11:30 编辑

#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

感谢mshuking的帮助

#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
        Case $pu
                sound_pause()
        Case $pl
                sound_play()
        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

zpmc123 · 发表于 2015-9-12 14:37:34

怎么我的图标点了没有反应，请帮忙

mshuking · 发表于 2015-9-12 18:51:36

本帖最后由 mshuking 于 2015-9-13 12:00 编辑

你按钮都没加进去点怎么工作

#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
        Case $pu
                sound_pause()
        Case $pl
                sound_play()
        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

zpmc123 · 发表于 2015-9-13 12:14:37

感谢mshuking 回复我是新手au3上路中...

zpmc123 · 发表于 2015-9-13 12:18:42

谢谢回帖是一种美德

		自动登录	找回密码
密码			加入

[AU3基础] 音乐暂停播放按钮示例己解决

相关帖子

RE: 音乐暂停播放按钮示例己解决

[AU3基础] 音乐暂停播放按钮示例 己解决

相关帖子

RE: 音乐暂停播放按钮示例己解决

[AU3基础] 音乐暂停播放按钮示例己解决