' ******************************************************
' カラム追加
' ******************************************************
Public Sub AddColumn(ByVal strName As String, ByVal strTitle As String)

	Me.Columns.Add(strName, strTitle)

End Sub

' ******************************************************
' カラム追加
' ******************************************************
Public Sub AddColumn(ByVal strName As String, _
ByVal strTitle As String, ByVal nType As lightbox.LboxColumnType)

	Dim nIndex As Integer

	If nType = lightbox.LboxColumnType.LboxColumnType_CheckBox Then
		Dim column As New System.Windows.Forms.DataGridViewCheckBoxColumn
		Me.Columns.Add(column)
		nIndex = Me.ColumnCount
		Me.Columns(nIndex - 1).HeaderText = strTitle
		Me.Columns(nIndex - 1).Name = strName
	End If
	If nType = lightbox.LboxColumnType.LboxColumnType_Button Then
		Dim column As New System.Windows.Forms.DataGridViewButtonColumn
		column.UseColumnTextForButtonValue = False
		column.Text = strName
		Me.Columns.Add(column)
		nIndex = Me.ColumnCount
		Me.Columns(nIndex - 1).HeaderText = strTitle
		Me.Columns(nIndex - 1).Name = strName
	End If

	If nType = lightbox.LboxColumnType.LboxColumnType_Link Then
		Dim column As New System.Windows.Forms.DataGridViewLinkColumn
		column.UseColumnTextForLinkValue = False
		column.Text = strName
		Me.Columns.Add(column)
		nIndex = Me.ColumnCount
		Me.Columns(nIndex - 1).HeaderText = strTitle
		Me.Columns(nIndex - 1).Name = strName
	End If

End Sub

Public Enum LboxColumnType

	LboxColumnType_CheckBox = 1
	LboxColumnType_Button = 2
	LboxColumnType_Link = 3

End Enum