Question

VB6怎么为按钮设置热键

VB6怎么为按钮设置热键，简单点最好！

Answer 1

重写窗体的ProcessCmdKey：

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
Select Case keyData
Case Keys.F1
MessageBox.Show("F1")
Me.Button1.PerformClick()
Case Keys.F2
MessageBox.Show("F2")
Button2_Click(Nothing, Nothing)
Case Keys.F4
MessageBox.Show("F4")
Me.Close()
End Select

Return MyBase.ProcessCmdKey(msg, keyData)

End Function