LboxGrid イベント

  EnterKey



Enter キーで発生
( EnterToTab の処理内で呼び出しています )

  
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
  












  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ