Page 1 sur 1
[R] Deux petit problème avec la zone d'édition, a l'aide !
Posté : lun. 29 août 2011 16:02
par Utilisateur 3643 supprimé
Bonjour j'ai un problème, je suis complètement perdue, je voudrait faire plusieurs choses et je ne sais pas comment les faire:
-ajouter un texte automatiquement sur la dernière ligne d'une zone d'édition quand on click sur un bouton
-créer un fichier texte avec ce que l'on a dans la zone d'édition
Merci, j’attends vos réponse avec impatience dépéchez vous =D
Re: [..] deux petit problème avec la zone d'édition, a l'aid
Posté : lun. 29 août 2011 16:48
par PandiPanda
je pense que ceci devrai vous aider à avancer? ^^
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 335, 157, 192, 124)
Global $Edit1 = GUICtrlCreateEdit("", 16, 8, 241, 137)
GUICtrlSetData(-1, "test du Panda")
Global $Button1 = GUICtrlCreateButton("File", 272, 16, 57, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("Ligne", 272, 48, 57, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$file=FileOpen(@ScriptDir&"\Maxoulou.txt",1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file,GUICtrlRead($Edit1))
Case $Button2
$txt="la ligne du pandaaaaa :D"
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&$txt)
EndSwitch
WEnd
Re: [..] deux petit problème avec la zone d'édition, a l'aid
Posté : lun. 29 août 2011 17:12
par Utilisateur 3643 supprimé
PandiPanda a écrit :je pense que ceci devrai vous aider à avancer? ^^
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 335, 157, 192, 124)
Global $Edit1 = GUICtrlCreateEdit("", 16, 8, 241, 137)
GUICtrlSetData(-1, "test du Panda")
Global $Button1 = GUICtrlCreateButton("File", 272, 16, 57, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("Ligne", 272, 48, 57, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$file=FileOpen(@ScriptDir&"\Maxoulou.txt",1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($file,GUICtrlRead($Edit1))
Case $Button2
$txt="la ligne du pandaaaaa :D"
GUICtrlSetData($Edit1,GUICtrlRead($Edit1)&@CRLF&$txt)
EndSwitch
WEnd
c'est ce que je cherche merci =D