求助:INPUT框点击不能得到焦点,只能TAB切换
本帖最后由 zhupengyue 于 2015-3-4 16:46 编辑如下图,两个INPUT框,点击后不能切换到另一个输入框,只能按TAB键切换
源码如下:Local$msg,$email,$password
$form = GUICreate("用户信息收集"&$softversion,400,200) ; 创建窗口
GUICtrlCreateLabel("本工具支持的foxmail版本:"&$supportver&",支持的邮箱后缀:"&$domain, 10, 10, 400);创建提示label
GUICtrlSetColor(-1, 0xff0000) ; 设置提示为红色
GUICtrlCreateLabel("邮箱帐号及密码请咨询本地行政部门", 70, 30, 400)
GUICtrlCreateLabel("邮箱帐号:", 10, 80,200)
GUICtrlSetTip(-1, "行政部门发给您的邮箱帐号")
GUICtrlCreateLabel("邮箱密码:", 10, 110,200)
GUICtrlSetTip(-1, "行政部门发给您的密码,不是自己任意输入")
$email = GUICtrlCreateInput("", 100, 78, 130, 20)
$password = GUICtrlCreateInput("", 100, 108, 130, 20)
GUICtrlCreateLabel("(例如:san.zhang)", 250, 80,200)
$Button_1 = GUICtrlCreateButton("开始配置", 80,150) ;创建按钮
$Button_2 = GUICtrlCreateButton("退出配置", 190,150)
GUISetState(@SW_SHOW) ; 显示对话框
While 1 ;循环获取事件
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE ;如果是关闭窗口事件,退出循环
Exit(1)
Case$Button_1
If StringLen(GUICtrlRead($email))<4 Then
MsgBox(16,"错误","邮箱帐号长度至少3个字母,请修改")
GUICtrlSetState($email, $GUI_FOCUS)
Else
GUICtrlSetState($Button_1,$GUI_DISABLE)
GUICtrlSetState($email,$GUI_DISABLE)
GUICtrlSetState($password,$GUI_DISABLE)
backupmail(GUICtrlRead($email),GUICtrlRead($password))
EndIf
Case $Button_2
Exit(1) ; 点击按钮 2 退出程序
EndSwitch
WEnd
本帖最后由 afan 于 2015-3-4 17:27 编辑
被Label挡住了,自己看坐标,第 7、9 行里面的 200 改为 90 即可 afan真细心
赞一个
这个问题我也经常 被 自己 困扰
页:
[1]