level 5
Public Class mypanel
Inherits Panel
Public Shadows Delegate Sub KeyPress(ByVal sender As Object, ByVal e As Keys)
Public Event keypressevent(ByVal sender As Object, ByVal e As Keys)
Protected Overridable Sub onMaimsg(ByVal e As Keys)
RaiseEvent keypressevent(Me, e)
End Sub
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
If keyboard Then Exit Function
If keyData = Keys.Right Or _
keyData = Keys.Left Or _
keyData = Keys.Up Or _
keyData = Keys.Down Or _
keyData = Keys.Pause Then
onMaimsg(keyData)
Return True
Else
Return False
End If
End FunctionEnd Class
/////当中的这句是什么意思
Public Shadows Delegate Sub KeyPress(ByVal sender As Object, ByVal e As Keys)
2011年11月01日 11点11分