怎样为按钮控件添加键盘事件?

是winform程序吧？？

如果是按如下步骤 *** 作：

1.先将Form的KeyPreview属性改为：True！

2.为Form添加一个KeyDown事件！如下代码：

private void Form1_KeyDown(object sender, KeyEventArgs e)

{

//textBox1是用来显示.keyDown是自己写的函数!

textBox1.Text += keyDown(e.KeyValue)

}

//注:Form1_KeyDown事件是工具生成!

3.写一个keyDown函数,代码如下:

private string keyDown(int keyValue)

{

switch (keyValue)

{

case 96:

return "0"

break

case 97:

return "1"

break

case 98:

return "2"

break

.............

case 105:

return "9"

break

}

return ""

}

这样就可以了!

如果是ASP.NET的话再说!

如果按键其中一个不是控制键的话，VB中必须用键盘钩子才能实现判断按下的是哪两个按键

建议不要研究用VB本身完成上述任务，使用API是很简单的

可以参考一些使用全局钩子的程序，下面是我写的一些代码，此全局钩子的代码改编自一位VB达人的钩子代码，此达人在VB不可能实现钩子的一片喊声中写出了下面的代码，没有使用DLL，虽然不知道他的名字，但是很感激他在我很茫然的时候给了我信心，那就是对VB的狂热！

努力吧兄弟，你会发现VB的天空是很美丽的！！！～～～

1。公用代码写在模块中

Public 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

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const HWND_TOPMOST = -1

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)

Public Type KEYMSGS

vKey As Long '虚拟码 (and &HFF)

sKey As Long '扫描码

flag As Long '键按下：128 抬起：0

time As Long 'Window运行时间

End Type

Public Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA" (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Public strKeyName As String * 255

Public keyMsg As KEYMSGS

Public Const Alt_Down = &H20

'消息

Public Const HC_ACTION = 0

Public Const HC_SYSMODALOFF = 5

Public Const HC_SYSMODALON = 4

'键盘消息

Public Const WM_KEYDOWN = &H100

Public Const WM_KEYUP = &H101

Public Const WM_SYSKEYDOWN = &H104

Public Const WM_SYSKEYUP = &H105

Public hHook As Long

2。钩子事件处理代码，写在模块中

'键盘钩子

Public Function CallKeyHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Dim lKey As Long

Dim strKeyName As String * 255

Dim strLen As Long

Dim 虚拟码 As Integer

'On Error GoTo CallKeyHookProcErr:

If code = HC_ACTION Then

CopyMemory keyMsg, lParam, LenB(keyMsg)

lKey = keyMsg.sKey And &HFF '扫描码

lKey = lKey * 65536

strLen = GetKeyNameText(lKey, strKeyName, 250)

虚拟码 = CInt(Format(keyMsg.vKey And &HFF, "0"))

Select Case wParam

Case WM_SYSKEYDOWN, WM_KEYDOWN:

GUN_CTRL.Text1.Text = "键名:" + Left(strKeyName, strLen) + " 虚拟码:" + Format(keyMsg.vKey And &HFF, "0") + " 扫描码:" + Format(lKey / 65536, "0")

'GUN_CTRL.Text2.Text = ""

'If (GetKeyState(vbKeyControl) And &H8000) Then

' GUN_CTRL.Text2.Text = GUN_CTRL.Text2.Text + "Ctrl "

'End If

'

' If (keyMsg.flag And Alt_Down) <>0 Then

'GUN_CTRL.Text2.Text = GUN_CTRL.Text2.Text + "Alt "

' End If

'

' If (GetKeyState(vbKeyShift) And &H8000) Then

' GUN_CTRL.Text2.Text = GUN_CTRL.Text2.Text + "Shift"

' End If

Select Case 虚拟码

Case 移动键(0)

移动标志(0) = True: CallKeyHookProc = 1

Case 移动键(1)

移动标志(1) = True: CallKeyHookProc = 1

Case 移动键(2)

移动标志(2) = True: CallKeyHookProc = 1

Case 移动键(3)

移动标志(3) = True: CallKeyHookProc = 1

Case 移动键(4)

移动标志(4) = True: CallKeyHookProc = 1

Case 移动键(5)

移动标志(5) = True: CallKeyHookProc = 1

Case 旋转键(0)

旋转标志(0) = True: CallKeyHookProc = 1

Case 旋转键(1)

旋转标志(1) = True: CallKeyHookProc = 1

Case 旋转键(2)

旋转标志(2) = True: CallKeyHookProc = 1

Case 旋转键(3)

旋转标志(3) = True: CallKeyHookProc = 1

Case 旋转键(4)

旋转标志(4) = True: CallKeyHookProc = 1

Case 旋转键(5)

旋转标志(5) = True: CallKeyHookProc = 1

Case 120

Call LoadKeySetting("F9"): CallKeyHookProc = 1

Case 121

Call LoadKeySetting("F10"): CallKeyHookProc = 1

Case 122

Call LoadKeySetting("F11"): CallKeyHookProc = 1

Case 123

Call LoadKeySetting("F12"): CallKeyHookProc = 1

Case 192 '数字键左边那个键 工作行程 <---->辅助行程

If 当前行程状态 = 1 Then

GUN_CTRL.工作_辅助行程Timer.Enabled = True: CallKeyHookProc = 1

ElseIf 当前行程状态 = 2 Then

GUN_CTRL.工作_辅助行程Timer.Enabled = True: CallKeyHookProc = 1

End If

Case 49, 97, 35'数字键1,小键盘1

If 当前行程状态 = 0 Then

ElseIf 当前行程状态 = 1 Then

Else

End If

Case 50, 98, 40'数字键2,小键盘2

If 当前行程状态 = 0 Then

ElseIf 当前行程状态 = 1 Then

Else

End If

Case 13'回车 焊接

If 当前行程状态 = 1 Then

GUN_CTRL.焊接Timer.Enabled = True: CallKeyHookProc = 1

ElseIf 当前行程状态 = 0 Then

GUN_CTRL.焊接Timer.Enabled = True: CallKeyHookProc = 1

End If

End Select

Case WM_SYSKEYUP, WM_KEYUP:

Select Case 虚拟码

Case 移动键(0)

移动标志(0) = False

Case 移动键(1)

移动标志(1) = False

Case 移动键(2)

移动标志(2) = False

Case 移动键(3)

移动标志(3) = False

Case 移动键(4)

移动标志(4) = False

Case 移动键(5)

移动标志(5) = False

Case 旋转键(0)

旋转标志(0) = False

Case 旋转键(1)

旋转标志(1) = False

Case 旋转键(2)

旋转标志(2) = False

Case 旋转键(3)

旋转标志(3) = False

Case 旋转键(4)

旋转标志(4) = False

Case 旋转键(5)

旋转标志(5) = False

End Select

End Select

End If

If 移动标志(0) + 移动标志(1) + 移动标志(2) + 移动标志(3) + 移动标志(4) + 移动标志(5) = 0 Then

GUN_CTRL.移动时钟.Enabled = False

Else

GUN_CTRL.移动时钟.Enabled = True

End If

If 旋转标志(0) + 旋转标志(1) + 旋转标志(2) + 旋转标志(3) + 旋转标志(4) + 旋转标志(5) = 0 Then

GUN_CTRL.旋转时钟.Enabled = False

Else

GUN_CTRL.旋转时钟.Enabled = True

End If

'CallKeyHookProc = 1

CallKeyHookProcErr:

If code <>0 Then

CallKeyHookProc = CallNextHookEx(0, code, wParam, lParam)

End If

End Function

3。窗体中两个按钮分别完成开始钩子和结束钩子

Private Sub Form_Unload(Cancel As Integer)

If hHook >0 Then Call UnhookWindowsHookEx(hHook)

End Sub

Private Sub HookCommand_Click()

'&H20A

hHook = SetWindowsHookEx(2, AddressOf MyKBHook, 0, App.ThreadID)

End Sub

Private Sub HookUnCommand_Click()

If hHook >0 Then Call UnhookWindowsHookEx(hHook)

End Sub

VC非模态对话框创建和销毁

非模态对话框相对于模态对话框，他的创建和销毁过程和模态对话框有一定的区别

先看一下MSDN的原文：

When you implement a modeless dialog box, always override the OnCancel member function and call DestroyWindow from within it. Don’t call the base class CDialog::OnCancel, because it calls EndDialog, which will make the dialog box invisible but will not destroy it. You should also override PostNcDestroy for modeless dialog boxes in order to delete this, since modeless dialog boxes are usually allocated with new. Modal dialog boxes are usually constructed on the frame and do not need PostNcDestroy cleanup.

MS的指示：非模态对话框需要重载函数OnCanel，并且在这个函数中调用DestroyWindow。并且不能调用基类的OnCancel，因为基类的OnCancel调用了EndDialog这个函数，这个函数是针对模态对话框的。

还有一个必须重载的函数就是PostNcDestroy，这也是一个虚函数，通常的非模态对话框是用类的指针，通过new创建的，这就需要在PostNcDestroy函数中delete掉这个指针。

了解了理论过后，下面我们就可以用代码实现一下非模态对话框的创建和销毁过程:

//建立

//主框架中：

CTestDlg *pDlg=new CTestDlg

pDlg->Create(IDD_TESTDLG,this)

pDlg->ShowWindow(SW_SHOW)

//对话框中：

void CTestDlg::OnCancel()

{

DestroyWindow()

}

void CTestDlg::PostNcDestroy()

{

CDialog::PostNcDestroy()

delete this

}

如果要在点击按钮的情况下，销毁非模态对话框，只需要把按钮的事件映射到OnCancel函数即可。

以下是一点资料供参考，非模态对话框的销毁顺序：

MFC应用程序中处理消息的顺序

1.AfxWndProc() 该函数负责接收消息，找到消息所属的CWnd对象，然后调用AfxCallWndProc

2.AfxCallWndProc() 该函数负责保存消息(保存的内容主要是消息标识符和消息参数)供应用程序以后使用，

然后调用WindowProc()函数

3.WindowProc() 该函数负责发送消息到OnWndMsg()函数，如果未被处理，则调用DefWindowProc()函数

4.OnWndMsg() 该函数的功能首先按字节对消息进行排序，对于WM_COMMAND消息，调用OnCommand()消息

响应函数，对于WM_NOTIFY消息

调用OnNotify()消息响应函数。任何被遗漏的消息将是一个窗口消息。OnWndMsg()函数搜

索类的消息映像，以找到一个

能处理任何窗口消息的处理函数。如果OnWndMsg()函数不能找到这样的处理函数的话，则

把消息返回到WindowProc()函数，由它将消息发送给DefWindowProc()函数

5.OnCommand() 该函数查看这是不是一个控件通知(lParam参数不为NULL，如果lParam参数为空的话，说明

该消息不是控件通知)，如果它是，OnCommand()函数会试图将消息映射到制造通知的控件；

如果他不是一个控件通知(或者如果控件拒绝映射的消息)OnCommand()就会调用OnCmdMsg()函数

6.OnCmdMsg() 根据接收消息的类，OnCmdMsg()函数将在一个称为命令传递(Command Routing)的过程中潜在的

传递命令消息和控件通知。

例如：如果拥有该窗口的类是一个框架类，则命令和通知消息也被传递到视图和文档类，并为该

类寻找一个消息处理函数

MFC应用程序创建窗口的过程

1.PreCreateWindow() 该函数是一个重载函数，在窗口被创建前，可以在该重载函数中改变创建参数

(可以设置窗口风格等等)

2.PreSubclassWindow() 这也是一个重载函数，允许首先子分类一个窗口

3.OnGetMinMaxInfo() 该函数为消息响应函数，响应的是WM_GETMINMAXINFO消息，允许设置窗口的最大或者

最小尺寸

4.OnNcCreate() 该函数也是一个消息响应函数，响应WM_NCCREATE消息，发送消息以告诉窗口的客户区

即将被创建

5.OnNcCalcSize() 该函数也是消息响应函数,响应WM_NCCALCSIZE消息，作用是允许改变窗口客户区大小

6.OnCreate() 该函数也是一个消息响应函数，响应WM_CREATE消息，发送消息告诉一个窗口已经被创建

7.OnSize() 该函数也是一个消息响应函数，响应WM_SIZE消息，发送该消息以告诉该窗口大小已经

发生变化

8.OnMove() 消息响应函数，响应WM_MOVE消息，发送此消息说明窗口在移动

9.OnChildNotify() 该函数为重载函数，作为部分消息映射被调用，告诉父窗口即将被告知一个窗口刚刚被

创建

MFC应用程序关闭窗口的顺序(非模态窗口)

1.OnClose() 消息响应函数，响应窗口的WM_CLOSE消息，当关闭按钮被单击的时候发送此消息

2.OnDestroy() 消息响应函数，响应窗口的WM_DESTROY消息，当一个窗口将被销毁时，发送此消息

3.OnNcDestroy() 消息响应函数，响应窗口的WM_NCDESTROY消息，当一个窗口被销毁后发送此消息

4.PostNcDestroy() 重载函数，作为处理OnNcDestroy()函数的最后动作，被CWnd调用

MFC应用程序中打开模式对话框的函数调用顺序

1.DoModal() 重载函数，重载DoModal()成员函数

2.PreSubclassWindow() 重载函数，允许首先子分类一个窗口

3.OnCreate() 消息响应函数，响应WM_CREATE消息，发送此消息以告诉一个窗口已经被创建

4.OnSize() 消息响应函数，响应WM_SIZE消息，发送此消息以告诉窗口大小发生变化

5.OnMove() 消息响应函数，响应WM_MOVE消息，发送此消息，以告诉窗口正在移动

6.OnSetFont() 消息响应函数，响应WM_SETFONT消息，发送此消息，以允许改变对话框中控件的字体

7.OnInitDialog() 消息响应函数，响应WM_INITDIALOG消息，发送此消息以允许初始化对话框中的控件，

或者是创建新控件

8.OnShowWindow() 消息响应函数，响应WM_SHOWWINDOW消息，该函数被ShowWindow()函数调用

9.OnCtlColor() 消息响应函数，响应WM_CTLCOLOR消息，被父窗口发送已改变对话框或对话框上面控件

的颜色

10. OnChildNotify() 重载函数，作为WM_CTLCOLOR消息的结果发送

MFC应用程序中关闭模式对话框的顺序

1.OnClose() 消息响应函数，响应WM_CLOSE消息，当"关闭"按钮被单击的时候，该函数被调用

2.OnKillFocus() 消息响应函数，响应WM_KILLFOCUS消息，当一个窗口即将失去键盘输入焦点以前被发送

3.OnDestroy() 消息响应函数，响应WM_DESTROY消息，当一个窗口即将被销毁时，被发送

4.OnNcDestroy() 消息响应函数，响应WM_NCDESTROY消息，当一个窗口被销毁以后被发送

5.PostNcDestroy() 重载函数，作为处理OnNcDestroy()函数的最后动作被CWnd调用

打开无模式对话框的顺序

1.PreSubclassWindow() 重载函数，允许用户首先子分类一个窗口

2.OnCreate() 消息响应函数，响应WM_CREATE消息，发送此消息以告诉一个窗口已经被创建

3.OnSize() 消息响应函数，响应WM_SIZE消息，发送此消息以告诉窗口大小发生变化

4.OnMove() 消息响应函数，响应WM_MOVE消息，发送此消息以告诉窗口正在移动

5.OnSetFont() 消息响应函数，响应WM_SETFONT消息，发送此消息以允许改变对话框中控件的字体

以上这些的执行都是按给定的顺序执行！

---