[R] Descente dans une Edit
Posté : jeu. 29 oct. 2009 11:00
par DJSIR
Bonjour. J'ai un petit problème avec mon script.
Quand toutes les lignes d'une Edit sont prises, normalement, la première d'en haut disparait, laissant en bas la place à une autre ligne. Dans mon cas, cela ne marche pas même avec le $ES_AUTOVSCROLL. Si quelqu'un sait ?
Quand toutes les lignes d'une Edit sont prises, normalement, la première d'en haut disparait, laissant en bas la place à une autre ligne. Dans mon cas, cela ne marche pas même avec le $ES_AUTOVSCROLL. Si quelqu'un sait ?
► Afficher le texteCode
Code : Tout sélectionner
#include <GuiEdit.au3>
#include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
$KEY = 0
$GUI = GUICreate("Console", 760, 360, 50, 50)
GUISetFont(11, 300, 0, "Lucida Console")
$CMD = GUICtrlCreateEdit("", 5, 5, 750, 250, $ES_READONLY + $ES_AUTOVSCROLL)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000044)
GUISetState(@SW_SHOW)
Sleep(1000)
GUICtrlSetData($CMD, "DJSIR PowerShell v2.0" & @CRLF)
$MESSAGE = "Suppression des données de la carte"
GUICtrlSetConsoleData($CMD, $MESSAGE)
; _DriveFormat
GUICtrlSetConsoleDataEnd($CMD)
$MESSAGE = "Téléchargement des fichiers depuis le serveur (1/1)"
GUICtrlSetConsoleData($CMD, $MESSAGE)
; InetGet
GUICtrlSetConsoleDataEnd($CMD)
$MESSAGE = "Extraction des fichiers"
GUICtrlSetConsoleData($CMD, $MESSAGE)
; _7ZExtractEx
GUICtrlSetConsoleDataEnd($CMD)
$MESSAGE = "Copie des fichiers sur la carte"
GUICtrlSetConsoleData($CMD, $MESSAGE)
; DirCopy
GUICtrlSetConsoleDataEnd($CMD)
$VERSION = "4.2"
;Messages (Array)
Local $MESSAGE[12]
If $VERSION = "4.2" Then
$MESSAGE[0] = @CRLF & 'Après chaque instruction, appuyez sur "Espace" pour afficher ' & "l'instruction suivante"
$MESSAGE[1] = "Insérez la carte SD contenant le pack d'installation dans votre console."
$MESSAGE[2] = "Allumez votre console et allez dans le Menu Wii."
$MESSAGE[3] = "Cliquez sur l'icône de la carte SD."
$MESSAGE[4] = 'Une fenêtre va apparaître. Cliquez sur "Oui"'
$MESSAGE[5] = "L'homebrew se lance. Patientez un petit moment et appuyez sur le bouton 1."
$MESSAGE[6] = 'Sélectionnez "Install The Homebrew Channel".'
$MESSAGE[7] = 'Sélectionnez "Yes, continue".'
$MESSAGE[8] = 'Patientez. Une fois la chaîne Homebrew correctement installée, vous obtiendrez "SUCCES"'
$MESSAGE[9] = 'Cliquez sur "Continue"'
$MESSAGE[10] = 'Cliquez ensuite sur "Exit".'
$MESSAGE[11] = 'Vous avez correctement installé la Chaîne Homebrew !'
ElseIf $VERSION = "inférieure a 4.2" Then
$MESSAGE[0] = @CRLF & 'Après chaque instruction, appuyez sur "Espace" pour afficher' & "l'instruction suivante"
$MESSAGE[1] = "Insérez la carte SD contenant le pack d'installation dans votre console."
$MESSAGE[2] = "Allumez votre console et allez dans le Menu Wii."
$MESSAGE[3] = 'Sélectionnez "Gestion des données"'
$MESSAGE[4] = 'Sélectionnez "Chaînes" puis "Carte SD".'
$MESSAGE[5] = 'Une fenêtre va apparaître. Cliquez sur "Oui"'
$MESSAGE[6] = "L'homebrew se lance. Patientez un petit moment et appuyez sur le bouton 1."
$MESSAGE[7] = 'Sélectionnez "Install The Homebrew Channel" puis "Yes, continue".'
$MESSAGE[8] = 'Patientez. Une fois la chaîne Homebrew correctement installée, vous obtiendrez "SUCCES"'
$MESSAGE[8] = 'Cliquez sur "Continue"'
$MESSAGE[10] = 'Cliquez ensuite sur "Exit".'
$MESSAGE[11] = 'Vous avez correctement installé la Chaîne Homebrew !'
EndIf
$DLL = DllOpen("user32.dll")
For $i = 0 To 11 Step 1
GUICtrlSetConsoleData($CMD, $MESSAGE[$i])
$KEY = 0
Sleep(1000)
Do
$KEY = _IsPressed("20", $DLL);Entrée
Until $KEY = 1
Next
DllClose($DLL)
Exit
While 1
$Msg = GUIGetMsg(1)
Switch $Msg[0]
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
Func GUICtrlSetConsoleData($CONTROL, $MESSAGE)
_GUICtrlEdit_SetText($CONTROL, _GUICtrlEdit_GetText($CONTROL) & @CRLF & $MESSAGE)
EndFunc
Func GUICtrlSetConsoleDataEnd($CONTROL)
_GUICtrlEdit_SetText($CONTROL, _GUICtrlEdit_GetText($CONTROL) & " :: Terminé")
EndFunc