Communauté Francophone AutoIt
https://www.autoitscript.fr/forum/
comment copy un line d'une GUICtrlCreateEdit dans un variable pour utilisez ce variable ...Code : Tout sélectionner
$hMonTexte = GUICtrlCreateEdit ( "text", left, top)Code : Tout sélectionner
$MonTexte = GUICtrlRead ($hMonTexte)
Msgbox(0, "Texte", $Montexte)
Code : Tout sélectionner
#include <GUIConstants.au3>
$GUI = GUICreate("....", 270, 150, -1, -1)
$Input_1 = GUICtrlCreateedit("", 10, 10, 220, 70)
$Button_2 = GUICtrlCreateButton("Cut Lines", 10, 90, 80)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $Button_2
$line = StringSplit(guictrlread($Input_1), @LF)
For $i = 1 To $line[0]
Msgbox(0,"", $line[$i])
Next
EndSelect
WEndCode : Tout sélectionner
#include "guiconstants.au3"
#include "EditConstants.au3"
GUICreate ("Registration",200,200)
GUICtrlCreateLabel ("votre nom ici : ",10,13)
$input = GUICtrlCreateInput ("",80,10,110,20)
GUICtrlCreateLabel ("votre org ici : ",15,43)
$input1 = GUICtrlCreateInput ("",80,40,110,20)
GUICtrlCreateLabel ("votre adr ici : ",14,73)
[color=#BF0000]$input2 = GUICtrlCreateEdit ( "", 80,70,110,80)[/color]
$change = GUICtrlCreateButton ("change",45,160,50,30)
$exit = GUICtrlCreateButton ("exit",105,160,50,30)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $gui_event_close
ExitLoop
Case $msg = $exit
exit
Case $msg = $change
$nom = GUICtrlRead( $input )
$org = GUICtrlRead( $input1 )
[color=#BF0000]$des = GUICtrlRead( $input2 )[/color]
IniWrite (@SystemDir&"\OEMInfo.ini","General","Manufacturer",$nom&" :")
IniWrite (@SystemDir&"\OEMInfo.ini","General","Model",$org)
[color=#FF0000]IniWrite (@SystemDir&"\OEMInfo.ini","Support Information","Line1",$des)[/color]
EndSelect
WEndCode : Tout sélectionner
Case $msg = $change
$nom = GUICtrlRead( $input )
$org = GUICtrlRead( $input1 )
$des = GUICtrlRead( $input2 )
$line = StringSplit($des, @LF)
IniWrite (@SystemDir&"\OEMInfo.ini","General","Manufacturer",$nom&" :")
IniWrite (@SystemDir&"\OEMInfo.ini","General","Model",$org)
IniWrite (@SystemDir&"\OEMInfo.ini","Support Information","Line1",$line[1])
EndSelect
WEnd