怎样给DataGrid增加一个新的事件？
怎样给DataGrid增加一个新的事件？例如HelpEventArgs中可用SBSdgReceDetail.HelpRequested ,当按F1时会触发事件.
Private Sub SBSdgReceDetail_help(ByVal sender As Object, ByVal e As System.Windows.Forms.HelpEventArgs) Handles SBSdgReceDetail.HelpRequested
MsgBox(SBSdgReceDetail.CurrentCell.ColumnNumber.ToString)
End Sub
那么怎样才可以增加按F4时会触发事件?
[解决办法]
Public Event KeysF4()
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F4 Then
'按F4键--引发事件。
RaiseEvent KeysF4()
End If
End Sub
Public sGrps As Point
Public Sub Shell_help()
'执行事件处理
Dim lp As DataGridView.HitTestInfo
lp = DataGridView2.HitTest(sGrps.X, sGrps.Y)
If lp.ColumnIndex = -1 Or lp.RowIndex = -1 Then MsgBox( "超出单元格范围!!! ") : Exit Sub
MsgBox( "单元格行列及座标。 " & lp.ToString & "X= " & lp.ColumnX & " Y= " & lp.RowY)
End Sub
Private Sub DataGridView2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView2.MouseMove
'获取鼠标座标。
sGrps = New Point(e.X, e.Y)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler Me.KeysF4, AddressOf Shell_help
End Sub
