[R] Évenements inputbox

[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.

[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)

[arrkhan]

merci thierry, je change le tag