apres j'ai du taper deux fois les lignes qui vont de local "$file" à "next" car quand j'efface le premier il y a une erreur au niveau de la ligne local $file = FileOpen("C:\Users\leonick\Desktop\budget CEMP.txt",0) celle à l'interieur de la fonction
#include <GUIConstantsEx.au3>
#include <File.au3>
local $file = FileOpen("C:\Users\leonick\Desktop\budget CEMP.txt",0)
For $ligne = 3 To 14 Step 1
$texte=FileReadLine($file,$ligne)
if $texte <> "" Then
GUICtrlSetData(-1, "1"&$texte)
Else
$ligne=14
EndIf
Next
Opt('MustDeclareVars', 1)
Local $hauteur=5
Example()
Func Example()
Local $MESSAGE = "The following buttons have been clicked"
Local $add, $clear, $mylist, $close, $msg
GUICreate("My GUI list") ; will create a dialog box that when displayed is centered
local $file = FileOpen("C:\Users\leonick\Desktop\budget CEMP.txt",0)
dim $checkbox[12]
For $ligne = 3 To 14 Step 1
$texte=FileReadLine($file,$ligne)
if $texte <> "" Then
GUICtrlCreateCheckbox($texte, 30, $hauteur)
$hauteur=$hauteur+20
Else
$ligne=14
EndIf
Next
$close = GUICtrlCreateButton("my closing button", 64, 260, 175, 25)
GUISetState()
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
; Case $msg = $add
; GUICtrlSetData($mylist, "You clicked button No1|")
; Case $msg = $clear
; GUICtrlSetData($mylist, "")
Case $msg = $close
Exit
EndSelect
WEnd
EndFunc ;==>Example
#include <File.au3>
local $file = FileOpen("C:\Users\leonick\Desktop\budget CEMP.txt",0)
For $ligne = 3 To 14 Step 1
$texte=FileReadLine($file,$ligne)
if $texte <> "" Then
GUICtrlSetData(-1, "1"&$texte)
Else
$ligne=14
EndIf
Next
Opt('MustDeclareVars', 1)
Local $hauteur=5
Example()
Func Example()
Local $MESSAGE = "The following buttons have been clicked"
Local $add, $clear, $mylist, $close, $msg
GUICreate("My GUI list") ; will create a dialog box that when displayed is centered
local $file = FileOpen("C:\Users\leonick\Desktop\budget CEMP.txt",0)
dim $checkbox[12]
For $ligne = 3 To 14 Step 1
$texte=FileReadLine($file,$ligne)
if $texte <> "" Then
GUICtrlCreateCheckbox($texte, 30, $hauteur)
$hauteur=$hauteur+20
Else
$ligne=14
EndIf
Next
$close = GUICtrlCreateButton("my closing button", 64, 260, 175, 25)
GUISetState()
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
; Case $msg = $add
; GUICtrlSetData($mylist, "You clicked button No1|")
; Case $msg = $clear
; GUICtrlSetData($mylist, "")
Case $msg = $close
Exit
EndSelect
WEnd
EndFunc ;==>Example