Page 1 sur 1

[R] Évenements inputbox

Posté : dim. 06 janv. 2008 15:53
par arrkhan
Bonjour,

l'aide AutoIt étant très mal renseignée sur la gestion d'événements d'InputBox, je n'arrive pas à lire le "test", il n'y a aucune occurence sur ce forum et je ne trouve pas sur l'offi non plus...

Code : Tout sélectionner

GUICreate ( "Test InputBox" )
$IBMenu = GUICtrlCreateMenu ( "InputBox" )
$OpenIB = GUICtrlCreateMenuItem ( "Ouvrir" , $IBMenu )
GUISetState ( )
While 1
$msg = GUIGetMsg ( )
If $msg = - 3 Then ExitLoop
Select
Case $msg = $OpenIB
$IB = InputBox ( "Test" , 'Gestion d' & '''événement' & ' "Ok" ' & 'et' & ' "Annuler" dans une InputBox' , "Test" )
If @error = 0 Then
$IBmsg = GUICtrlRead ( $IB , 1 )
MsgBox ( 0 , "OK" , $IBmsg )
Else
MsgBox ( 0 , "Annuler" , "Annuler" , 2 )
ExitLoop
EndIf
EndSelect
WEnd
Merci d'avance.

Re: […] Évenements inputbox

Posté : dim. 06 janv. 2008 20:37
par Tlem
Il n'y à tout simplement pas besoin de faire le

Code : Tout sélectionner

GUICtrlRead ( $IB , 1 )
puisque la doc vous dit :
Success: Returns the string that was entered
Pour résoudre votre problème, faite donc tout simplement :

Code : Tout sélectionner

MsgBox(0, "OK", $IB)

Re: [R] Évenements inputbox

Posté : dim. 06 janv. 2008 23:59
par arrkhan
merci thierry, je change le tag