1,451
社区成员
发帖
与我相关
我的任务
分享
'System.Windows.Forms.Button
Protected Friend Overrides Function ProcessMnemonic(ByVal charCode As Char) As Boolean
'下面三个判断分别为:用快捷键、可以处理快捷键、是快捷字符(与 Alt 无关)'
If ((MyBase.UseMnemonic AndAlso Me.CanProcessMnemonic) AndAlso Control.IsMnemonic(charCode, Me.Text)) Then
Me.PerformClick
Return True
End If
Return MyBase.ProcessMnemonic(charCode)
End Function
Public Sub PerformClick()
If MyBase.CanSelect Then
Dim flag As Boolean
'这里是当前有焦点,还是和 Alt 无关'
Dim flag2 As Boolean = MyBase.ValidateActiveControl(flag)
If (Not MyBase.ValidationCancelled AndAlso (flag2 OrElse flag)) Then
MyBase.ResetFlagsandPaint
Me.OnClick(EventArgs.Empty)
End If
End If
End Sub