土耳其2017法定节假日:VB题求助

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/07 01:17:16
在窗体上绘制Cmd1和Cmd2,标题分为“Yes”“No”在任何情况下,按回车键都想但于单击Yes按钮,按Esc都相当于单击NO按钮。

这个题的代码该怎么写??
我只知道If KeyCode = 27 Then Command2_Click
f KeyCode = 13 Then Command1_Click
但是这两个我不知道怎么把这两个合在一起~~~帮帮忙把代码写出来行吗???

private sub form_load() '事件代码:
me.keypreview=true
end sub

private sub form_keydown() '事件代码:
If KeyCode = 27 Then Command2_Click
f KeyCode = 13 Then Command1_Click
end sub

private sub form_load()
cmd1.default=true
cmd2.cancel=true
end sub

另一种写法:
Select Case KeyCode
Case 27
Command2_Click
Case 13
Command1_Click
End Select

*********************
If KeyCode = 27 Then Command2_Click
else KeyCode = 13 Then Command1_Click
end if
**************

Cmd1 的确default 属性设为true Cmd2的cancel属性设置为true 不用编码