如何使Command1_Click()响应回车键的事件?

xyjdn 2002-03-12 10:18:55

...全文

462 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

xyjdn 2002-03-14

打赏
举报

看来是没法解决了.

DTWUJP 2002-03-13

打赏
举报

只有当焦点在当前控件时，才能响应。焦点在当前只能有一个，不然就乱套了。

benbenc 2002-03-13

打赏
举报

－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Command1_Click()
Command1_KeyPress 13
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 then
。。。。。。
End If
End Sub

jett 2002-03-13

打赏
举报

设default有时候没用
令form的keypreview=true
在form的keypress中判断keyii=13

jamex 2002-03-13

打赏
举报

只要将command1的Default设为True，按回车就会自动响应Command1_Click()

smartsuyun 2002-03-13

打赏
举报

Default 属性

返回或设置一个值，以确定哪一个 CommandButton 控件是窗体的缺省命令按钮。

语法

object.Default [= boolean]

Default 属性语法包含下面部分：

部分描述
Object 对象表达式，其值是“应用于”列表中的一个对象。
Boolean 布尔表达式，指定该命令按钮是否为缺省按钮，“设置值”中有详细描述。

设置值

boolean 的设置值为

设置值描述
True 该 CommandButton 是缺省命令按钮。
False （缺省值）该 CommandButton 不是缺省命令按钮。

说明

窗体中只能有一个命令按钮可以为缺省命令按钮。当某个命令按钮的 Default 设置为 True 时，窗体中其它的命令按钮自动设置为 False。当命令按钮的 Default 设置为 True 而且其父窗体是活动的，用户可以按 ENTER 键选择该按钮（激活其单击事件）。任何其它有焦点的控件都不接受 ENTER 键的键盘事件（KeyDown，KeyPress或 KeyUp），除非用户将焦点移到同一窗体的另外一个命令按钮上。在这种情况下，按 ENTER 键选择有焦点的命令按钮而不是缺省命令按钮。

对于支持如删除等不可恢复操作的窗体或对话框，将取消按钮的 Default 属性设置成 True，使其成为缺省命令按钮。

对于 OLE 容器控件，只为那些行为象 CommandButton 控件的对象才有 Default 属性。

smartsuyun 2002-03-13

打赏
举报

command1.dafault = true 'command1响应Form中的所有Enter键事件
command1.cancel = true 'command1响应form中的所有ESC键事件

freetide 2002-03-13

打赏
举报

给按纽发消息？

xyjdn 2002-03-13

打赏
举报

To DTWUJP(建平.net)：看来只能用控件了。
To winiceberg(winiceberg):
是If KeyCode = 13 Then Command1_Click (0)吗？
这方法不能在回车键上使用。
To ywls(yw) ：如果焦点在Command1上当然是这样，但如果焦点在Command2上则又如何？

sea 2002-03-13