GUI InputBox 灰字演示

rictirse

1. #include <GuiConstants.au3>
   
2. 
   
3. Global $Cnt = 3;全部input box的數量
   
4. Global $DefaultInputData[$Cnt] = ["這是第一行","這是第二行","這是第三行"];預設的灰底字 cnt為三個所以要有三段文字
   
5. Global $InputTempText[$Cnt];預設灰色文字讀到Memory內
   
6. Global $Flag[$Cnt],$Input[$Cnt];宣告 input 與 Flag 陣列高度
   
7. Global $reg = "HKCUSoftwareDangTest" ;reg 路徑
   
8. Global $NoneaActiveColor = 0x989898;灰色文字
   
9. 
   
10. $GUI = GUICreate ( "Input", 280, 150)
    
11. 
    
12. For $i = 0 To ($Cnt-1)
    
13.         $InputTempText[$i] = $DefaultInputData[$i];將灰字傳到 temp裡，當對照組
    
14.         $Flag[$i] = 0;標記預設0 = 灰字模式 1 = 實際文字
    
15.         $Input[$i] = GUICtrlCreateInput ( $DefaultInputData[$i], 15, 20+($i*30), 250, 20);產生Input GUI
    
16.         If RegRead ( $Reg, "InputData"&$i) <> "" And RegRead ( $Reg, "InputData"&$i) <> $DefaultInputData[$i] Then;如果reg不等於 "空白" 或 預設的灰字
    
17.                 GUICtrlSetData ( $Input[$i], RegRead ( $Reg, "InputData"&$i));載入存檔
    
18.                 $Flag[$i] = RegRead ( $Reg, "Flag"&$i);讀入Flag
    
19.         Else
    
20.                 GUICtrlSetColor ( -1, $NoneaActiveColor);將預設顏色設為灰字
    
21.         EndIf
    
    
22. Next
    
23. 
    
24. $ExitButton = GUICtrlCreateButton ( "Exit", 200, 125, 60, 20)
    
25. GUICtrlSetState ( -1, $GUI_DEFBUTTON)
    
26. 
    
27. GUISetState ()
    
28. 
    
29. ControlFocus ( $GUI, "", $ExitButton);將EXIT BOX 設為預設啟動按鈕
    
30. 
    
31. While 1
    
32.         For $i = 0 To ($Cnt-1)
    
33.                 _CheckInput ( $GUI, $Input[$i], $InputTempText[$i], $DefaultInputData[$i], $Flag[$i], $i)
    
34.                 If GUICtrlRead ($Input[$i]) <> $InputTempText[$i] Then;如果Input內容跟預設灰字一樣就不存檔
    
35.                         _InputBoxSave ( $Input[$i], "InputData"&$i);存檔
    
36.                 EndIf
    
37.         Next
    
38.     Switch GUIGetMsg()
    
39.                 Case $GUI_EVENT_CLOSE
    
40.                         Exit
    
41.         Case $ExitButton
    
42.             Exit
    
43.     EndSwitch
    
44. WEnd
    
45. 
    
46. Func _CheckInput ( $hWnd, $InputName, $InputTempText, ByRef $DefaultInputData, ByRef $Flag, $i)
    
47.     If $Flag = 0 And _IsFocused ( $hWnd, $InputName) And $DefaultInputData = $InputTempText Then
    
48.         $Flag = 1
    
49.                 RegWrite ( $Reg, "Flag"&$i, "REG_SZ", 1)
    
50.         GUICtrlSetData ( $InputName, "")
    
    
51.         GUICtrlSetColor ( $InputName, 0x000000)
    
52.         $DefaultInputData = ""
    
53.     ElseIf $Flag = 1 And Not _IsFocused ( $hWnd, $InputName) And GUICtrlRead ($InputName) = "" Then
    
54.         $Flag = 0
    
55.                 RegWrite ( $Reg, "Flag"&$i, "REG_SZ", 0)
    
56.         $DefaultInputData = $InputTempText
    
57.         GUICtrlSetData ( $InputName, $DefaultInputData)
    
58.         GUICtrlSetColor ( $InputName, $NoneaActiveColor)
    
59.     EndIf
    
60. EndFunc
    
61. 
    
62. Func _IsFocused ( $hWnd, $nCID)
    
63.     Return ControlGetHandle ( $hWnd, '', $nCID) = ControlGetHandle ( $hWnd, '', ControlGetFocus ($hWnd))
    
64. EndFunc
    
65. 
    
66. Func _InputBoxSave ( $InputName, $RegName);存檔到Reg
    
67.         If GUICtrlRead ($InputName) <> RegRead ( $Reg, $RegName) Then
    
68.                 RegWrite ( $Reg, $RegName, "REG_SZ", GUICtrlRead ($InputName))
    
69.         EndIf
    
70. EndFunc

複製代碼

bunnie

噹噹
我也想推薦一個UDF 也不錯喔 :-)
出自 Autoit Forum ,
對於XP系統電腦不會有相容性的問題,
→_GUICtrlInputCueBanner.au3
--------------------------------------------
以下是範例

1. #include <EditConstants.au3>
   
2. #include <GUIConstantsEx.au3>
   
3. #include <StaticConstants.au3>
   
4. #include <WindowsConstants.au3>
   
5. #include <_GUICtrlInputCueBanner.au3> ;==> 灰色字UDF
   
6. 
   
7. $Form1 = GUICreate("TEST", 320, 76, 473, 265)
   
8. $Input1 = GUICtrlCreateInput("", 72, 24, 209, 21)
   
9. _GuiCtrlInput_SetCueBanner(-1, "我是灰色提示字", 0x696969, 0xCFCFCF) ;==> Example
   
10. GUISetState(@SW_SHOW)
    
11. 
    
12. While 1
    
13.         $nMsg = GUIGetMsg()
    
14.         Switch $nMsg
    
15.                 Case $GUI_EVENT_CLOSE
    
16.                         Exit
    
17.         EndSwitch
    
18. WEnd

複製代碼