Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]有关自定登陆窗口的问题。(已解决)

1楼
dlovef 发表于:2011/7/7 9:37:00
请教一下,如何在自定义登陆窗口界面密码输入完成后按回车就可以登陆,即和点确定按钮起到的作用是一样的。


图片点击可在新窗口打开查看此主题相关图片如下:截图04.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2011-7-7 12:01:57编辑过]
2楼
狐狸爸爸 发表于:2011/7/7 9:41:00

foxtable并未提供设置默认按钮的功能。

不过你可以窗口的全局Keydown事件,判断用户按下的是否是回车键,如果是的,就模拟按下了确定按钮:

http://help.foxtable.com/topics/2309.htm

 

 

 

 

3楼
dlovef 发表于:2011/7/7 10:01:00
我正是这样实现的,密码杠的Keydown事件代码如下。并在确定按钮的click事件里设置了个MessageBox来显示密码内容,
If e.KeyCode = Keys.Enter Then
    Dim btn As WinForm.Button = e.Form.Controls("btn_ok")
    btn.PerformClick()
End If

可是执行时,密码输入完成后直接按回车键却出现如下的问题。显示密码为空,并且不能登陆,


图片点击可在新窗口打开查看此主题相关图片如下:截图05.jpg
图片点击可在新窗口打开查看

再按一次回车,即可正常显示密码,并正常登陆,

图片点击可在新窗口打开查看此主题相关图片如下:截图06.jpg
图片点击可在新窗口打开查看

请问狐爸这是为什么呢?
4楼
狐狸爸爸 发表于:2011/7/7 10:10:00
If e.KeyCode = Keys.Enter Then
    Dim btn As WinForm.Button = e.Form.Controls("btn_ok")
    btn.focus
    btn.PerformClick()
End If
5楼
dlovef 发表于:2011/7/7 10:17:00
狐爸,中间那行会报错。

图片点击可在新窗口打开查看此主题相关图片如下:截图07.jpg
图片点击可在新窗口打开查看

6楼
狐狸爸爸 发表于:2011/7/7 11:07:00
If e.KeyCode = Keys.Enter Then
   Dim btn As WinForm.Button = e.Form.Controls("btn_ok")
   btn.Select
   btn.PerformClick()
End If
7楼
dlovef 发表于:2011/7/7 12:02:00
OK了,3Q
共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02539 s, 2 queries.