_GUICtrlRichEdit.... no funciona bien
Publicado: 26 Ene 2011, 20:42
Hola a todos, soy nuevo en esto y como 3er proyecto estoy haciendo una calculadora, con botones. Recien hice la GUI nomas y mi primer problema es que no puedo ponerle el style $ES_NUMBER a la input, dejo el codigo para que vean. Aclaro que use el richedit porque me parecia lo mas adecuado para este caso, porque tiene metodos sencillos de agregar caracteres segun donde este el cursor. Mi segundo pregunta es, ¿como hago para que el foco solamente este en el input y no pase a los botones o al form?
El resto del proyecto lo ire resolviendo, creo que hare las siguientes variables, una que tome lo que esta escrito en el input y lo guarde cuando se haga presione una tecla de operacion y otra que tome el siguiente conjunto de numeros, y bueno, la funcion = que haga la operación; quiza necesite otra variable mas, pero creo que voy en buen rumbo
El resto del proyecto lo ire resolviendo, creo que hare las siguientes variables, una que tome lo que esta escrito en el input y lo guarde cuando se haga presione una tecla de operacion y otra que tome el siguiente conjunto de numeros, y bueno, la funcion = que haga la operación; quiza necesite otra variable mas, pero creo que voy en buen rumbo
Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiRichEdit.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Calculadora X monoscout999", 367, 327, 192, 118)
$Button1 = GUICtrlCreateButton("1", 8, 256, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("2", 80, 256, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("3", 152, 256, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("0", 224, 256, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("5", 80, 184, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("6", 152, 184, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button7 = GUICtrlCreateButton("+", 224, 184, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button8 = GUICtrlCreateButton("8", 80, 112, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button9 = GUICtrlCreateButton("9", 152, 112, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button10 = GUICtrlCreateButton("*", 224, 112, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button11 = GUICtrlCreateButton("=", 296, 256, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button12 = GUICtrlCreateButton("-", 296, 184, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button13 = GUICtrlCreateButton("/", 296, 112, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button14 = GUICtrlCreateButton("4", 8, 184, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button15 = GUICtrlCreateButton("7", 8, 112, 65, 65, $WS_GROUP)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Input1 = _GUICtrlRichEdit_Create($form1,"0", 8, 32, 353, 40, BitOR($ES_RIGHT,$ES_NUMBER))
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd