[R] Remplacer les caractères majuscule en minuscule dans GUI

[Boulanza]

Bonjour,
La fonction "$sString" permette de remplacer les caractères majuscule en minuscule:

Code : Tout sélectionner

#include <MsgBoxConstants.au3>
Local $sString = StringLower("BOULANZA@GMAIL.COM") ; Convert the following string to lowercase.
MsgBox($MB_SYSTEMMODAL, "",  $sString)
 

Mais dans le cas d’une d’une GUI:

Code : Tout sélectionner

#RequireAdmin
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
        ;GUICreate("licence", 550, 360)
    $Form1 = GUICreate("Test",300,170, 360, 2,"",$WS_EX_TOPMOST) ;   $WS_EX_TOOLWINDOW, $DS_MODALFRAME         ;,470,440,407,160,0)
    GUISetBkColor(0x00008B);0x113366 ;0x00066CC ;0xD4D0C8;0xD4D0A8;0xD4D0B8;0xF0FFFF;0xA6CAF0;0xA6CAF0
    GUICtrlSetState(-1,$GUI_DISABLE)

    $Input1 = GUICtrlCreateInput("", 30,40, 220,25,0);Votre adresse e-mail actuelle
    $Input3 = GUICtrlCreateInput("", 30,90, 220, 25, 0);Confirmez votre e-mail actuelle

    $widthCell = 150  ; first cell 70 width

    $Label1 = GUICtrlCreateLabel(" Votre adresse e-mail actuelle:         ", 30, 20, 220, 20, 0,$widthCell)
     GUICtrlSetColor(-1, 0xFCF8F8)
     GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")

    $Label3 = GUICtrlCreateLabel("Confirmez votre e-mail actuelle: ", 30, 70, 220, 20, 0,$widthCell)
     GUICtrlSetColor(-1, 0xFCF8F8)
     GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
     Switch $nMsg
        Case $GUI_EVENT_CLOSE
     ExitLoop
 EndSwitch
 WEnd
 

Ça ne donne rien. Y a-t-il une autre fonction qui permette de remplacer les caractères majuscule en minuscules dans une GUI.
Merci pour votre aide…
Cordialement.

[TT22]

Salut, tu peux essayer de voir si le contenu de l'input change et dans ce cas remettre tout en minuscule...

► Afficher le texte

Code : Tout sélectionner

#RequireAdmin
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
        ;GUICreate("licence", 550, 360)
    $Form1 = GUICreate("Test",300,170, 360, 2,"",$WS_EX_TOPMOST) ;   $WS_EX_TOOLWINDOW, $DS_MODALFRAME         ;,470,440,407,160,0)
    GUISetBkColor(0x00008B);0x113366 ;0x00066CC ;0xD4D0C8;0xD4D0A8;0xD4D0B8;0xF0FFFF;0xA6CAF0;0xA6CAF0
    GUICtrlSetState(-1,$GUI_DISABLE)

    $Input1 = GUICtrlCreateInput("", 30,40, 220,25,0);Votre adresse e-mail actuelle
    $Input3 = GUICtrlCreateInput("", 30,90, 220, 25, 0);Confirmez votre e-mail actuelle

    $widthCell = 150  ; first cell 70 width

    $Label1 = GUICtrlCreateLabel(" Votre adresse e-mail actuelle:         ", 30, 20, 220, 20, 0,$widthCell)
     GUICtrlSetColor(-1, 0xFCF8F8)
     GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")

    $Label3 = GUICtrlCreateLabel("Confirmez votre e-mail actuelle: ", 30, 70, 220, 20, 0,$widthCell)
     GUICtrlSetColor(-1, 0xFCF8F8)
     GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

$oldInput1 = ''
$oldInput3 = ''

While 1
    $nMsg = GUIGetMsg()
     Switch $nMsg
        Case $GUI_EVENT_CLOSE
     ExitLoop
EndSwitch

If GUICtrlRead($Input1) <> $oldInput1 Then
    GUICtrlSetData($Input1, StringLower(GUICtrlRead($Input1)))
    $oldInput1 = GUICtrlRead($Input1)
EndIf
If GUICtrlRead($Input3) <> $oldInput3 Then
    GUICtrlSetData($Input3, StringLower(GUICtrlRead($Input3)))
    $oldInput3 = GUICtrlRead($Input3)
EndIf

 WEnd
 

La fonction "$sString" permette de remplacer les caractères majuscule en minuscule

Attention : "$sString" n'est pas une fonction, c'est une variable qui contient la chaine en minuscule. La fonction qui permet de mettre une chaine en minuscule est "StringLower" !

[mikell]

Titoo, GuiRegisterMsg serait quand même mieux (pour économiser du contenu dans la boucle while)

[TT22]

Effectivement

► Afficher le texte

Code : Tout sélectionner

#RequireAdmin
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
;GUICreate("licence", 550, 360)
$Form1 = GUICreate("Test",300,170, 360, 2,"",$WS_EX_TOPMOST) ;   $WS_EX_TOOLWINDOW, $DS_MODALFRAME         ;,470,440,407,160,0)
GUISetBkColor(0x00008B);0x113366 ;0x00066CC ;0xD4D0C8;0xD4D0A8;0xD4D0B8;0xF0FFFF;0xA6CAF0;0xA6CAF0
GUICtrlSetState(-1,$GUI_DISABLE)

Global $Input1 = GUICtrlCreateInput("", 30,40, 220,25,0);Votre adresse e-mail actuelle
Global $Input3 = GUICtrlCreateInput("", 30,90, 220, 25, 0);Confirmez votre e-mail actuelle

$widthCell = 150  ; first cell 70 width

$Label1 = GUICtrlCreateLabel(" Votre adresse e-mail actuelle:         ", 30, 20, 220, 20, 0,$widthCell)
GUICtrlSetColor(-1, 0xFCF8F8)
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")

$Label3 = GUICtrlCreateLabel("Confirmez votre e-mail actuelle: ", 30, 70, 220, 20, 0,$widthCell)
GUICtrlSetColor(-1, 0xFCF8F8)
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

#EndRegion

GUIRegisterMsg($WM_COMMAND, "_setLower")

Func _setLower()
    GUICtrlSetData($Input1, StringLower(GUICtrlRead($Input1)))
    GUICtrlSetData($Input3, StringLower(GUICtrlRead($Input3)))
EndFunc

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch

WEnd

[Boulanza]

Merci à vous ....
Le premier code ci-dessous de TT22 marche sans problème.
Par contre son deuxième code avec GuiRegisterMsg ne marche pas ! ?

► Afficher le texte

#RequireAdmin
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
;GUICreate("licence", 550, 360)
$Form1 = GUICreate("Test",300,170, 360, 2,"",$WS_EX_TOPMOST) ; $WS_EX_TOOLWINDOW, $DS_MODALFRAME ;,470,440,407,160,0)
GUISetBkColor(0x00008B);0x113366 ;0x00066CC ;0xD4D0C8;0xD4D0A8;0xD4D0B8;0xF0FFFF;0xA6CAF0;0xA6CAF0
GUICtrlSetState(-1,$GUI_DISABLE)

$Input1 = GUICtrlCreateInput("", 30,40, 220,25,0);Votre adresse e-mail actuelle
$Input3 = GUICtrlCreateInput("", 30,90, 220, 25, 0);Confirmez votre e-mail actuelle

$widthCell = 150 ; first cell 70 width

$Label1 = GUICtrlCreateLabel(" Votre adresse e-mail actuelle: ", 30, 20, 220, 20, 0,$widthCell)
GUICtrlSetColor(-1, 0xFCF8F8)
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")

$Label3 = GUICtrlCreateLabel("Confirmez votre e-mail actuelle: ", 30, 70, 220, 20, 0,$widthCell)
GUICtrlSetColor(-1, 0xFCF8F8)
GUICtrlSetFont(-1, 11, 900, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

$oldInput1 = ''
$oldInput3 = ''

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch

If GUICtrlRead($Input1) <> $oldInput1 Then
GUICtrlSetData($Input1, StringLower(GUICtrlRead($Input1)))
$oldInput1 = GUICtrlRead($Input1)
EndIf
If GUICtrlRead($Input3) <> $oldInput3 Then
GUICtrlSetData($Input3, StringLower(GUICtrlRead($Input3)))
$oldInput3 = GUICtrlRead($Input3)
EndIf

WEnd

d' autre coté, j'aimerais bien savoir ou je peux trouver un exemple autoit de la liste déroulante des indicatifs téléphoniques internationaux, afin de l'ajouter à mon formulaire.
Cordialement.

[mikell]

Le code avec GuiRegisterMsg marche chez moi
Par contre

Code : Tout sélectionner

$Form1 = GUICreate("Test",300,170, 360, 2,[color=#FF0000]""[/color],$WS_EX_TOPMOST)

ça c'est pas bon, pour le style par défaut il faut mettre -1

[Boulanza]

Pardon mikell, vous avez raison ça marche aussi si on lui ajoute un bouton.