[R] Blocage sur une GUICtrlCreateEdit

[ienien]

Bonjour à toutes et à tous,

Je débute dans le langage Autoit ainsi que dans le concepteur d''interface Koda.
J'ai quelques notions tout de même ce qui me permet d'avancer mais là je suis bloqué sur un point important.

Je veux que les actions de mon programmes soient retranscrites dans une GUICtrlCreateEdit que j'ai crée grâce à Koda.

Seulement voilà, après de veines recherches, je n'arrive toujours pas à comprendre le code qui permet d'envoyer un message d'action.
Comme par exemple si le curseur double-clique sur un programme, je veux que le message "Ouverture du programme." soit visible dans ma GUI.

Si vous voyez pas exactement ce que je veux dire (ce que je comprendrais car je débute et je sais pas exactement comment exprimer mon idée) n'hésitez surtout pas à me demander plus d'explications !

J'attends une réponse avec impatience car là ça me prend la tête... 2 jours que je cherche la solution mais je suis persuadé que c'est pas si compliqué que ça.

[Hugues]

Salut,

Essai ça pour voir:

► Afficher le texte

Code : Tout sélectionner

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

$Form1 = GUICreate("Form1", 633, 454, 192, 114)
$Edit1 = GUICtrlCreateEdit("", 64, 80, 449, 233)
GUISetState(@SW_SHOW)

MemoWrite("Lancement application")
For $i = 0 To 10
    MemoWrite (".")
    Sleep(200)
next

MemoWrite(" Ok")

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


Func MemoWrite($sMessage)
    GUICtrlSetData($Edit1, $sMessage, 1)
EndFunc   ;==>MemoWrite

Sinon pour afficher un texte juste avant l'affichage de ton GUI tu peux utiliser le SplashTextOn() genre:

► Afficher le texte

Code : Tout sélectionner

SplashTextOn("", "Lancement de mon application", 250, 55, -1, -1)
sleep(1000)
SplashOff()

[mikell]

Le problème n'est pas d'écrire dans l'Edit mais de détecter ce qui doit y être écrit
Si l'action à détecter est interne à ton programme (lancement d'un exe par bouton de la gui) c'est facile
Mais si c'est une action externe (lancement d'un exe par clic sur un raccourci du bureau) c'est plus compliqué
Donc il faut que tu sois plus précis et que tu donnes une description exacte de l'action à détecter

[ienien]

Salut,

Essai ça pour voir:

► Afficher le texte

Code : Tout sélectionner

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

$Form1 = GUICreate("Form1", 633, 454, 192, 114)
$Edit1 = GUICtrlCreateEdit("", 64, 80, 449, 233)
GUISetState(@SW_SHOW)

MemoWrite("Lancement application")
For $i = 0 To 10
    MemoWrite (".")
    Sleep(200)
next

MemoWrite(" Ok")

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


Func MemoWrite($sMessage)
    GUICtrlSetData($Edit1, $sMessage, 1)
EndFunc   ;==>MemoWrite

Sinon pour afficher un texte juste avant l'affichage de ton GUI tu peux utiliser le SplashTextOn() genre:

► Afficher le texte

Code : Tout sélectionner

SplashTextOn("", "Lancement de mon application", 250, 55, -1, -1)
sleep(1000)
SplashOff()

Merci, je vais essayer dès demain car là je peux pas !

Le problème n'est pas d'écrire dans l'Edit mais de détecter ce qui doit y être écrit
Si l'action à détecter est interne à ton programme (lancement d'un exe par bouton de la gui) c'est facile
Mais si c'est une action externe (lancement d'un exe par clic sur un raccourci du bureau) c'est plus compliqué
Donc il faut que tu sois plus précis et que tu donnes une description exacte de l'action à détecter

Il ne s'agit pas de lancement d'exe. Bien qu'en effet, en lançant l'exe, dans l'édit, j'aimerais qu'apparaisse un "bienvenue" avec l'heure par exemple mais ça c'est un détail.

J'ai surtout besoin que le programme m'affiche toutes les actions qu'il fait.
Par exemple, s'il entre dans une fonction où il doit bouger le curseur et cliquer sur un objet, j'ai besoin qu'il me le dise afin que je sache où il en est.

C'est surtout utile pour détecter le positionnement d'un bug.

[mikell]

Donne un petit code d'exemple ça sera plus simple

[ienien]

;Creation du journal où seront retranscrites les actions du bot
$journal = GUICtrlCreateEdit("", 38, 252, 373, 169, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL,$ES_READONLY),0)

Donc ici j'ai ma GUI.

J'ai besoin d'une fonction qui permet de faire le lien entre la GUI et celle-ci.

Func journalMsg ()

GUICtrlSetData($journal, @HOUR & ":" & @MIN & ":" & @SEC & " : ")

EndFunc


Func _msgBienvenue()

JournalMsg("Salut " & @UserName & " ! (OS :" & @OSVersion & " " & @OSArch & ")" )

EndFunc



Donc vous avez la fonction journalMsg qui a enregistrée les paramètres et les instructions.
Ensuite vous avez la fonction _msgBienvenue dont le programme passera toujours par là quand je lance le programme.
Donc il renvoie le texte "Salue" avec les autres instructions comme le l'UserName, la version de l'OS etc.
Et toutes ces informations devront être visible dans l'Edit afin que je puisse savoir où il en est dans le programme.

S'il affiche bien "Salut", je saurai qu'il ne bug pas. Vous comprenez ?

[Hugues]

Ca te convient?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <Date.au3>

Global $iMemo

_Example() ;Je lance la fonction _Example()
_Fonction1()
_Fonction2()
_Fonction3()


Func _Example()
    $MainGUI= GUICreate("", 400, 300)
    $iMemo = GUICtrlCreateEdit("", 2, 2, 450, 300, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL,$ES_READONLY),0)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

    MemoWrite("Bienvenue, " & @UserName & @CRLF & "Nous sommes le: " & _Now() & " " & @CRLF & "OS: " & @OSVersion & @CRLF & "OSArch: " & @OSArch)
    Sleep(500)
EndFunc   ;==>Example

Func _Fonction1()
    MemoWrite("Fonction1 lancée")
    Sleep(500)
EndFunc

Func _Fonction2()
    MemoWrite("Fonction2 lancée")
    Sleep(500)
EndFunc

Func _Fonction3()
    MemoWrite("Fonction3 lancée")
    Sleep(500)
EndFunc

Func MemoWrite($sMessage)
    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite

While 1
    $msg = GUIGetMsg()

    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect

WEnd

[ienien]

Ca te convient?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <Date.au3>

Global $iMemo

_Example() ;Je lance la fonction _Example()
_Fonction1()
_Fonction2()
_Fonction3()


Func _Example()
    $MainGUI= GUICreate("", 400, 300)
    $iMemo = GUICtrlCreateEdit("", 2, 2, 450, 300, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL,$ES_READONLY),0)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

    MemoWrite("Bienvenue, " & @UserName & @CRLF & "Nous sommes le: " & _Now() & " " & @CRLF & "OS: " & @OSVersion & @CRLF & "OSArch: " & @OSArch)
    Sleep(500)
EndFunc   ;==>Example

Func _Fonction1()
    MemoWrite("Fonction1 lancée")
    Sleep(500)
EndFunc

Func _Fonction2()
    MemoWrite("Fonction2 lancée")
    Sleep(500)
EndFunc

Func _Fonction3()
    MemoWrite("Fonction3 lancée")
    Sleep(500)
EndFunc

Func MemoWrite($sMessage)
    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite

While 1
    $msg = GUIGetMsg()

    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect

WEnd

C'est parfait ! J'ai réussi à l'adapter à mon code et ça fonctionne ! Vraiment, un grand merci à toi !

[Hugues]

De rien!

Si le sujet est résolu, passe ta balise principale en [R] (On dirait un modérateur lol)

Oh là je vais me faire gronder par les modérateurs

[ienien]

En fait, j'aurais une toute dernière petite question:

J'ai ma GUI qui color mon texte d'une certaine couleur mais dans une fonction si par exemple il doit renvoyé un message d’erreur si l'utilisateur ne fait pas correctement une action, j'aimerais que la couleur du texte passe au rouge uniquement pour le message d’erreur et non pas pour tout le texte.

[Hugues]

Peut-être ça? ^^ Trouver sur un site US , mais par contre il faut passer par _GUICtrlRichEdit_Create() au lieu de GUICtrlCreateEdit() avec #include <GuiRichEdit.au3>

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <GuiRichEdit.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 448, 269, 192, 124)
$Edit1 = _GUICtrlRichEdit_Create($Form1,"", 16, 24, 417, 225)
GUISetState(@SW_SHOW)
_GUICtrlRichEdit_AppendTextColor($Edit1, "Hello "& @CR, "0x00FF00")
_GUICtrlRichEdit_AppendTextColor($Edit1, "Autoit "& @CR, "0xFF0000")
_GUICtrlRichEdit_AppendTextColor($Edit1, "World", "0x000000")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _GUICtrlRichEdit_Destroy($Edit1)
            Exit
    EndSwitch
WEnd

Func _GUICtrlRichEdit_AppendTextColor($hWnd, $sText, $iColor)
    Local $iLength = _GUICtrlRichEdit_GetTextLength($hWnd, True, True) ; RichEdit stores text as 2 Byte Unicode chars
    Local $iCp = _GUICtrlRichEdit_GetCharPosOfNextWord($hWnd, $iLength)
    _GUICtrlRichEdit_AppendText($hWnd, $sText)
    _GUICtrlRichEdit_SetSel($hWnd, $iCp-1, $iLength + StringLen($sText)) ; position in 2 Byte "Unicode"
    _GUICtrlRichEdit_SetCharColor($hWnd, $iColor)
    _GuiCtrlRichEdit_Deselect($hWnd)
EndFunc

[ienien]

Ca fonctionne en effet mais je vois pas très bien comment le coder de façon à ce qu'il écrive le message dans ma GuiEdit ^^"

[mikell]

De toute façon, avec un Edit tu ne peux pas mettre de couleur sur juste 1 ligne, donc faut changer de controle, donc faut apprendre à utiliser cet autre controle

NB : en moins compliqué ya la listview, aussi

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <Date.au3>
#include <ListViewConstants.au3>

Global $iMemo

_Example() ;Je lance la fonction _Example()
_Fonction1()
_Fonction2()
_Fonction3()


Func _Example()
    $MainGUI= GUICreate("", 400, 300)

    $iMemo = GUICtrlCreateListview(" ", 2, 2, 450, 300, $LVS_NOCOLUMNHEADER)
     GUICtrlSendMsg($iMemo, $LVM_SETCOLUMNWIDTH, 0, 400)

;    $iMemo = GUICtrlCreateEdit("", 2, 2, 450, 300, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL,$ES_READONLY),0)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

    MemoWrite("Bienvenue, " & @UserName)    
    MemoWrite("Nous sommes le: " & _Now()) 
    MemoWrite("OS: " & @OSVersion & "    " & "OSArch: " & @OSArch)
    Sleep(500)
EndFunc   ;==>Example

Func _Fonction1()
    MemoWrite("Fonction1 lancée")
    Sleep(500)
EndFunc

Func _Fonction2()
    MemoWrite("Fonction2 lancée")
    Sleep(500)
EndFunc

Func _Fonction3()
    MemoWrite("Error")
    Sleep(500)
EndFunc

Func MemoWrite($sMessage)
   GUICtrlCreateListViewItem ($sMessage, $iMemo)
   If StringInStr($sMessage, "Error") Then GUICtrlSetColor(-1, 0xff0000)
;    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
WEnd

[ienien]

Je vais voir pour faire tourner mon programme de cette manière. Merci en tout cas de ton aide, vraiment ! :=)