1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Public Class MyToolStripComboBox
Inherits ToolStripComboBox
Public Event ev_Validation()
Public Sub New()
MyBase.new()
End Sub
Protected Overrides Function processcmdkey(ByRef m As Message, _
ByVal keyData As Keys) As Boolean
Select Case CInt(keyData)
Case 393234 'Alt+GR'
Return True
Case 13 'Enter'
RaiseEvent ev_Validation()
Return True 'car sinon le message est envoyé 2 fois'
End Select
Return False 'False valide le message, true annule le message'
End Function
End Class |
Partager