Public Event EnterKey(ByVal e As lightbox.EnterKeyEventArgs)
Public Class EnterKeyEventArgs
Inherits System.EventArgs
Public EnterToTab As Boolean
Public Shift As Boolean
Public Alt As Boolean
Public Control As Boolean
End Class
EnterToTab : EnterToTab が設定されているかどうか
Shift : Shift キーが押されているかどうか
Alt : Alt キーが押されているかどうか
Control : Control キーが押されているかどうか
CellClickButton
ボタン型のカラムでボタンがクリックされると発生
sender は、カレントのセルのオブジェクト
Public Event CellClickButton(ByVal sender As DataGridViewCell, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
Private Sub LboxGrid_CellContentClick(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles MyBase.CellContentClick
If TypeOf Me.Columns(e.ColumnIndex) Is DataGridViewButtonColumn Then
If e.RowIndex <> -1 Then
RaiseEvent CellClickButton(Me.CurrentCell, e)
Else
RaiseEvent CellClickButtonHeader(Me.CurrentCell, e)
End If
End If
If TypeOf Me.Columns(e.ColumnIndex) Is DataGridViewLinkColumn Then
If e.RowIndex <> -1 Then
RaiseEvent CellClickLink(Me.CurrentCell, e)
Else
RaiseEvent CellClickLinkHeader(Me.CurrentCell, e)
End If
End If
End Sub
↓使用例
' ******************************************************' セル内のボタンがクリックされた' ******************************************************
Private Sub LboxGrid1_CellClickButton(ByVal sender As System.Windows.Forms.DataGridViewCell, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles LboxGrid1.CellClickButton
MessageBox.Show(sender.Value & "|" & sender.Tag)
End Sub
CellClickLink
リンク型のカラムでボタンがクリックされると発生
sender は、カレントのセルのオブジェクト
Public Event CellClickLink(ByVal sender As DataGridViewCell, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
Private Sub LboxGrid_CellContentClick(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles MyBase.CellContentClick
If TypeOf Me.Columns(e.ColumnIndex) Is DataGridViewButtonColumn Then
If e.RowIndex <> -1 Then
RaiseEvent CellClickButton(Me.CurrentCell, e)
Else
RaiseEvent CellClickButtonHeader(Me.CurrentCell, e)
End If
End If
If TypeOf Me.Columns(e.ColumnIndex) Is DataGridViewLinkColumn Then
If e.RowIndex <> -1 Then
RaiseEvent CellClickLink(Me.CurrentCell, e)
Else
RaiseEvent CellClickLinkHeader(Me.CurrentCell, e)
End If
End If
End Sub
↓使用例
' ******************************************************' セル内のリンクボタンがクリックされた' ******************************************************
Private Sub LboxGrid1_CellClickLink(ByVal sender As System.Windows.Forms.DataGridViewCell, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles LboxGrid1.CellClickLink
MessageBox.Show(sender.Value & "|" & sender.Tag)
End Sub
