|
alguem pode me mostar o passo a passo de como bloquear a tecla Shift ?
Fiz minha pesquisa, fiz um passo a passo, e continua sem funcionar. J.á crei um módulo
Option Compare Database 'Esta é a função para liberar ou Shift Sub EnablesShift() Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey", DB_Boolean, True End Sub 'Isso é para Travar Sub BlockShift() Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey ", DB_Boolean, False End Sub Function ChangeProperty (strPropName As String, varPropType As Variant, varPropValue As Variant) Como Inteiro Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb Em caso de erro GoTo Change_Err dbs.Properties (strPropName) = varPropValue ChangeProperty = True Change_Bye: Função de saída Change_Err: If Err = conPropNotFoundError Then ' Propriedade não encontrada. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Erro desconhecido. ChangeProperty = False Resume Change_Bye End If End Function
Crie também um formulário com 2 teclas Liberar e Travar , defini o procedimento do evento e nada está funcionando, Private Sub Btliberar_Click()
HabilitaShift End Sub
Private Sub BtTravar_Click()
BloqueiaShift End Sub
alguém pode me dizer o problema ???? alguma pulo do Gato ?????
|