Sur la fenêtre de la Gui du code ci-dessous, je ne peux lire que la première page soit: 40 lignes max. Cette restriction est dû à la présence de la fonction "GUICtrlSetState($_FrhEdit,$GUI_DISABLE)" qui me permet d’interdire copier-coller. Or, mon ficher texte contient plus de 122 lignes/3pages.
Je vous prie de m'aider à rendre le script capable de lire les deux pages restantes en cliquant sur le bouton "Page suivante", soit donc:
- de 1 à la 40 lignes
- de 41 à la 81 lignes
- de 82 à 122 lignes
Vos suggestions svp. Merci
Cordialement.
Code : Tout sélectionner
#include <GuiEdit.au3>
#include <EditConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Array.au3>
#Include <File.au3>
Opt('MustDeclareVars', 1)
_Main1()
Func _Main1()
Global $_FrhEdit, $FrOrigine001, $FrButton1, $FrOrigine002, $FrButton2,$text, $text2
Local $fichier, $nbr_lignes, $fp, $contenu, $lignes
;==========================================
$fichier = "est.txt" ; 200 lignes
$nbr_lignes = _FileCountLines($fichier)
; On lit les premières 40 lignes
$fp = FileOpen($fichier, 0) $nbr_lignes = 40 ; C'est le maximum lisible
Local[/br]
$contenu = ""
For $i = 1 To $nbr_lignes
$lignes = FileReadLine($fp, $i)
$contenu = $contenu & $lignes & @CRLF
Next
;~ FileClose($fp)
; MsgBox(16384, "", $contenu)
;===============================================
Local $Wow64 = ""
If @AutoItX64 Then $Wow64 = "\Wow6432Node"
Local $sFile = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE" & $Wow64 & "\AutoIt v3\AutoIt", "InstallDir") & "\include\changelog.txt"
Local $msg, $Label2, $ButValid1, $ButValid2
$FrOrigine001 = GUICreate("Nos Conditions :", 1220, 900, -1, -1)
$_FrhEdit = GUICtrlCreateEdit($contenu, 2, 2, 1215, 800, BitOR($ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetState($_FrhEdit,$GUI_DISABLE)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont($_FrhEdit, 12, 900, 0, "Ariel")
GUISetState()
$FrButton1 = GUICtrlCreateButton("Oui j'accepte", 420, 860, 121, 25, 0)
$FrButton2 = GUICtrlCreateButton("Page suivante", 580, 860, 121, 25, 0)
GUISetBkColor(0x00066CC)
$FrOrigine002 = GUICtrlCreateLabel("Acceptez-vous les termes de ce contrat ?", 400, 820, 437, 20)
GUICtrlSetColor(-1, 0xFCF8F8)
GUICtrlSetFont($FrOrigine002, 12, 900, 0, "Ariel")
GUISetState()
GUISetState (@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $FrButton1
Exit
Case $msg = $FrButton2
;GUICtrlSetState($_FrhEdit,$GUI_ENABLE)
EndSelect
WEnd
EndFunc ;==>_Main