VB问题 keypress或者keydown的问题
名称为Form1的窗体上画一个名称为L1的标签,标题为”请确认”,再画两个命令按钮,名称分别为”是”.”否”,请在属性窗口中设置适当属性满足以下要求:在任何情况下,按回车...
名称为Form1的窗体上画一个 名称为L1的标签,标题为”请确认”,再画两个命令按钮,名称分别为”是”.”否”,请在属性窗口中设置适当属性满足以下要求:
在任何情况下,按回车键都相当于单击”是”按钮;按ESC键都相当于单击”否”按钮.
象这种。
1、设置按钮1的default属性为true即可实现按下回车键触发按钮1的单击事件
2、设置按钮2的cancel属性为true即可按下esc。。。
3、将你的代码替换为以下代码即可实现提示退出功能
Private Sub Command1_Click()
If MsgBox("确定要退出程序吗?", vbYesNo, "提示") = vbYes Then
End
End If
End Sub
不管用。。
其他的setfoucs也试过。没用。。
好比编辑完后。点运行。焦点在是上。。我移到否。再按回车。那么他就不会移到是的焦点上。
回答者:54T_T。那个unload什么我都没设置。。什么也没弄。不行的。
Private Sub Form_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Call C1_Click
Else
If Keyascii = 27 Then
Call c2_click
End If
End If
End Sub
.或者与此相似的。就是keypress或者keydown。我记得是优先级。如果不行就没办法了。 展开
在任何情况下,按回车键都相当于单击”是”按钮;按ESC键都相当于单击”否”按钮.
象这种。
1、设置按钮1的default属性为true即可实现按下回车键触发按钮1的单击事件
2、设置按钮2的cancel属性为true即可按下esc。。。
3、将你的代码替换为以下代码即可实现提示退出功能
Private Sub Command1_Click()
If MsgBox("确定要退出程序吗?", vbYesNo, "提示") = vbYes Then
End
End If
End Sub
不管用。。
其他的setfoucs也试过。没用。。
好比编辑完后。点运行。焦点在是上。。我移到否。再按回车。那么他就不会移到是的焦点上。
回答者:54T_T。那个unload什么我都没设置。。什么也没弄。不行的。
Private Sub Form_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Call C1_Click
Else
If Keyascii = 27 Then
Call c2_click
End If
End If
End Sub
.或者与此相似的。就是keypress或者keydown。我记得是优先级。如果不行就没办法了。 展开
2个回答
展开全部
不可能把~ 把default设置 为true 他不管有无焦点 都会触发把 我好象试过 可以
你是否在unload 中把cancel =不为0的了?
========================================
那你运行时有报错吗?
会不会是有其他代码有问题?
或者你把完整代码贴上来看看
=============================
我越来越不懂你的意思了
如果你设置了 default属性 和cancel属性 那么你的keypress 事件就显得很多余了
你是否在unload 中把cancel =不为0的了?
========================================
那你运行时有报错吗?
会不会是有其他代码有问题?
或者你把完整代码贴上来看看
=============================
我越来越不懂你的意思了
如果你设置了 default属性 和cancel属性 那么你的keypress 事件就显得很多余了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询