Page 1 sur 1
[..] Fichier -> ouvrir boite pour parcourir le fichier aide
Posté : mar. 27 avr. 2010 03:42
par benjimod
Bonjour à tous.
Je suis nouveau est je vien de découvrir autoit, j'ai commencer à apprendre un peut ce language
(je suis débutant).
et j'ai suis entreind de créer un petit Lecteur Média basic
j'ai besoin d'aide, quand je clique sur le bouton "Fichier" de mon lecteur -> "Ouvrir", là rien ne se passe.
Je veut que lorsque que je clique sur "Fichier"->"Ouvrir" une boîte enfin une fenêtre s'ouvre et me propose de parcourir le fichier de ce genre (j'ai retoucher la boîte avec paint)
et une photo du Lecteur Média
voila le code :
► Afficher le texte
Code : Tout sélectionner
#include <GuiMenu.au3>
#include <GuiConstantsEx.au3>
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $hGUI, $hFile, $hEdit, $hHelp, $hMain
Local Enum $idNew = 1000, $idOpen, $idSave, $idExit, $idCut, $idCopy, $idPaste, $idAbout
Local $gui, $background, $pic, $basti_stay, $msg
Local $sFile = ""
; Create GUI
$hGUI = GUICreate("Lecteur Media by benji-mod", 400, 300)
; background picture
$background = GUICtrlCreatePic("..\GUI\media_skin.jpg", 0, 0, 400, 282)
; 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()
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
Voilà je vous en serait très reconnaissant pour votre aide.
Merci.
Re: [..] Fichier -> ouvrir boite pour parcourir le fichier aide
Posté : mar. 27 avr. 2010 03:45
par ani
Bonjour et soyez le bienvenue
regarde l'exemple fournit avec _GUICtrlMenu_CreateMenu, t'a loupé un chapitre
pour la boîte la fonction doit etre fileopendialog
voilàvoilà
Re: [..] Fichier -> ouvrir boite pour parcourir le fichier aide
Posté : mar. 27 avr. 2010 11:17
par benjimod
Bonjour et merci pour votre accueille et votre réponse
voila je vien de trouver le code pour parcourir un fichier dans l'aide de autoit
mais le problème ces que je n'arrive pas a ajouter la fonction parcourir au bouton Ouvrir j'ai tout esseiller mais sa fait une erreur a chaque fois
voila le code du fileopendialog
► Afficher le texte
Code : Tout sélectionner
$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
et le code de mon lecteur
► Afficher le texte
Code : Tout sélectionner
ProgressOn("Chargement du Lecteur Media", "Attender SVP", "")
For $i = 1 to 100 step 1
sleep(0000)
ProgressSet( $i, $i & " pour cent")
Next
ProgressSet(100 , "Terminer", "")
sleep(500)
ProgressOff()
#include <GuiMenu.au3>
#include <GuiConstantsEx.au3>
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $hGUI, $hFile, $hEdit, $hHelp, $hMain
Local Enum $idNew = 1000, $idOpen, $idSave, $idExit, $idCut, $idCopy, $idPaste, $idAbout
Local $gui, $background, $pic, $basti_stay, $msg
Local $sFile = ""
; 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()
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
merci de votre aide je ces que je suis un peut chiant mais je suis debutant
.
Re: [..] Fichier -> ouvrir boite pour parcourir le fichier aide
Posté : mar. 27 avr. 2010 11:47
par Tlem
Merci de rajouter la balise de code dans vos spoilers ...
Re: [..] Fichier -> ouvrir boite pour parcourir le fichier aide
Posté : mar. 27 avr. 2010 12:41
par benjimod
la balise de code ?
Re: [..] Fichier -> ouvrir boite pour parcourir le fichier aide
Posté : mar. 27 avr. 2010 13:02
par Tlem
Re: [..] Fichier -> ouvrir boite pour parcourir le fichier aide
Posté : mar. 27 avr. 2010 13:23
par ani
► Afficher le texte
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
Re: [..] Fichier -> ouvrir boite pour parcourir le fichier aide
Posté : mer. 28 avr. 2010 21:19
par benjimod
re Bonjour
merci ani pour m'avoir aider
je vous en remercie infiniment.