How To Disable "cntrl-n" Keystroke

[nitinpost]

HOW TO DISABLE "CNTRL-N" KEYSTROKE USING API

[ndvck]

Hope this module will help u
****************
Option Explicit

Private Type KBDLLHOOKSTRUCT
vkCode As Long
scanCode As Long
flags As Long
time As Long
dwExtraInfo As Long
End Type

Private Const WH_KEYBOARD_LL = 13
Private Const HC_ACTION = 0
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
Private Const VK_CONTROL = &H11

'API Declarations
Private Declare Function SetWindowsHookEx Lib "User32" _
Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As _
Long, ByVal hmod As Long, ByVal dwThreadID As Long) As Long

Private Declare Function UnhookWindowsHookEx Lib "User32" _
(ByVal hHook As Long) As Long

Private Declare Function GetKeyboardState _ Lib "User32"(pbKeyState As Byte) As Long

Private Declare Function CallNextHookEx _
Lib "User32" _
(ByVal hHook As Long, _
ByVal nCode As Long, _
ByVal wParam As Long, _
lParam As Any) _
As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)


Public Sub HookTheCtrls()
m_hKeyboardHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, App.hInstance, 0)
End Sub

Public Sub unHookTheCtrls()
Call UnhookWindowsHookEx(m_hKeyboardHook)
End Sub

Private Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim lbExit As Boolean
Dim lobjKb As KBDLLHOOKSTRUCT

If (nCode = HC_ACTION) Then
If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
CopyMemory lobjKb, ByVal lParam, Len(lobjKb)

'Ctrl + n
If ((lobjKb.vkCode = 78) And ((GetKeyState(VK_CONTROL) And &H8000) <> 0)) Then
lbExit = True
End If

End If

If (Not lbExit) Then
LowLevelKeyboardProc = CallNextHookEx(m_hKeyboardHook, nCode, wParam, lParam)
Else
LowLevelKeyboardProc = -1
End If
End Function
******************

[nitinpost]

Hi ndvk,

Ist of all let me thank u for posting me the module code.

I checked the module but was not able to disable "Cntrl - N" .

can u please try it out and send me the sample code for it

best regards,

Nitin