Question

VB中如何禁用键盘上的左右WIN键？

隐藏了任务栏，发现按下WIN键，还是会出现，在VB中怎样实现禁用键盘上的左右WIN键？

Answer 1

这两个键其实就是Ctrl＋ESC，屏蔽这两个键就可以。这两个键的值分别是91和92。

Option Explicit

Private Declare Function StartMaskKey Lib "MaskKey" (lpdwVirtualKey As Long, ByVal nLength As Long, Optional ByVal bDisableKeyboard As Boolean = False) As Long

Private Declare Function StopMaskKey Lib "MaskKey" () As Long

Private Sub cmdStartMask_Click()

' @# 屏蔽 A, B, C, 上, 下, 左, 右及两个win键

Dim key(8) As Long

key(0) = vbKeyA

key(1) = vbKeyB

key(2) = vbKeyC

key(3) = vbKeyLeft

key(4) = vbKeyRight

key(5) = vbKeyUp

key(6) = vbKeyDown

key(7) = &H5B '@# 左边的win键

key(8) = &H5C ' @# 右边的win键

StartMaskKey key(0), UBound(key) + 1

End Sub

Private Sub cmdStopMask_Click()

StopMaskKey

End Sub

自己调下，网上找的应该可以

Answer 2

提供给你一个思路：取出这两个键的ASCII码，然后定义到键盘敲击事件中，动作为不做任何处理。你试一下。