Page 1 sur 1
[R] Modifier apparence
Posté : jeu. 10 févr. 2011 21:26
par 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 !
Re: [..] Modifier apparence
Posté : jeu. 10 févr. 2011 21:35
par 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"
Re: [..] Modifier apparence
Posté : jeu. 10 févr. 2011 21:38
par 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 !
Re: [R] Modifier apparence
Posté : jeu. 10 févr. 2011 21:46
par cutprod
Pour la couleur du texte rajoute cette ligne :
"GUICtrlSetColor(-1, 0xFFFFFF)"
en dessous de "GUICtrlSetBkColor(-1, 0x000000)"
Re: [R] Modifier apparence
Posté : jeu. 10 févr. 2011 23:43
par 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 ?
Re: [..] Modifier apparence
Posté : ven. 11 févr. 2011 00:09
par 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] !
Re: [..] Modifier apparence
Posté : ven. 11 févr. 2011 22:15
par 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 !
Re: [..] Modifier apparence
Posté : sam. 12 févr. 2011 08:01
par 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...
Re: [..] Modifier apparence
Posté : sam. 12 févr. 2011 13:05
par Rexspahr
Merci cutprod !
Re: [R] Modifier apparence
Posté : sam. 12 févr. 2011 21:46
par cutprod
Content d'avoir pu t'aider.