Cr�e un contr�le d'�dition
#include <GuiEdit.au3>
_GUICtrlEdit_Create ( $hWnd, $sText, $iX, $iY [, $iWidth = 150 [, $iHeight = 150 [, $iStyle = 0x003010C4 [, $iExStyle = 0x00000200]]]] )
| $hWnd | Handle du parent ou de la fen�tre propri�taire |
| $sText | Texte � afficher dans le contr�le |
| $iX | Position horizontale du contr�le |
| $iY | Position verticale du contr�le |
| $iWidth | [optionnel] Largeur du contr�le |
| $iHeight | [optionnel] Hauteur du contr�le |
| $iStyle | [optionnel] Styles du contr�le: $ES_AUTOHSCROLL - Fait d�filer automatiquement le texte vers la droite de 10 caract�res lorsque l'utilisateur tape un caract�re � la fin de la ligne. $ES_AUTOVSCROLL - Fait d�filer automatiquement le texte d'une page lorsque l'utilisateur appuie sur la touche ENTER sur la derni�re ligne. $ES_CENTER - Centre le texte dans le contr�le d'�dition. $ES_LEFT - Aligne le texte sur la marge gauche. $ES_LOWERCASE - Convertit tous les caract�res en minuscules pendant qu'ils sont tap�s dans le contr�le d'�dition. $ES_MULTILINE - D�signe un contr�le d'�dition multiligne. $ES_NOHIDESEL - Le texte s�lectionn� est invers�, m�me si le contr�le n'a pas le focus. $ES_NUMBER - Autorise uniquement la saisie de chiffres dans le contr�le d'�dition. $ES_OEMCONVERT - Convertit le texte saisi dans le contr�le d'�dition. $ES_READONLY - Emp�che l'utilisateur de taper ou de modifier le texte du un contr�le d'�dition. $ES_RIGHT - Aligne � droite le texte du contr�le d'�dition. $ES_UPPERCASE - Convertit tous les caract�res en majuscules pendant qu'ils sont tap�s dans le contr�le d'�dition. $ES_WANTRETURN - Indique qu'un retour chariot doit �tre ins�r� lorsque l'utilisateur appuie sur la touche ENTER. $ES_PASSWORD - Affiche un ast�risque (*) pour chaque caract�re tap� dans le contr�le d'�dition Default: $ES_MULTILINE, $ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL Forced: WS_CHILD, $WS_VISIBLE, $WS_TABSTOP que si vous n'utilisez pas $ES_READONLY |
| $iExStyle | [optionnel] Styles �tendus des contr�les. Ils correspondent aux constantes standards $WS_EX_*. Voir Table des Styles �tendus. |
| Succ�s: | Retourne le handle du contr�le d'�dition. |
| �chec: | Retourne 0. |
Cette fonction est destin�e aux utilisateurs avanc�s et pour apprendre comment fonctionne le contr�le.
#include <GUIConstantsEx.au3> #include <GuiEdit.au3> #include <WinAPIConv.au3> #include <WindowsConstants.au3> Global $g_hEdit Example() Func Example() Local $hGUI ; Cr�e une GUI $hGUI = GUICreate("Edit Create", 400, 300) $g_hEdit = _GUICtrlEdit_Create($hGUI, "This is a test" & @CRLF & "Another Line", 2, 2, 394, 268) GUISetState(@SW_SHOW) GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") _GUICtrlEdit_AppendText($g_hEdit, @CRLF & "Append to the end?") ; Boucle jusqu'� ce que l'utilisateur quitte. Do Until GUIGetMsg() = $GUI_EVENT_CLOSE GUIDelete() EndFunc ;==>Example Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) #forceref $hWnd, $iMsg Local $hWndFrom, $iIDFrom, $iCode, $hWndEdit If Not IsHWnd($g_hEdit) Then $hWndEdit = GUICtrlGetHandle($g_hEdit) $hWndFrom = $lParam $iIDFrom = _WinAPI_LoWord($wParam) $iCode = _WinAPI_HiWord($wParam) Switch $hWndFrom Case $g_hEdit, $hWndEdit Switch $iCode Case $EN_ALIGN_LTR_EC ; Envoy� quand l'utilisateur a chang� la direction du contr�le d'�dition de gauche vers la droite _DebugPrint("$EN_ALIGN_LTR_EC" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_ALIGN_RTL_EC ; Envoy� quand l'utilisateur a chang� la direction du contr�le d'�dition de la droite vers la gauche _DebugPrint("$EN_ALIGN_RTL_EC" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_CHANGE ; Envoy� quand l'utilisateur a ex�cut� une action qui peut avoir alt�r� le texte du contr�le d'�dition _DebugPrint("$EN_CHANGE" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_ERRSPACE ; Envoy� quand le contr�le d'�dition ne peut pas allouer assez de m�moire pour r�pondre � une requ�te sp�cifique _DebugPrint("$EN_ERRSPACE" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_HSCROLL ; Envoy� quand l'utilisateur clique sur une barre de d�filement horizontale du contr�le d'�dition _DebugPrint("$EN_HSCROLL" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_KILLFOCUS ; Envoy� quand le contr�le d'�dition perd le focus clavier _DebugPrint("$EN_KILLFOCUS" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_MAXTEXT ; Envoy� quand l'insertion courante de texte a exc�d� le nombre sp�cifi� de caract�res relatif au contr�le d'�dition _DebugPrint("$EN_MAXTEXT" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; Ce message est aussi envoy� quand le contr�le d'�dition n'a pas le style $ES_AUTOHSCROLL et que le nombre de caract�res qui doit �tre ; ins�r� exc�de la largeur du contr�le d'�dition. ; Ce message est aussi envoy� quand le contr�le d'�dition n'a pas le style $ES_AUTOVSCROLL et que le nombre total de lignes qui r�sulte ; de l'insertion de texte exc�de la hauteur du contr�le d'�dition ; pas de valeur de retour Case $EN_SETFOCUS ; Envoy� quand un contr�le d'�dition re�oit le focus clavier _DebugPrint("$EN_SETFOCUS" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_UPDATE ; Envoy� quand un contr�le d'�dition est sur le point de se redessiner _DebugPrint("$EN_UPDATE" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_VSCROLL ; Envoy� quand l'utilisateur clique sur la barre de d�filement verticale du contr�le d'�dition ou quand l'utilisateur manipule la roulette de la souris sur le contr�le d'�dition _DebugPrint("$EN_VSCROLL" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc ;==>WM_COMMAND Func _DebugPrint($s_Text, $sLine = @ScriptLineNumber) ConsoleWrite( _ "!===========================================================" & @CRLF & _ "+======================================================" & @CRLF & _ "-->Line(" & StringFormat("%04d", $sLine) & "):" & @TAB & $s_Text & @CRLF & _ "+======================================================" & @CRLF) EndFunc ;==>_DebugPrint
#include <GUIConstantsEx.au3> #include <GuiEdit.au3> #include <WinAPIConv.au3> #include <WindowsConstants.au3> Global $g_hEdit Example() Func Example() Local $hGUI ; Cr�e une GUI $hGUI = GUICreate("Edit Create", 400, 300) $g_hEdit = _GUICtrlEdit_Create($hGUI, "", 2, 2, 394, 268) GUISetState(@SW_SHOW) GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") _GUICtrlEdit_SetText($g_hEdit, "This is a test" & @CRLF & "Another Line") ; Boucle jusqu'� ce que l'utilisateur quitte. Do Until GUIGetMsg() = $GUI_EVENT_CLOSE GUIDelete() EndFunc ;==>Example Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) #forceref $hWnd, $iMsg Local $hWndFrom, $iIDFrom, $iCode, $hWndEdit If Not IsHWnd($g_hEdit) Then $hWndEdit = GUICtrlGetHandle($g_hEdit) $hWndFrom = $lParam $iIDFrom = _WinAPI_LoWord($wParam) $iCode = _WinAPI_HiWord($wParam) Switch $hWndFrom Case $g_hEdit, $hWndEdit Switch $iCode Case $EN_ALIGN_LTR_EC ; _DebugPrint("$EN_ALIGN_LTR_EC" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_ALIGN_RTL_EC ; Envoy� quand l'utilisateur a chang� la direction du contr�le d'�dition de la droite vers la gauche _DebugPrint("$EN_ALIGN_RTL_EC" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_CHANGE ; Envoy� quand l'utilisateur a ex�cut� une action qui peut avoir alt�r� le texte du contr�le d'�dition _DebugPrint("$EN_CHANGE" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_ERRSPACE ; Envoy� quand un contr�le d'�dition ne peut pas allouer assez de m�moire pour r�pondre � une requ�te sp�cifique _DebugPrint("$EN_ERRSPACE" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_HSCROLL ; Envoy� quand l'utilisateur clique sur la barre de d�filement horizontale d'un contr�le d'�dition _DebugPrint("$EN_HSCROLL" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_KILLFOCUS ; Envoy� quand un contr�le d'�dition perd le focus clavier _DebugPrint("$EN_KILLFOCUS" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_MAXTEXT ; Envoy� quand l'insertion courante du texte a exc�d� le nombre sp�cifi� de caract�res pour le contr�le d'�dition _DebugPrint("$EN_MAXTEXT" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; Ce message est aussi envoy� quand un contr�le d'�dition n'a pas le style $ES_AUTOHSCROLL et que les caract�res qui doivent �tre ; ins�r�s exc�dent la largeur du contr�le d'�dition. ; Ce message est aussi envoy� quand un contr�le d'�dition n'a pas le style $ES_AUTOVSCROLL et que le nombre total de lignes qui r�sultent ; de l'insertion du texte exc�de la hauteur du contr�le d'�dition ; pas de valeur de retour Case $EN_SETFOCUS ; Envoy� quand un contr�le d'�dition re�oit le focus clavier _DebugPrint("$EN_SETFOCUS" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_UPDATE ; Envoy� quand un contr�le d'�dition est sur le point de se redessiner _DebugPrint("$EN_UPDATE" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour Case $EN_VSCROLL ; Envoy� quand l'utilisateur clique sur la barre de d�filement verticale du contr�le d'�dition ou quand l'utilisateur manipule la roulette de la souris sur le contr�le d'�dition _DebugPrint("$EN_VSCROLL" & @CRLF & "--> hWndFrom:" & @TAB & $hWndFrom & @CRLF & _ "-->IDFrom:" & @TAB & $iIDFrom & @CRLF & _ "-->Code:" & @TAB & $iCode) ; pas de valeur de retour EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc ;==>WM_COMMAND Func _DebugPrint($s_Text, $sLine = @ScriptLineNumber) ConsoleWrite( _ "!===========================================================" & @CRLF & _ "+======================================================" & @CRLF & _ "-->Line(" & StringFormat("%04d", $sLine) & "):" & @TAB & $s_Text & @CRLF & _ "+======================================================" & @CRLF) EndFunc ;==>_DebugPrint