Code : Tout sélectionner
#include <GuiConstantsEx.au3>
#include <GuiMenu.au3>
#Include <WinAPI.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
Global Enum $idNew = 1000, $idOpen,$idExit, $idCut, $idCopy
Global $message, $var
_Main()
Func _Main()
Local $hGUI, $hFile, $hEdit, $hMain,$background
; Create GUI
$hGUI = GUICreate("Lecteur Media by benji-mod", 400, 300)
; background picture
$background = GUICtrlCreatePic("bitmaps\media_skin.jpg", 0, 0, 400, 280)
; Create File menu
$hFile = _GUICtrlMenu_CreateMenu ()
_GUICtrlMenu_AddMenuItem ($hFile, "&Ouvrir", $idOpen)
_GUICtrlMenu_AddMenuItem ($hFile, "Quitter", $idExit)
; Create Edit menu
$hEdit = _GUICtrlMenu_CreateMenu ()
_GUICtrlMenu_AddMenuItem ($hEdit, "&Pause", $idCut)
_GUICtrlMenu_AddMenuItem ($hEdit, "P&lay", $idCopy)
; Create Main menu
$hMain = _GUICtrlMenu_CreateMenu ()
_GUICtrlMenu_AddMenuItem ($hMain, "&Fichier", 0, $hFile)
_GUICtrlMenu_AddMenuItem ($hMain, "&Edition", 0, $hEdit)
; Set window menu
_GUICtrlMenu_SetMenu ($hGUI, $hMain)
GUISetState()
[color=#FF0000]GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")[/color]
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
; Menu_Commande
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Switch _WinAPI_LoWord ($iwParam)
Case $idOpen
$message = "Ouvrir un fichier."
$var = FileOpenDialog($message, @Desktopdir & "\", "Fichier .mp3 (*.mp3)", 1 + 5 )
If @error Then
MsgBox(4096,"","No File(s) chosen")
Else
$var = StringReplace($var, "|", @CRLF)
MsgBox(4096,"","You chose " & $var)
EndIf
Case $idExit
Exit
Case $idCut
;
Case $idCopy
;
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
.
