[R] Modifier apparence

[Rexspahr]

Bonjour à tous,
j'ai une petite question à vous poser...

Pour un programme, j'utilise une InputBox pour simplifier le travail. (Le but étant d'analyser les mots un par un pour ensuite sortir une réponse appropriée.)
Le problème, c'est que je voudrais modifier l'apparence de l'InputBox pour donner ça en gros :




En clair, faire une pseudo-console (je précise que je ne veux pas utiliser la console) mais qui fonctionne comme une InputBox.


Vous auriez des solutions s'il vous plait ?

Merci d'avance !

[cutprod]

Bonjour, essaye ça :
Tu crée un Gui sans les bordures, tu met une inputbox de la taille du Gui avec le fond noir =

► Afficher le texte

Code : Tout sélectionner

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


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 490, 350, 198, 124, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
$Input1 = GUICtrlCreateInput("", -8, 0, 497, 350)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

    EndSwitch
WEnd
 

PS: n'oublie pas d'écrire en "blanc"

[Rexspahr]

Merci, c'est ressemble vraiment à ce que je voulais !

(Le seul problème, c'est que ça écrit en noir, mais ça c'est pas grave, je vais essayer de modifier )

En tout cas merci beaucoup !

[cutprod]

Pour la couleur du texte rajoute cette ligne :
"GUICtrlSetColor(-1, 0xFFFFFF)"
en dessous de "GUICtrlSetBkColor(-1, 0x000000)"

[Rexspahr]

Et bien, je ne peux que vous dire encore une fois merci !


EDIT : J'ai un problème avec votre technique :
La touche Entrée est tout le temps inactive...
Ça fait depuis 1 heure que je me bat pour essayer d'activer la touche Entrée, mais je n'y arrive pas...
Je pense que c'est parce que c'est une fenètre, et que le retour à la ligne n'est pas supporté... Est-ce ça ?

Code : Tout sélectionner

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


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 1270, 760, 0, 0, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
$Read = GUICtrlCreateInput("", 0, 0, 1270, 760)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)
$font = "Lucida Console"
GUICtrlSetFont(-1, 13, 400, 0, $font)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        If $Read = "Bonjour" Then MsgBox(0,"","AAAAAAAAA")
        If $Read = "Bonsoir" Then MsgBox(0,"","BBBBBBB")

    EndSwitch
WEnd

Vous auriez une idée ?

[bloodwolff]

Humm Bravo super Cutprod ;P mais je te vole ton client !
Pour le multiligne jette un oeil sur cette ligne

Code : Tout sélectionner

$Read = GUICtrlCreateEdit("", 0, 0, 1270, 760, BitOR($ES_MULTILINE,$ES_WANTRETURN))

Je te laisse deviner lequel elle remplace
Et n'oublie pas de mettre [R] !

[Rexspahr]

Help, je vois vraiment pas où mettre cette ligne !!!!

Nan je rigole
Merci beaucoup en tout cas !


EDIT : Devinez quoi.......
J'ai encore besoin de votre aide.......

Je vous explique : je voudrais que cette fenêtre agisse comme une InputBox, or je ne trouve aucun moyen pour faire la même chose...
J'ai essayé d'enregistrer la variable $Lecture dans une nouvelle variable $Read, pour forcer le programme à comparer $Read avec la base de données, mais rien n'y fait.
Vous pourriez encore m'aider ?

Et je m'excuse d'avance si je vous embête...

► Afficher le texte

Code : Tout sélectionner

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


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 1270, 760, 0, 0, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
$Lecture = GUICtrlCreateEdit("", 0, 0, 1270, 760, BitOR($ES_MULTILINE,$ES_WANTRETURN))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)
$font = "Lucida Console"
GUICtrlSetFont(-1, 13, 400, 0, $font)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    HotKeySet("^a","Lecture")
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
        Exit
    EndSwitch
WEnd

Func Lecture()
        $Read = $Lecture ;J'enregistre la variable $Lecture dans $Read pour forcer le programme à comparer, mais ce n'est pas la bonne solution apparemment...
        If $Read = "Bonjour" Then MsgBox(0,"","AAAAAAAAA")
        If $Read = "Bonsoir" Then MsgBox(0,"","BBBBBBB")
EndFunc

Merci beaucoup !

[cutprod]

Il faut utiliser la fonction "GUICtrlRead", regarde dans l' aide (F1 quand tu es dans scite).
Met a jour ta variable avec cette fonction, ensuite tu pourras la comparer...

[Rexspahr]

Merci cutprod !

[cutprod]

Content d'avoir pu t'aider.