[W8 Tools] Menu de sélection de fichiers

par **Dylan Gadacha** Ven 12 Sep 2014, 14:08

Un simple menu vous permettant d’accéder au fichiers du Bureau, vos Documents, Téléchargements, Images, Musique et Vidéos. Pour accéder au menu, déplacer votre curseur dans le coin en haut à droite de votre écran.
Notez également que j'ai fais une petite fonction pour le survol des catégories Wink

Code Source:

Code:: #Include <GUIConstants.Au3> #Include <GUIConstantsEx.Au3> #Include <WindowsConstants.Au3> HotKeySet("{ESC}", _Quitter) #NoTrayIcon Global $Largeur = 250 _Afficher() Func _Afficher() While 1 Global $Pos = MouseGetPos() If $Pos[0] = @DesktopWidth-1 Then If $Pos[1] = "0" Then _Fichier() EndIf EndIf WEnd EndFunc Func _Fichier() Global $Form1 = GUICreate("", $Largeur, @DesktopHeight, @DesktopWidth-$Largeur, 0, BitOR($WS_POPUP, $DS_MODALFRAME), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUISetState(@SW_SHOW, $Form1) GUISetBkColor("0x250040", $Form1) GUICtrlCreateLabel(@UserName & " - " & "Fichiers", 0, 11, $Largeur, 25, $SS_CENTER) GUICtrlSetBkColor(-1, "0x250040") GUICtrlSetColor(-1, "0xFFFFFF") GUICtrlSetFont(-1, 15, 0, 0, "Century Gothic") GUICtrlCreateLabel("", 20, 49, $Largeur-40, 1, $SS_CENTER) GUICtrlSetBkColor(-1, "0xFFFFFF") Global $Form2 = GUICreate("", $Largeur, 50, @DesktopWidth-$Largeur, 50, BitOR($WS_POPUP, $DS_MODALFRAME), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUISetState(@SW_SHOW, $Form2) GUISetBkColor("0x250040", $Form2) Global $Label2 = GUICtrlCreateLabel("Bureau", 0, 13, $Largeur, 50, $SS_CENTER) GUICtrlSetBkColor(-1, "0x250040") GUICtrlSetColor(-1, "0xFFFFFF") GUICtrlSetFont(-1, 15, 0, 0, "Century Gothic") Global $Form3 = GUICreate("", $Largeur, 50, @DesktopWidth-$Largeur, 100, BitOR($WS_POPUP, $DS_MODALFRAME), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUISetState(@SW_SHOW, $Form3) GUISetBkColor("0x250040", $Form3) Global $Label3 = GUICtrlCreateLabel("Documents", 0, 13, $Largeur, 50, $SS_CENTER) GUICtrlSetBkColor(-1, "0x250040") GUICtrlSetColor(-1, "0xFFFFFF") GUICtrlSetFont(-1, 15, 0, 0, "Century Gothic") Global $Form4 = GUICreate("", $Largeur, 50, @DesktopWidth-$Largeur, 150, BitOR($WS_POPUP, $DS_MODALFRAME), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUISetState(@SW_SHOW, $Form4) GUISetBkColor("0x250040", $Form4) Global $Label4 = GUICtrlCreateLabel("Téléchargements", 0, 13, $Largeur, 50, $SS_CENTER) GUICtrlSetBkColor(-1, "0x250040") GUICtrlSetColor(-1, "0xFFFFFF") GUICtrlSetFont(-1, 15, 0, 0, "Century Gothic") Global $Form5 = GUICreate("", $Largeur, 50, @DesktopWidth-$Largeur, 200, BitOR($WS_POPUP, $DS_MODALFRAME), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUISetState(@SW_SHOW, $Form5) GUISetBkColor("0x250040", $Form5) Global $Label5 = GUICtrlCreateLabel("Images", 0, 13, $Largeur, 50, $SS_CENTER) GUICtrlSetBkColor(-1, "0x250040") GUICtrlSetColor(-1, "0xFFFFFF") GUICtrlSetFont(-1, 15, 0, 0, "Century Gothic") Global $Form6 = GUICreate("", $Largeur, 50, @DesktopWidth-$Largeur, 250, BitOR($WS_POPUP, $DS_MODALFRAME), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUISetState(@SW_SHOW, $Form6) GUISetBkColor("0x250040", $Form6) Global $Label6 = GUICtrlCreateLabel("Musique", 0, 13, $Largeur, 50, $SS_CENTER) GUICtrlSetBkColor(-1, "0x250040") GUICtrlSetColor(-1, "0xFFFFFF") GUICtrlSetFont(-1, 15, 0, 0, "Century Gothic") Global $Form7 = GUICreate("", $Largeur, 50, @DesktopWidth-$Largeur, 300, BitOR($WS_POPUP, $DS_MODALFRAME), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUISetState(@SW_SHOW, $Form7) GUISetBkColor("0x250040", $Form7) Global $Label7 = GUICtrlCreateLabel("Vidéos", 0, 13, $Largeur, 50, $SS_CENTER) GUICtrlSetBkColor(-1, "0x250040") GUICtrlSetColor(-1, "0xFFFFFF") GUICtrlSetFont(-1, 15, 0, 0, "Century Gothic") Global $Form8 = GUICreate("", $Largeur, 50, @DesktopWidth-$Largeur, 350, BitOR($WS_POPUP, $DS_MODALFRAME), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUISetState(@SW_SHOW, $Form8) GUISetBkColor("0x250040", $Form8) Global $Label8 = GUICtrlCreateLabel("Paramètres", 0, 13, $Largeur, 50, $SS_CENTER) GUICtrlSetBkColor(-1, "0x250040") GUICtrlSetColor(-1, "0xFFFFFF") GUICtrlSetFont(-1, 15, 0, 0, "Century Gothic") While 1 Global $Pos = MouseGetPos() If $Pos[1] > 50 And $Pos[1] < 100 Then _Survol($Form2, $Label2, 50, 100, "0x321C65", "0x250040") If $Pos[1] > 100 And $Pos[1] < 150 Then _Survol($Form3, $Label3, 100, 150, "0x321C65", "0x250040") If $Pos[1] > 150 And $Pos[1] < 200 Then _Survol($Form4, $Label4, 150, 200, "0x321C65", "0x250040") If $Pos[1] > 200 And $Pos[1] < 250 Then _Survol($Form5, $Label5, 200, 250, "0x321C65", "0x250040") If $Pos[1] > 250 And $Pos[1] < 300 Then _Survol($Form6, $Label6, 250, 300, "0x321C65", "0x250040") If $Pos[1] > 300 And $Pos[1] < 350 Then _Survol($Form7, $Label7, 300, 350, "0x321C65", "0x250040") If $Pos[1] > 350 And $Pos[1] < 400 Then _Survol($Form8, $Label8, 350, 400, "0x321C65", "0x250040") If $Pos[0] < @DesktopWidth-$Largeur Then _Supprimer() WEnd EndFunc Func _Survol($1, $2, $3, $4, $5, $6) GUISetBkColor("0x321C65", $1) GUICtrlSetBkColor($2, $5) While $Pos[1] > $3 And $Pos[1] < $4 Global $Pos = MouseGetPos() Switch GUIGetMsg() Case $Label2 ShellExecute(@DesktopDir) Case $Label3 ShellExecute(@MyDocumentsDir) Case $Label4 ShellExecute("C:\Users\" & @UserName & "\Downloads") Case $Label5 ShellExecute("C:\Users\" & @UserName & "\Pictures") Case $Label6 ShellExecute("C:\Users\" & @UserName & "\Music") Case $Label7 ShellExecute("C:\Users\" & @UserName & "\Videos") EndSwitch If $Pos[0] < @DesktopWidth-$Largeur Then _Supprimer() WEnd GUISetBkColor("0x250040", $1) GUICtrlSetBkColor($2, $6) EndFunc Func _Supprimer() GUIDelete($Form1) GUIDelete($Form2) GUIDelete($Form3) GUIDelete($Form4) GUIDelete($Form5) GUIDelete($Form6) GUIDelete($Form7) GUIDelete($Form8) _Afficher() EndFunc Func _Quitter() Exit EndFunc

Capture d'écran:

ECHAP pour fermer l'application.

Je ne poste pas de .exe car je n'ai pas encore fais la catégorie Paramètres, qui permettra de personnaliser le menu, dans la prochaine version, a savoir:

- L'emplacement du coin pour afficher la fenêtre/L'emplacement de la fenêtre.
- Les couleurs.
- Le texte.
- Les chemins.

Dylan.

par **Sachadee** Ven 12 Sep 2014, 15:04

Merci Dylan cooooool ! cheers

[W8 Tools] Menu de sélection de fichiers

[W8 Tools] Menu de sélection de fichiers

Re: [W8 Tools] Menu de sélection de fichiers