蓓蕾 发表于 2008-7-30 20:22:19

如何让输入框文本默认处于被选择状态

如图


[ 本帖最后由 蓓蕾 于 2008-7-31 01:22 编辑 ]

pcbar 发表于 2008-7-30 20:39:18

参考guiedit udf

顽固不化 发表于 2008-7-30 21:19:37

没选成蓝色的，只是点击会清除。参考吧。
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 405, 120, 193, 125)
$Input1 = GUICtrlCreateInput("这里输入数字", 24, 16, 201, 21)
$Button1 = GUICtrlCreateButton("Button1", 136, 72, 121, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $GUI_EVENT_PRIMARYDOWN
                        mouseCHK()
                Case $Button1
                        GUICtrlSetData($Input1,"这里输入数字")
        EndSwitch
WEnd

Func mouseCHK()
        $MS=GUIGetCursorInfo($Form1)
        if $MS=$Input1 And GUICtrlRead($Input1)="这里输入数字" Then
                GUICtrlSetData($Input1,"")
        EndIf
EndFunc       

蓓蕾 发表于 2008-7-31 01:19:42

跪谢顽固不化大侠，深度论坛那个也是你吧，那就更要感谢你了，在深度也几乎每个问题贴都能得到你的解答。本事高，更难得的是一颗助人之心，有机会来清远通知我，请你好好聚餐。我的QQ：362400963，电话0763-8986863叫我蓓蕾就行了。

另：在$Input1 = GUICtrlCreateInput("这里输入数字", 24, 16, 201, 21)这行的下一行插入新行：
GUICtrlSetState(-1, $GUI_FOCUS)
就能蓝色阴影条显示已选中状态了，测试通过。
页: [1]
查看完整版本: 如何让输入框文本默认处于被选择状态