输入框禁止输入后 自己设置的颜色也变灰色了。。

zhenglei

如何让输入框 锁定后 让字体颜色依然显示为 红色 。。。。。。。。
代码如下  INPUT锁定后 原本红色的字体也变成了灰色。。。。。。。。。。。。。

1. #include <ButtonConstants.au3>
   
2. #include <EditConstants.au3>
   
3. #include <GUIConstantsEx.au3>
   
4. #include <WindowsConstants.au3>
   
5. #Include <GuiEdit.au3>
   
6. #Region ### START Koda GUI section ### Form=
   
7. $Form1 = GUICreate("Form1", 322, 99, 192, 124)
   
8. $Input1 = GUICtrlCreateInput("测试显示", 16, 16, 289, 21)
   
9. GUICtrlSetColor(-1, 0xff0000)   ; Red
   
10. $Button1 = GUICtrlCreateButton("保存", 64, 56, 75, 25)
    
11. $Button2 = GUICtrlCreateButton("重置", 168, 56, 75, 25)
    
12. GUISetState(@SW_SHOW)
    
13. #EndRegion ### END Koda GUI section ###
    
14. 
    
15. While 1
    
16.         $nMsg = GUIGetMsg()
    
17.         Switch $nMsg
    
18.                 Case $GUI_EVENT_CLOSE
    
19.                         Exit
    
20.                                         Case $Button1
    
21.                                                 GUICtrlSetState($Input1, $GUI_DISABLE)
    
22. 
    
23.                 Case $Button2
    
24.                                         GUICtrlSetState($Input1, $GUI_ENABLE)
    
25.                         GUICtrlSetData($Input1,"测试显示")
    
26. 
    
27.         EndSwitch
    
28. WEnd

复制代码

nbmpe

我也遇到过这种情况

caodongchun

帮你改了一下，楼上二位可参考：
[au3]
;注意，此时不要用input，而用edit，并改变风格即可
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 322, 99, 192, 124)
$Input1 = GUICtrlCreateEdit("测试显示", 16, 16, 289, 21,$ES_AUTOHSCROLL+$ES_AUTOVSCROLL)
GUICtrlSetColor(-1, 0xff0000)   ; Red
$Button1 = GUICtrlCreateButton("保存", 64, 56, 75, 25)
$Button2 = GUICtrlCreateButton("重置", 168, 56, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                                        Case $Button1
                                                GUICtrlSetStyle($Input1, $ES_READONLY+$ES_AUTOHSCROLL+$ES_AUTOVSCROLL)

                Case $Button2
                                        GUICtrlSetStyle($Input1, $ES_AUTOHSCROLL+$ES_AUTOVSCROLL)
                        GUICtrlSetData($Input1,"测试显示")

        EndSwitch
WEnd[/au3]

zhenglei

支持一下 。。 。方法不错。嘿嘿。。。。。

karlpopper

变通一下还是不错的。。。。。。只是感觉有点逃避问题

afan

4#改标题。

变通一下还是不错的。。。。。。只是感觉有点逃避问题
karlpopper 发表于 2010-10-10 21:49

这个应该不是逃避问题吧~
禁止输入有多种方法，而LZ使用的刚好是影响字体状态的 GUICtrlSetState($Input1, $GUI_DISABLE)
本身就是不对的。3#的 $ES_READONLY 无疑是很好的方法。

xianhou

用 disable 的方法会使字体变灰，背景变暗。
用 readonly 的方法会保持字体颜色，但背景变暗。
如果想禁止编辑，同时保持字体不变，背景不变，请参考
http://www.autoitx.com/forum.php ... 8941&highlight=

afan

用 disable 的方法会使字体变灰，背景变暗。
用 readonly 的方法会保持字体颜色，但背景变暗。
如果想禁止 ...
xianhou 发表于 2010-10-10 22:21

    $ES_READONLY 风格与 非 $ES_READONLY 风格背景色不同，我认为其一目的是让用户能更好的识别可写操作，减少没必要的操作，不觉得这样更好(⊙_⊙)？
   不过如果用来伪装倒是( ^_^ )不错~

xianhou

回复 8# afan

另外一个策略

http://www.autoitx.com/forum.php ... 8941&highlight=

2楼

cj-reggie

学习一下，看看内容，等钱多了在下载

liufenglg

你提出问题
从热心的坛友那又学到东西了

netegg

1. #include <GuiEdit.au3>
   
2. #include <WinAPI.au3> ; used for Lo/Hi word
   
3. #include <WindowsConstants.au3>
   
4. #include <GuiConstantsEx.au3>
   
5. 
   
6. Opt('MustDeclareVars', 1)
   
7. 
   
8. $Debug_Ed = False ; Check ClassName being passed to Edit functions, set to True and use a handle to another control to see it work
   
9. 
   
10. Global $hEdit
    
11. 
    
12. _Example1()
    
13. 
    
14. Func _Example1()
    
15.         Local $hGUI
    
16. 
    
17.         ; Create GUI
    
18.         $hGUI = GUICreate("Edit Create", 400, 300)
    
19.         $hEdit = _GUICtrlEdit_Create($hGUI, "This is a test" & @CRLF & "Another Line", 2, 2, 394, 268)
    
20.         GUISetState()
    
21. 
    
22.         GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
    
23. 
    
24.        
    
25.         ; Loop until user exits
    
26.         Do
    
27.         Until GUIGetMsg() = $GUI_EVENT_CLOSE
    
28.         GUIDelete()
    
29. EndFunc   ;==>_Example1
    
30. 
    
31. 
    
32. 
    
33. Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    
34.         #forceref $hWnd, $iMsg
    
35.         Local $hWndFrom, $iIDFrom, $iCode, $hWndEdit
    
36.         If Not IsHWnd($hEdit) Then $hWndEdit = GUICtrlGetHandle($hEdit)
    
37.         $hWndFrom = $ilParam
    
38.         $iIDFrom = _WinAPI_LoWord($iwParam)
    
39.         $iCode = _WinAPI_HiWord($iwParam)
    
40.         Switch $hWndFrom
    
41.                 Case $hEdit, $hWndEdit
    
42.                         Switch $iCode
    
43.                                 Case $EN_CHANGE
    
44.                                         _GUICtrlEdit_SetText($hEdit, '')
    
45.                         EndSwitch
    
46.         EndSwitch
    
47.         Return $GUI_RUNDEFMSG
    
48. EndFunc   ;==>WM_COMMAND

复制代码

menfan1

不错，学习一下。。

pizigao

3楼的方法不错啊~借鉴了