|
本帖最后由 hhasee 于 2009-5-19 08:05 编辑
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <EditConstants.au3>
#Include <GuiListView.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("查询窗口", 500, 200,500, 400)
GUISetFont(12, 400, 1)
GUICtrlCreateLabel("搜索引擎:",43,78,150,19)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0x0b1746)
GUISetFont(10, 400, 1)
$Combo1 = GUICtrlCreateCombo("MAC号", 125, 75, 73, 17)
GUICtrlSetData(-1, "SN号|日期|时间")
GUISetFont(12, 400, 1)
GUICtrlCreateLabel("查询条件:",210,78,150,19)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetFont(12, 400, 1)
$Keys_Input = GUICtrlCreateInput("", 290, 77, 120, 19, $ES_UPPERCASE)
GUICtrlCreateInput("", 290, 110, 120, 19, $ES_UPPERCASE)
$Button5 = GUICtrlCreateButton("确认", 200, 128, 45, 25,$BS_DEFPUSHBUTTON)
$Button6 = GUICtrlCreateButton("重填", 400, 128, 45, 25)
GUICtrlSetState($Keys_Input, $GUI_FOCUS)
GUISetState(@SW_SHOW)
GUISetBkColor (0xCAE1FF) ;查询界面颜色
While 2
$msg1 = GUIGetMsg()
Select
Case $msg1 = $GUI_EVENT_CLOSE
MsgBox(64,"提示:","选择退出")
ExitLoop
Case $msg1 = $Button5
MsgBox(64,"提示:","选中确定")
Case $msg1 = $Button6
MsgBox(64,"提示:","选中重填")
EndSelect
WEnd
当打开这个界面时,除了点击几个BUTTON按扭有作用外,其它的无作用,默认打开时光标停在“查询条件:”后面的LEBBLE里,可以输入,因为常常要用鼠标选中其它输入框进行操作,但无作用,偶尔有时又行,现只能用TAB键来先中了,不知是什么原因,请大侠指教一下啊! |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
|