锐客网

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

vb.net禁止事件的简单介绍

IT技术操作

vb.net 禁用第三方 控件滚轮事件拦截窗口程序消息可以解决
参考 VB王国荣API讲座 讲消息vb.net禁止事件的那章
几个API就可以搞定
vb.net（2013版本）如何禁止键盘事件 。Dim key_state As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True '设置窗体响应键盘操作
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
'MsgBox(e.KeyCode)'这行开启可以测试你输入的按键代码
【vb.net禁止事件的简单介绍】If key_state = 0 Then e.Handled = True '取消操作
Select Case e.KeyCode
Case 49'按键1
'................操作脚本
Case 50'按键2
'................操作脚本
End Select
End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
e.Handled = True '取消操作
End Sub
'*******************************************************************************另一种方法
AddHandler Me.KeyDown, AddressOf Form1_KeyDown'需要时加入事件
RemoveHandler Me.KeyDown, AddressOf Form1_KeyDown '不需要时删除事件
VB.NET中怎样在窗体上禁用控件的键盘事件Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If sender Is Me Then MsgBox(e.KeyData.ToStringvbCrLfsender.ToString)
End Sub
Private Sub Button1_KeyDown(sender As Object, e As KeyEventArgs) Handles Button1.KeyDown
If sender Is Me Then MsgBox(e.KeyData.ToStringvbCrLfsender.ToString)
End Sub
这样就行了，第一个过程if语句结果为真，第二个过程if语句结果为假，你的所有问题都可通过if判断语句解决，msgbox代码只是做个测试 ， 实际为你响应form键盘事件的代码 。
vb.net禁止事件的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于、vb.net禁止事件的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：flutter插件打包，Flutter插件

    下一篇：新闻直播间b站，b站直播新闻公告