谁能提供一个详细的禁用shift键的内容,

先写入这样一段代码,用于启用或者是禁用SHIFT的键.

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

然后再新建两个开关按键,一个用于启用SHIFT,一个用于关闭SHIFT,然后再写入以下代码,

Private Sub CommandCOLES_Click()
If MsgBox("请确认是否停用SHIFT", vbOKCancel, "wzw") = vbCancel Then Exit Sub

Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
  MsgBox "shift已经处于停用状态!"
End Sub

Private Sub CommandOPEN_Click()
If MsgBox("请确认是否启用SHIFT", vbOKCancel, "wzw") = vbCancel Then Exit Sub

Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, True
  MsgBox "shift处于启用状态!"

End Sub

当然,你还可以用一段代码来识别SHIFT的目前状态.

以上不知对你是否有用,我也是刚入门,一起学习哦.我的QQ,108854075;