[R] Personnaliser "GUICtrlCreateDate"

[jeanmimigab]

Bonsoir à tous(tes),

Petite question svp...

Avec "GUICtrlCreateDate", l'affichage de la date du jour apparait par défaut au lancement de la GUI.
Est-il possible de faire en sorte qu'au lancement de la GUI le champ où apparait la date soit vide ou contienne un texte genre "choisir" afin de forcer l'ouverture du calendrier pour choisir une date ?
J'espère mettre bien exprimé...

EDIT:j'ai regarder dans l'aide de cette fonction, mais je n'ai rien trouvé comme solution

Bonne soirée

[DimVar]

Bonsoir,


Il semblerait que le style $DTS_SHOWNONE permette de ne pas mettre de valeur. (j'ai pas testé)
Sinon, une condition sur la valeur de la date.

Cdlt.

[mikell]

Ou alors contourner le pb, ce qui donne aussi de la souplesse (on peut afficher la date n'importe où)

Code : Tout sélectionner

GUICreate("My GUI get date", 200, 200, 800, 200)
$input = GUICtrlCreateLabel("choisir la date", 10, 13, 150, 20, 1)   ; ou input...
$date = GUICtrlCreateDate("", 160, 10, 20, 20)
GUICtrlSetState(-1, $GUI_FOCUS)
GUISetState()

While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
If $msg = $date Then GuiCtrlSetData($input, GuiCtrlRead($date))
Wend

[jeanmimigab]

Bonsoir les amis(es)

@DimVar, je n'ai pas réussis avec le style $DTS_SHOWNONE

@mikell

Ton idée marche bien, mais je doit mal m'y prendre pour modifier/adapter mon script car ça bug sévère quand je modifie

Voici le script d'origine, auquel je voudrais adapter ton idée

► Afficher le texte

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


Global $file = FileOpen(@scriptdir & "/MyJob.txt", 1)
Global $Form1 = GUICreate("MyJob.exe", 434, 555, 299, 180, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetBkColor(0x646464)
Global $Button1 = GUICtrlCreateButton("Commencer par cliquer ici pour saisir les interventions", 8, 176, 419, 49, $WS_GROUP)
Global $Pic1 = GUICtrlCreatePic(@scriptdir & "\ADD\MJ.jpg", 0, 0, 433, 81, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetResizing(-1, $GUI_DOCKAUTO+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKHCENTER+$GUI_DOCKVCENTER+$GUI_DOCKWIDTH)
Global $Group1 = GUICtrlCreateGroup(" Rapport d'activité du ", 96, 96, 217, 65)
Global $Date1 = GUICtrlCreateDate("", 112, 120, 186, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button2 = GUICtrlCreateButton("Ensuite cliquer ici pour saisir le type de matériel découvert", 8, 232, 419, 49, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("Ensuite cliquer ici pour saisir la découverte des connaissances ", 8, 288, 419, 49, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Ensuite cliquer ici pour saisir les stages et/ou stages de perfectionnent", 8, 344, 419, 49, $WS_GROUP)
Global $Button5 = GUICtrlCreateButton("Ensuite cliquer ici pour saisir ici les formations et/ou immersions", 8, 400, 419, 49, $WS_GROUP)
Global $Button6 = GUICtrlCreateButton("Et enfin cliquer ici pour fermer MyJob et/ou afficher le rapport", 8, 464, 419, 81, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUISetState(@SW_SHOW)

$source = "MyJob.txt"
$nomDeFichier = @scriptdir & "\BACKUP\Rapport_MyJob_du_"
FileCopy ($source,$nomDeFichier & @YEAR & "_" &@MON & "_" &@MDAY & "_" & @HOUR & "_" & @MIN & "_" & @SEC & ".txt",8)
$file = FileOpen( "MyJob.txt", 1)
FileWrite($file, "==================== Nouvelle journée ==================== Nouvelle journée ====================" & @CRLF & @CRLF & @CRLF)

While 1
$msg = GUIGetMsg()
Select
Case $msg = $Date1
$date = GuiCtrlRead($Date1)
FileWrite($file, "Date de la saisie : " & $date & @CRLF & @CRLF)
Case $msg = $Button1
ShellExecute(@scriptdir & "\MyJob_Interventions.exe")
Case $msg = $Button2
ShellExecute(@scriptdir & "\MyJob_Matériel.exe")
Case $msg = $Button3
ShellExecute(@scriptdir & "\MyJob_Connaissances.exe")
Case $msg = $Button4
ShellExecute(@scriptdir & "\MyJob_Stages.exe")
Case $msg = $Button5
ShellExecute(@scriptdir & "\MyJob_Formations_immersions.exe")
Case $msg = $Button6
ShellExecute(@scriptdir & "/MyJob.txt")
exit
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

Si tu as une idée et si tu peux me commenter la manip cela serait cool de ta part.

Merci d'avance

[mikell]

Sérieux tu as vraiment besoin que je te commente ça ?

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


Global $file = FileOpen(@scriptdir & "/MyJob.txt", 1)
Global $Form1 = GUICreate("MyJob.exe", 434, 555, 299, 180, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetBkColor(0x646464)
Global $Button1 = GUICtrlCreateButton("Commencer par cliquer ici pour saisir les interventions", 8, 176, 419, 49, $WS_GROUP)
Global $Pic1 = GUICtrlCreatePic(@scriptdir & "\ADD\MJ.jpg", 0, 0, 433, 81, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetResizing(-1, $GUI_DOCKAUTO+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKHCENTER+$GUI_DOCKVCENTER+$GUI_DOCKWIDTH)
Global $Group1 = GUICtrlCreateGroup(" Rapport d'activité du ", 96, 96, 217, 65)

$input = GUICtrlCreateInput("choisir la date", 112, 120, 168, 20, 1)  ; le 1 c'est pour centrer
Global $Date1 = GUICtrlCreateDate("", 278, 120, 20, 20)

GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button2 = GUICtrlCreateButton("Ensuite cliquer ici pour saisir le type de matériel découvert", 8, 232, 419, 49, $WS_GROUP)
Global $Button3 = GUICtrlCreateButton("Ensuite cliquer ici pour saisir la découverte des connaissances ", 8, 288, 419, 49, $WS_GROUP)
Global $Button4 = GUICtrlCreateButton("Ensuite cliquer ici pour saisir les stages et/ou stages de perfectionnent", 8, 344, 419, 49, $WS_GROUP)
Global $Button5 = GUICtrlCreateButton("Ensuite cliquer ici pour saisir ici les formations et/ou immersions", 8, 400, 419, 49, $WS_GROUP)
Global $Button6 = GUICtrlCreateButton("Et enfin cliquer ici pour fermer MyJob et/ou afficher le rapport", 8, 464, 419, 81, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUISetState(@SW_SHOW)


$source = "MyJob.txt"
$nomDeFichier = @scriptdir & "\BACKUP\Rapport_MyJob_du_"
FileCopy ($source,$nomDeFichier & @YEAR & "_" &@MON & "_" &@MDAY & "_" & @HOUR & "_" & @MIN & "_" & @SEC & ".txt",8)
$file = FileOpen( "MyJob.txt", 1)
FileWrite($file, "==================== Nouvelle journée ==================== Nouvelle journée ====================" & @CRLF & @CRLF & @CRLF)

While 1
$msg = GUIGetMsg()
Select

Case $msg = $Date1
   $date = GuiCtrlRead($Date1)
   GuiCtrlSetData($input, $date)
   FileWrite($file, "Date de la saisie : " & $date & @CRLF & @CRLF)

Case $msg = $Button1
ShellExecute(@scriptdir & "\MyJob_Interventions.exe")
Case $msg = $Button2
ShellExecute(@scriptdir & "\MyJob_Matériel.exe")
Case $msg = $Button3
ShellExecute(@scriptdir & "\MyJob_Connaissances.exe")
Case $msg = $Button4
ShellExecute(@scriptdir & "\MyJob_Stages.exe")
Case $msg = $Button5
ShellExecute(@scriptdir & "\MyJob_Formations_immersions.exe")
Case $msg = $Button6
ShellExecute(@scriptdir & "/MyJob.txt")
exit
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd 
 

[jeanmimigab]

Sérieux tu as vraiment besoin que je te commente ça ?

Vi, j'ai vraiment du mal à m'y faire à ce langage, pourtant il n'est pas très compliqué...

En tout cas en voyant ton script je vient de voir où j'avais fait la boulette du bug...

Encore une fois un GRAND MERCI pour ton aide

Bonne soirée

Jeanmimigab