vb.netesc退出 vb退出窗口代码

vb编程时Esc键不能退出窗体

将窗体的属性KeyPreview设置为True：

Option

Explicit

Private

Sub

Form_KeyPress(KeyAscii

As

Integer)

If

KeyAscii

=

27

Then

'如果按的键是Esc，

End

'那么退出程序

End

If

End

Sub

Private

Sub

Form_Load()

Me.KeyPreview

=

True

End

Sub

相关问答

Q1: vb怎样表示“长按”某个键，如ESC退出键？

'窗体获得焦点才有效，如果无焦点可以使用api函数，自己修改

Option Explicit

Const settime = 1 '这里设置延迟1s

Dim keyup As Boolean, keydown As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 27 And Not keydown Then

keyup = False

keydown = True

delaymessage

End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = 27 Then

keyup = True

keydown = False

End If

End Sub

Function delaymessage()

Dim t, flag As Boolean

t = Timer

Do

If keyup Then Exit Do '未到时间放掉Esc键

If Timer - t = settime Then

flag = True

Exit Do

End If

DoEvents

Loop

If flag Then

Print "时间已到：" settime '可以用msgbox，但由于长安esc后msgbox显示后马上又消失，这里只是一个功能，给你用print做显示

flag = False

End If

End Function

Q2: vb.net如何彻底退出进程？

主窗体代码调用Me.close不就可以了吗？或者在任意代码处调用Application.Exit()。如果不起作用vb.netesc退出的话是因为vb.netesc退出你在窗体关闭vb.netesc退出的事件中调用了e.Handle=True

Q3: 如何在VB中退出循环程序？

Dim

bStop

As

Boolean

Private

Sub

Command1_Click()

bStop=

False

Do

DoEvents

'暂时释放CPU时间

执行其他代码

If

bStop=Ture

Then

goto

kk

Loop

kk:

End

Sub

Private

Sub

Command2_Click()

bStop=Ture

End

Sub

Q4: VB如何按下Esc快速退出当前运行的游戏

1,建立一个菜单项

2,在菜单编辑器中设置这个菜单项不显示

3,在菜单编辑器中设置这个菜单项vb.netesc退出的快捷键是ESC.

4,在这个菜单项vb.netesc退出的代码中,输入结束程序vb.netesc退出的代码.

关于vb.netesc退出和vb退出窗口代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。