Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[W8 Tools] Menu de sélection de fichiers

Voir le sujet précédent Voir le sujet suivant Aller en bas

[W8 Tools] Menu de sélection de fichiers

Message par Dylan Gadacha le 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:
[Vous devez être inscrit et connecté pour voir cette image]

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.

_________________
[Vous devez être inscrit et connecté pour voir cette image]
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

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

Message par Sachadee le Ven 12 Sep 2014, 15:04

Merci Dylan cooooool ! cheers

_________________
@SachaDee
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum