如果是在关闭子窗口的时候关闭整个进程,可以执行,Environment.Exit(0)结束进程。
PrivateSub
Form_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
If
KeyCode
=
vbKeyF6
And
Shift
=
1
Then
"你好!"
End
If
End
Sub
应该是把窗体的KeyPreview设为True,这样窗体优先激活键盘事件。
如果想关闭,可以加入:Unload
me
可以将该关闭语句放入一个定时钟,否则你会看不到“你好!”的。
具体如下,在窗体上增加一个定时控件Timer1.
Private
Sub
Form_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
If
KeyCode
=
vbKeyF6
And
Shift
=
1
Then
"你好"
Timer1.Interval
=
1000
End
If
End
Sub
Private
Sub
Timer1_Timer()
Unload
Me
End
Sub
运行程序,按Shift+F6后,显示“你好!”,1秒钟后关闭窗口。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)