disable some key in keyboard

[voodoo_mg]

hi,

I'd like to disable some key is keyboard such as ALT, TAB; or another, for forcing the user to tape a valid username and password before using some application in the computer.

thanks

[bsmith]

You can start with this function and modify it to make restrict keys if you like. This function will only allow the user enter the Keys you specify on the keyboard.

Public Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = fnValiText
(KeyAscii,"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789",True)

End Sub

Public Function fnValiText(arg_sKeyIn As Integer, arg_strValidateString As String, arg_bEditable As Boolean) As Integer

'Dim member variables
Dim m_strValidateList As String
Dim m_sKeyOut As Integer
    
    If arg_bEditable = True Then
        m_strValidateList = UCase(arg_strValidateString) & Chr(8)
    Else
        m_strValidateList = UCase(arg_strValidateString)
    End If

    If InStr(1, m_strValidateList, UCase(Chr(arg_sKeyIn)), 1) > 0 Then
        m_sKeyOut = arg_sKeyIn
    Else
        m_sKeyOut = 0
    End If
        
    fnValiText = m_sKeyOut

End Function

[Chris]

you can use this...

Private Sub Text1_KeyPress (KeyAscii As Integer)

If KeyAscii = 9 or KeyAscii = 18 then KeyAscii = 0

'Note KeyAscii 8 = TAB Key and KeyAscii 18 = Atl Key.

End Sub

[Rohan_Powle]

Every body Uses keyascii but as per my Knowledge
KEYCODE Event is the best to trap Keys...
Because it traps even the Function keys....which is not possible with ascii....

use if condition and trap the keys

eg:- if keycode = vbkeyreturn then
----
End if


Try it

[KenX]

there's no KeyCode Event... BUT
KeyDown and KeyUp Events use KeyCode as one of their
parameters...

for example:
Private Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)

just a clarification...