锐客网

  1. 首页 > 睿知 > it技术 > >

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

IT技术代码

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
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
vb.net如何彻底退出进程？主窗体代码调用Me.close不就可以了吗？或者在任意代码处调用Application.Exit() 。如果不起作用vb.netesc退出的话是因为vb.netesc退出你在窗体关闭vb.netesc退出的事件中调用了e.Handle=True
如何在VB中退出循环程序？Dim
bStop
As
Boolean
Private
Sub
Command1_Click()
bStop=
False
Do
DoEvents
'暂时释放CPU时间
执行其他代码
If
bStop=Ture
Then
goto
kk
Loop
kk:
【vb.netesc退出 vb退出窗口代码】End
Sub
Private
Sub
Command2_Click()
bStop=Ture
End
Sub
VB如何按下Esc快速退出当前运行的游戏1,建立一个菜单项
2,在菜单编辑器中设置这个菜单项不显示
3,在菜单编辑器中设置这个菜单项vb.netesc退出的快捷键是ESC.
4,在这个菜单项vb.netesc退出的代码中,输入结束程序vb.netesc退出的代码.
关于vb.netesc退出和vb退出窗口代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：互联网数据营销如何运营，大数据营销的运营方式有哪些

    下一篇：拼多多直播设备哪里买便宜，拼多多直播设备哪里买便宜些