�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌサ�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽﾌ概�ｿｽv�ｿｽ�ｿｽ
DataGridView�ｿｽﾌ派�ｿｽ�ｿｽ�ｿｽN�ｿｽ�ｿｽ�ｿｽX�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄ便暦ｿｽ�ｿｽﾈ��ｿｽ�ｿｽ\�ｿｽb�ｿｽh�ｿｽ�ｿｽﾇ会ｿｽ�ｿｽ�ｿｽ�ｿｽﾄ行�ｿｽ�ｿｽ�ｿｽﾆ搾ｿｽ�ｿｽ@�ｿｽ\�ｿｽ�ｿｽDataGridView�ｿｽ�ｿｽ�ｿｽo�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
.NET�ｿｽﾅ使�ｿｽp�ｿｽ�ｿｽ�ｿｽ�ｿｽt�ｿｽ�ｿｽ�ｿｽb�ｿｽN�ｿｽX�ｿｽO�ｿｽ�ｿｽ�ｿｽb�ｿｽh(FlexGrid)�ｿｽﾌ托ｿｽ\�ｿｽI�ｿｽﾈ托ｿｽ�ｿｽﾝ？�ｿｽﾅゑｿｽ�ｿｽ�ｿｽDataGridView�ｿｽﾈので、�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ便暦ｿｽ�ｿｽ�ｿｽ
�ｿｽ�ｿｽ�ｿｽ\�ｿｽb�ｿｽh�ｿｽ�ｿｽﾇ会ｿｽ�ｿｽ�ｿｽ�ｿｽﾄ��ｿｽ�ｿｽC�ｿｽo�ｿｽ�ｿｽ�ｿｽﾉ搾ｿｽ�ｿｽ�ｿｽt�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽ蛯､�ｿｽB�ｿｽi�ｿｽﾆ鯉ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽDataGridView�ｿｽﾌ標�ｿｽ�ｿｽ�ｿｽﾅ趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄ欲�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌでゑｿｽ�ｿｽ�ｿｽ�ｿｽj
�ｿｽ�ｿｽ�ｿｽﾌサ�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽ�ｿｽDataGridView�ｿｽﾌ使�ｿｽp�ｿｽ�ｿｽ�ｿｽ@�ｿｽﾌサ�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽﾆゑｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽg�ｿｽp�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾆ思�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB

�ｿｽ�ｿｽ�ｿｽﾌサ�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽﾍ以会ｿｽ�ｿｽﾌ機�ｿｽ\�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB
(�ｿｽP)DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽﾖ保托ｿｽ�ｿｽ^�ｿｽﾇ搾ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ
(�ｿｽQ)DataGridView�ｿｽﾌ各�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾖの難ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�制鯉ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ
(�ｿｽR)DataGridView�ｿｽ�ｿｽCtrl-V�ｿｽL�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉク�ｿｽ�ｿｽ�ｿｽb�ｿｽv�ｿｽ{�ｿｽ[�ｿｽh�ｿｽ�ｿｽ�ｿｽ�ｿｽ\�ｿｽ�ｿｽt�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ
(�ｿｽS)DataGridView�ｿｽ�ｿｽDel�ｿｽ�ｿｽBackspace�ｿｽL�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉセ�ｿｽ�ｿｽ�ｿｽﾌ難ｿｽ�ｿｽe�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ

�ｿｽ�ｿｽ�ｿｽ�ｿｽﾈ会ｿｽ�ｿｽﾌ機�ｿｽ\�ｿｽﾌ趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ\�ｿｽ閧ｵ�ｿｽﾄゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB
(�ｿｽP)DataGridView�ｿｽﾌコ�ｿｽ�ｿｽ�ｿｽ{�ｿｽ{�ｿｽb�ｿｽN�ｿｽX(ComboBox)�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽ_�ｿｽE�ｿｽ�ｿｽ(F4)�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ
(�ｿｽQ)DataGridView�ｿｽﾌセ�ｿｽ�ｿｽ�ｿｽﾌ難ｿｽ�ｿｽe�ｿｽ�ｿｽCSV�ｿｽ`�ｿｽ�ｿｽ�ｿｽﾅ保托ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ
(�ｿｽR)DataGridView�ｿｽﾌセ�ｿｽ�ｿｽ�ｿｽﾌ難ｿｽ�ｿｽe�ｿｽ�ｿｽHTML�ｿｽ`�ｿｽ�ｿｽ�ｿｽﾅ保托ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ
(�ｿｽS)DataGridView�ｿｽﾌセ�ｿｽ�ｿｽ�ｿｽﾌ難ｿｽ�ｿｽe�ｿｽ�ｿｽEXCEL�ｿｽ`�ｿｽ�ｿｽ�ｿｽﾅ保托ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ
(�ｿｽT)DataGridView�ｿｽﾌセ�ｿｽ�ｿｽ�ｿｽﾌ難ｿｽ�ｿｽe�ｿｽ�ｿｽDB(ACCESS�ｿｽ�ｿｽ)�ｿｽﾉ保托ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ(DB�ｿｽT�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽﾆの組�ｿｽﾝ搾ｿｽ�ｿｽ�せ)
(�ｿｽU)DataGridView�ｿｽﾌセ�ｿｽ�ｿｽ�ｿｽﾌ難ｿｽ�ｿｽe�ｿｽ�ｿｽDB(ACCESS�ｿｽ�ｿｽ)�ｿｽ�ｿｽ�ｿｽ�ｿｽﾇ搾ｿｽ�ｿｽﾞゑｿｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ(DB�ｿｽT�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽﾆの組�ｿｽﾝ搾ｿｽ�ｿｽ�せ)

�ｿｽ�ｿｽ�ｿｽﾈみに、�ｿｽ�ｿｽ�ｿｽ�ｿｽDataGridViewPlus�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾆ便暦ｿｽ�ｿｽﾉゑｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽT�ｿｽC�ｿｽg�ｿｽ�ｿｽ�ｿｽﾐ介し�ｿｽﾜゑｿｽ�ｿｽB
DataGridView�ｿｽﾅコ�ｿｽs�ｿｽ[�ｿｽ�ｿｽ�ｿｽy�ｿｽ[�ｿｽX�ｿｽg�ｿｽ�ｿｽ�ｿｽﾂ能�ｿｽﾉゑｿｽ�ｿｽ�ｿｽ(�ｿｽo�ｿｽC�ｿｽ�ｿｽ�ｿｽh�ｿｽﾎ会ｿｽ)
DataGridView CSV�ｿｽo�ｿｽ�ｿｽ(C#/VB.NET)
DataGridView CSV�ｿｽﾇ搾ｿｽ(C#/VB.NET)
DataGridView EXCEL�ｿｽo�ｿｽ�ｿｽ(C#/VB.NET)
DataGridView EXCEL�ｿｽﾇ搾ｿｽ(C#/VB.NET)
DataGridView HTML�ｿｽo�ｿｽ�ｿｽ(C#/VB.NET)

C#.NET�ｿｽﾅはゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽuDataGridView�ｿｽﾉ便暦ｿｽ�ｿｽﾈ��ｿｽ�ｿｽ\�ｿｽb�ｿｽh�ｿｽ�ｿｽﾇ会ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽT�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ(C#.NET)�ｿｽv�ｿｽﾅゑｿｽ�ｿｽB
�ｿｽﾜゑｿｽ�ｿｽADataGridView�ｿｽ�ｿｽ�ｿｽg�ｿｽp�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾅよく�ｿｽg�ｿｽ�ｿｽ�ｿｽZ(�ｿｽ�ｿｽ�ｿｽ�ｿｽ)�ｿｽ�ｿｽ DataGridView�ｿｽﾌ擾ｿｽ�ｿｽZ �ｿｽﾅゑｿｽ�ｿｽB

�ｿｽ�ｿｽ�ｿｽﾌサ�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽg�ｿｽp�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ@(VB2005�ｿｽﾌ場合)�ｿｽﾍ以会ｿｽ�ｿｽﾌ通ゑｿｽﾅゑｿｽ�ｿｽB
(�ｿｽP)Form1�ｿｽ�ｿｽSystem.Windows.Forms.DataGridView�ｿｽ�ｿｽﾇ会ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
(�ｿｽQ)Form1.Designer.vb�ｿｽ�ｿｽSystem.Windows.Forms.DataGridView�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽDataGridViewPlus�ｿｽﾉ変更�ｿｽ�ｿｽ�ｿｽ�ｿｽB
(�ｿｽ�ｿｽ)VB2010�ｿｽ�ｿｽForm1.Designer.vb�ｿｽﾌ抵ｿｽ�ｿｽﾌソ�ｿｽ[�ｿｽX�ｿｽ�ｿｽ\�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉは会ｿｽ�ｿｽ轤ｩ�ｿｽﾌ設定が�ｿｽK�ｿｽv�ｿｽﾈよう�ｿｽﾅゑｿｽ�ｿｽB�ｿｽB�ｿｽB

Imports System.IO
Imports System.Text
Imports System.Xml.Serialization
Imports System.Windows.Forms

Public Class DataGridViewPlus
    Inherits System.Windows.Forms.DataGridView

    ' ----------------------------------------------------------------------------------
    ' DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽﾖ保托ｿｽ�ｿｽ^�ｿｽﾇ搾ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
    ' ----------------------------------------------------------------------------------
    ''' <summary>
    ''' DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽXML�ｿｽ`�ｿｽ�ｿｽ�ｿｽﾅシ�ｿｽ�ｿｽ�ｿｽA�ｿｽ�ｿｽ�ｿｽC�ｿｽY�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟのク�ｿｽ�ｿｽ�ｿｽX
    ''' </summary>
    ''' <remarks></remarks>
    Public Class ColWidths
        ''' <summary>
        ''' �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽs
        ''' </summary>
        Public Widths As Integer()
    End Class

    ''' <summary>
    ''' DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽﾖ保托ｿｽ
    ''' </summary>
    ''' <remarks>DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽXML�ｿｽ`�ｿｽ�ｿｽ�ｿｽﾅシ�ｿｽ�ｿｽ�ｿｽA�ｿｽ�ｿｽ�ｿｽC�ｿｽY</remarks>
    Public Sub SaveColWidths()
        Try
            ' EXE�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽ�ｿｽPATH
            Dim ExePath As String = System.AppDomain.CurrentDomain.BaseDirectory
            ' XML�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽ�ｿｽPATH
            Dim XmlPath As String = ExePath & "\" & Me.Parent.Name & "_" & Me.Name & ".xml"
            ' XML�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽI�ｿｽ[�ｿｽv�ｿｽ�ｿｽ
            Dim sw As StreamWriter = New StreamWriter(XmlPath, False, Encoding.Default)
            Try
                ' �ｿｽV�ｿｽ�ｿｽ�ｿｽA�ｿｽ�ｿｽ�ｿｽC�ｿｽU�ｿｽ[
                Dim serializer As New XmlSerializer(GetType(ColWidths))
                ' DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ謫ｾ
                Dim colw As New ColWidths
                ReDim colw.Widths(Me.Columns.Count - 1)
                For i As Integer = 0 To Me.Columns.Count - 1
                    colw.Widths(i) = Me.Columns(i).Width
                Next
                ' XML�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽﾛ托ｿｽ
                serializer.Serialize(sw, colw)
            Catch ex As Exception
            Finally
                ' XML�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽN�ｿｽ�ｿｽ�ｿｽ[�ｿｽY
                If sw Is Nothing = False Then sw.Close()
            End Try
        Catch ex As Exception
        End Try
    End Sub

    ''' <summary>
    ''' DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽO�ｿｽ�ｿｽﾛ托ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾇ搾ｿｽ
    ''' </summary>
    ''' <remarks>DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽXML�ｿｽ`�ｿｽ�ｿｽ�ｿｽﾅデ�ｿｽV�ｿｽ�ｿｽ�ｿｽA�ｿｽ�ｿｽ�ｿｽC�ｿｽY</remarks>
    Public Sub ReadColWidths()
        Try
            ' EXE�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽ�ｿｽPATH
            Dim ExePath As String = System.AppDomain.CurrentDomain.BaseDirectory
            ' XML�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽ�ｿｽPATH
            Dim XmlPath As String = ExePath & "\" & Me.Parent.Name & "_" & Me.Name & ".xml"
            ' XML�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽI�ｿｽ[�ｿｽv�ｿｽ�ｿｽ
            Dim sr As StreamReader = New StreamReader(XmlPath, Encoding.Default)
            Try
                ' �ｿｽV�ｿｽ�ｿｽ�ｿｽA�ｿｽ�ｿｽ�ｿｽC�ｿｽU�ｿｽ[
                Dim serializer As New XmlSerializer(GetType(ColWidths))
                ' XML�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽﾇ搾ｿｽ
                Dim colw As New ColWidths
                colw = CType(serializer.Deserialize(sr), ColWidths)
                ' DataGridView�ｿｽﾉカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾝ抵ｿｽ
                For i As Integer = 0 To Me.Columns.Count - 1
                    Me.Columns(i).Width = colw.Widths(i)
                Next
            Catch ex As Exception
            Finally
                ' XML�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽN�ｿｽ�ｿｽ�ｿｽ[�ｿｽY
                If sr Is Nothing = False Then sr.Close()
            End Try
        Catch ex As Exception
        End Try
    End Sub
    ' ----------------------------------------------------------------------------------
    ' DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽﾖ保托ｿｽ�ｿｽ^�ｿｽﾇ搾ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
    ' ----------------------------------------------------------------------------------

    ' ----------------------------------------------------------------------------------
    ' DataGridView�ｿｽﾌ各�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾖの難ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�制鯉ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
    ' ----------------------------------------------------------------------------------
    ''' <summary>
    ''' �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾖの難ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽw�ｿｽ閧ｷ�ｿｽ驍ｽ�ｿｽﾟの配�ｿｽ�ｿｽ
    ''' </summary>
    ''' <remarks>ColumnChars(0)="1234567890"</remarks>
    Public ColumnChars() As String
    ''' <summary>
    ''' �ｿｽﾒ集�ｿｽ�ｿｽ�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾔ搾ｿｽ
    ''' </summary>
    ''' <remarks></remarks>
    Private _editingColumn As Integer
    ''' <summary>
    ''' �ｿｽﾒ集�ｿｽ�ｿｽ�ｿｽ�ｿｽTextBoxEditingControl
    ''' </summary>
    ''' <remarks></remarks>
    Private _editingCtrl As DataGridViewTextBoxEditingControl

    ''' <summary>
    ''' �ｿｽZ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾒ集�ｿｽ�ｿｽ�ｿｽﾉなゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ擾ｿｽ�ｿｽ�ｿｽ
    ''' </summary>
    ''' <param name="sender">�ｿｽC�ｿｽx�ｿｽ�ｿｽ�ｿｽg�ｿｽﾌ費ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ</param>
    ''' <param name="e">�ｿｽC�ｿｽx�ｿｽ�ｿｽ�ｿｽg�ｿｽﾌ擾ｿｽ�ｿｽ</param>
    ''' <remarks>�ｿｽﾒ集�ｿｽ�ｿｽ�ｿｽ�ｿｽTextBoxEditingControl�ｿｽ�ｿｽKeyPress�ｿｽC�ｿｽx�ｿｽ�ｿｽ�ｿｽg�ｿｽﾝ抵ｿｽ</remarks>
    Private Sub DataGridViewPlus_EditingControlShowing( _
        ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) _
        Handles Me.EditingControlShowing
        ' �ｿｽﾒ集�ｿｽ�ｿｽ�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾔ搾ｿｽ�ｿｽ�ｿｽﾛ托ｿｽ
        _editingColumn = CType(sender, DataGridView).CurrentCellAddress.X
        Try
            ' �ｿｽﾒ集�ｿｽ�ｿｽ�ｿｽ�ｿｽTextBoxEditingControl�ｿｽ�ｿｽKeyPress�ｿｽC�ｿｽx�ｿｽ�ｿｽ�ｿｽg�ｿｽﾝ抵ｿｽ
            _editingCtrl = CType(e.Control, DataGridViewTextBoxEditingControl)
            AddHandler _editingCtrl.KeyPress, AddressOf DataGridViewPlus_CellKeyPress
        Catch
        End Try
    End Sub

    ''' <summary>
    ''' �ｿｽZ�ｿｽ�ｿｽ�ｿｽﾌ編集�ｿｽ�ｿｽ�ｿｽI�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ擾ｿｽ�ｿｽ�ｿｽ
    ''' </summary>
    ''' <param name="sender">�ｿｽC�ｿｽx�ｿｽ�ｿｽ�ｿｽg�ｿｽﾌ費ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ</param>
    ''' <param name="e">�ｿｽC�ｿｽx�ｿｽ�ｿｽ�ｿｽg�ｿｽﾌ擾ｿｽ�ｿｽ</param>
    ''' <remarks>�ｿｽﾒ集�ｿｽ�ｿｽ�ｿｽ�ｿｽTextBoxEditingControl�ｿｽ�ｿｽ�ｿｽ�ｿｽKeyPress�ｿｽC�ｿｽx�ｿｽ�ｿｽ�ｿｽg�ｿｽ�除</remarks>
    Private Sub DataGridViewPlus_CellEndEdit(ByVal sender As Object, _
        ByVal e As DataGridViewCellEventArgs) Handles Me.CellEndEdit
        If _editingCtrl Is Nothing = False Then
            ' �ｿｽﾒ集�ｿｽ�ｿｽ�ｿｽ�ｿｽTextBoxEditingControl�ｿｽ�ｿｽ�ｿｽ�ｿｽKeyPress�ｿｽC�ｿｽx�ｿｽ�ｿｽ�ｿｽg�ｿｽ�除
            RemoveHandler _editingCtrl.KeyPress, AddressOf DataGridViewPlus_CellKeyPress
            _editingCtrl = Nothing
        End If
    End Sub

    ''' <summary>
    ''' �ｿｽﾒ集�ｿｽ�ｿｽ�ｿｽ�ｿｽTextBoxEditingControl�ｿｽ�ｿｽKeyPress�ｿｽﾌ擾ｿｽ�ｿｽ�ｿｽ
    ''' </summary>
    ''' <param name="sender">�ｿｽC�ｿｽx�ｿｽ�ｿｽ�ｿｽg�ｿｽﾌ費ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ</param>
    ''' <param name="e">�ｿｽC�ｿｽx�ｿｽ�ｿｽ�ｿｽg�ｿｽﾌ擾ｿｽ�ｿｽ</param>
    ''' <remarks>�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ費ｿｽ�ｿｽ�ｿｽ</remarks>
    Private Sub DataGridViewPlus_CellKeyPress( _
        ByVal sender As Object, ByVal e As KeyPressEventArgs)
        ' �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾖの難ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽw�ｿｽ閧ｷ�ｿｽ驍ｽ�ｿｽﾟの配�ｿｽ�が指�ｿｽ閧ｳ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ驍ｩ�ｿｽ`�ｿｽF�ｿｽb�ｿｽN
        If IsArray(ColumnChars) Then
            ' �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾖの難ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽw�ｿｽ閧ｷ�ｿｽ驍ｽ�ｿｽﾟの配�ｿｽ�数チ�ｿｽF�ｿｽb�ｿｽN
            If ColumnChars.GetLength(0) - 1 >= _editingColumn Then
                ' �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾖの難ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽw�ｿｽ閧ｳ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ驍ｩ�ｿｽ`�ｿｽF�ｿｽb�ｿｽN
                If ColumnChars(_editingColumn) <> "" Then
                    ' �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾖの難ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ`�ｿｽF�ｿｽb�ｿｽN
                    If InStr(ColumnChars(_editingColumn), e.KeyChar) <= 0 AndAlso _
                       e.KeyChar <> Chr(Keys.Back) Then
                        ' �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾖの難ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾅは厄ｿｽ�ｿｽ�ｿｽ�ｿｽﾌで厄ｿｽ�ｿｽ�ｿｽ
                        e.Handled = True
                    End If
                End If
            End If
        End If
    End Sub
    ' ----------------------------------------------------------------------------------
    ' DataGridView�ｿｽﾌ各�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾖの難ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�制鯉ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
    ' ----------------------------------------------------------------------------------

    ' ----------------------------------------------------------------------------------
    ' DataGridView�ｿｽ�ｿｽCtrl-V�ｿｽL�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉク�ｿｽ�ｿｽ�ｿｽb�ｿｽv�ｿｽ{�ｿｽ[�ｿｽh�ｿｽ�ｿｽ�ｿｽ�ｿｽ\�ｿｽ�ｿｽt�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
    ' DataGridView�ｿｽ�ｿｽDel�ｿｽ�ｿｽBackspace�ｿｽL�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉセ�ｿｽ�ｿｽ�ｿｽﾌ難ｿｽ�ｿｽe�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
    ' ----------------------------------------------------------------------------------
    Private Sub DataGridViewPlus_KeyDown( _
        ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
        Handles Me.KeyDown
        Dim dgv As DataGridView = CType(sender, DataGridView)
        Dim x As Integer = dgv.CurrentCellAddress.X
        Dim y As Integer = dgv.CurrentCellAddress.Y
        If e.KeyCode = Keys.Delete Or e.KeyCode = Keys.Back Then
            ' �ｿｽZ�ｿｽ�ｿｽ�ｿｽﾌ難ｿｽ�ｿｽe�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
            dgv(x, y).Value = ""
        ElseIf (e.Modifiers And Keys.Control) = Keys.Control And e.KeyCode = Keys.V Then
            ' �ｿｽN�ｿｽ�ｿｽ�ｿｽb�ｿｽv�ｿｽ{�ｿｽ[�ｿｽh�ｿｽﾌ難ｿｽ�ｿｽe�ｿｽ�ｿｽ�ｿｽ謫ｾ
            Dim clipText As String = Clipboard.GetText()
            ' �ｿｽ�ｿｽ�ｿｽs�ｿｽ�ｿｽﾏ奇ｿｽ
            clipText = clipText.Replace(vbCrLf, vbLf)
            clipText = clipText.Replace(vbCr, vbLf)
            ' �ｿｽ�ｿｽ�ｿｽs�ｿｽﾅ包ｿｽ�ｿｽ�ｿｽ
            Dim lines() As String = clipText.Split(vbLf)

            Dim r As Integer
            Dim nflag As Boolean = True
            For r = 0 To lines.GetLength(0) - 1
                ' �ｿｽﾅ鯉ｿｽ�ｿｽNULL�ｿｽs�ｿｽ�ｿｽ�ｿｽR�ｿｽs�ｿｽ[�ｿｽ�ｿｽ�ｿｽ驍ｩ�ｿｽﾇゑｿｽ�ｿｽ�ｿｽ
                If r >= lines.GetLength(0) - 1 And _
                   "".Equals(lines(r)) And nflag = False Then Exit For
                If "".Equals(lines(r)) = False Then nflag = False

                ' �ｿｽ^�ｿｽu�ｿｽﾅ包ｿｽ�ｿｽ�ｿｽ
                Dim vals() As String = lines(r).Split(vbTab)

                ' �ｿｽe�ｿｽZ�ｿｽ�ｿｽ�ｿｽﾌ値�ｿｽ�ｿｽﾝ抵ｿｽ
                Dim c As Integer = 0
                Dim c2 As Integer = 0
                For c = 0 To vals.GetLength(0) - 1
                    ' �ｿｽZ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾝゑｿｽ�ｿｽﾈゑｿｽ�ｿｽ�ｿｽﾎ貼�ｿｽ�ｿｽt�ｿｽ�ｿｽ�ｿｽﾈゑｿｽ
                    If Not (x + c2 >= 0 And x + c2 < dgv.ColumnCount And _
                            y + r >= 0 And y + r < dgv.RowCount) Then
                        Continue For
                    End If
                    ' �ｿｽ�ｿｽ\�ｿｽ�ｿｽ�ｿｽZ�ｿｽ�ｿｽ�ｿｽﾉは貼�ｿｽ�ｿｽt�ｿｽ�ｿｽ�ｿｽﾈゑｿｽ
                    If dgv(x + c2, y + r).Visible = False Then
                        c = c - 1
                        Continue For
                    End If
                    '' �ｿｽ\�ｿｽ�ｿｽt�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ(�ｿｽ�ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ`�ｿｽF�ｿｽb�ｿｽN�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ趣ｿｽ)------------
                    '' �ｿｽs�ｿｽﾇ会ｿｽ�ｿｽ�ｿｽ�ｿｽ[�ｿｽh&(�ｿｽﾅ終�ｿｽs�ｿｽﾌ趣ｿｽ�ｿｽﾍ行�ｿｽﾇ会ｿｽ)
                    'If y + r = dgv.RowCount - 1 And _
                    '   dgv.AllowUserToAddRows = True Then
                    '    dgv.RowCount = dgv.RowCount + 1
                    'End If
                    '' �ｿｽ\�ｿｽ�ｿｽt�ｿｽ�ｿｽ
                    'dgv(x + c2, y + r).Value = vals(c)
                    ' ------------------------------------------------------
                    ' �ｿｽ\�ｿｽ�ｿｽt�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ(�ｿｽ�ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ`�ｿｽF�ｿｽb�ｿｽN�ｿｽL�ｿｽ�ｿｽﾌ趣ｿｽ)------------
                    Dim pststr As String = ""
                    For i As Long = 0 To vals(c).Length - 1
                        _editingColumn = x + c2
                        Dim tmpe As KeyPressEventArgs = _
                            New KeyPressEventArgs(vals(c).Substring(i, 1))
                        tmpe.Handled = False
                        DataGridViewPlus_CellKeyPress(sender, tmpe)
                        If tmpe.Handled = False Then
                            pststr = pststr & vals(c).Substring(i, 1)
                        End If
                    Next
                    ' �ｿｽs�ｿｽﾇ会ｿｽ�ｿｽ�ｿｽ�ｿｽ[�ｿｽh�ｿｽ�ｿｽ�ｿｽﾅ終�ｿｽs�ｿｽﾌ趣ｿｽ�ｿｽﾍ行�ｿｽﾇ会ｿｽ
                    If y + r = dgv.RowCount - 1 And _
                       dgv.AllowUserToAddRows = True Then
                        dgv.RowCount = dgv.RowCount + 1
                    End If
                    ' �ｿｽ\�ｿｽ�ｿｽt�ｿｽ�ｿｽ
                    dgv(x + c2, y + r).Value = pststr
                    ' ------------------------------------------------------
                    ' �ｿｽ�ｿｽ�ｿｽﾌセ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
                    c2 = c2 + 1
                Next
            Next
        End If
    End Sub
    ' ----------------------------------------------------------------------------------
    ' DataGridView�ｿｽ�ｿｽCtrl-V�ｿｽL�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉク�ｿｽ�ｿｽ�ｿｽb�ｿｽv�ｿｽ{�ｿｽ[�ｿｽh�ｿｽ�ｿｽ�ｿｽ�ｿｽ\�ｿｽ�ｿｽt�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
    ' DataGridView�ｿｽ�ｿｽDel�ｿｽ�ｿｽBackspace�ｿｽL�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉセ�ｿｽ�ｿｽ�ｿｽﾌ難ｿｽ�ｿｽe�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ驍ｽ�ｿｽﾟの趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
    ' ----------------------------------------------------------------------------------

End Class

' �ｿｽ\�ｿｽ�ｿｽFrom1�ｿｽ�ｿｽSystem.Windows.Forms.DataGridView�ｿｽ�ｿｽﾇ会ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽB
' �ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽForm1.Designer.vb�ｿｽ�ｿｽSystem.Windows.Forms.DataGridView�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
' DataGridViewPlus�ｿｽﾉ変更�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽB
Public Class Form1

    Private Sub Form1_Load( _
        ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Load

        ' �ｿｽZ�ｿｽ�ｿｽ�ｿｽI�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ[�ｿｽh
        DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect
        ' �ｿｽs�ｿｽw�ｿｽb�ｿｽ_�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ
        DataGridView1.RowHeadersVisible = False
        ' �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽw�ｿｽb�ｿｽ_�ｿｽ[�ｿｽﾍ抵ｿｽ�ｿｽ�ｿｽ�ｿｽ\�ｿｽ�ｿｽ
        DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = _
            DataGridViewContentAlignment.MiddleCenter

        ' �ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ追会ｿｽ
        ' TextBox�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ追会ｿｽ
        DataGridView1.Columns.Add("aaa", "AAA")
        DataGridView1.Columns.Add("bbb", "BBB")
        'DataGridView1.Columns.Add("ccc", "CCC")
        ' ComboBox�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ追会ｿｽ
        Dim cbo As DataGridViewComboBoxColumn = New DataGridViewComboBoxColumn()
        cbo.HeaderText = "CCC"
        cbo.Name = "ccc"
        Dim i As Integer
        For i = 1 To 30
            cbo.Items.Add("" & i)
        Next
        DataGridView1.Columns.Add(cbo)

        ' �ｿｽe�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾒ集�ｿｽﾂ能�ｿｽﾉ設抵ｿｽ
        For i = 0 To DataGridView1.Columns.Count - 1
            DataGridView1.Columns(i).[ReadOnly] = False
        Next

        ' �ｿｽs�ｿｽﾌ追会ｿｽ
        DataGridView1.Rows.Clear()
        DataGridView1.Rows.Add()
        DataGridView1.Rows(0).Cells(0).Value = "11"
        DataGridView1.Rows(0).Cells(1).Value = "12"
        DataGridView1.Rows(0).Cells(2).Value = "13"
        DataGridView1.Rows.Add()
        DataGridView1.Rows(1).Cells(0).Value = "21"
        DataGridView1.Rows(1).Cells(1).Value = "22"
        DataGridView1.Rows(1).Cells(2).Value = "23"

        ' DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾇ搾ｿｽ
        DataGridView1.ReadColWidths()

        ' DataGridView�ｿｽﾌ難ｿｽ�ｿｽﾍ可能�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽw�ｿｽ�ｿｽ
        Dim ColumnChars() As String
        ReDim ColumnChars(DataGridView1.Columns.Count - 1)
        ColumnChars(0) = "abc"
        ColumnChars(1) = "123"
        ColumnChars(2) = ""
        DataGridView1.ColumnChars = ColumnChars
    End Sub

    Private Sub Form1_FormClosed( _
        ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) _
        Handles Me.FormClosed
        ' DataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾛ托ｿｽ
        DataGridView1.SaveColWidths()
    End Sub
End Class

�ｿｽEDataGridView�ｿｽﾌ行�ｿｽﾇ会ｿｽ�ｿｽ�ｿｽ�ｿｽ@
  DataGridView1.Rows.Add()

�ｿｽEDataGridView�ｿｽﾌ行�ｿｽ�除�ｿｽ�ｿｽ�ｿｽ@
  DataGridView1.Rows.RemoveAt(0)

�ｿｽEDataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�除�ｿｽ�ｿｽ�ｿｽ@(�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽw�ｿｽb�ｿｽ_�ｿｽ�ｿｽ�ｿｽ�除�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ)
  DataGridView1.Columns.RemoveAt(0)

�ｿｽEDataGridView�ｿｽﾌ全�ｿｽs�ｿｽ�除�ｿｽ�ｿｽ�ｿｽ@(�ｿｽ�ｿｽ�ｿｽﾓ：�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ趣ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ[�ｿｽh�ｿｽﾅ暦ｿｽO�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾂ能�ｿｽ�ｿｽ�ｿｽL�ｿｽ�ｿｽ)
  DataGridView.Rows.Clear()

�ｿｽEDataGridView�ｿｽﾌ指�ｿｽ�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾅソ�ｿｽ[�ｿｽg�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ@
  DataGridView1.Sort(DataGridView1.Columns(0), ListSortDirection.Ascending)

�ｿｽEDataGridView�ｿｽﾌ行�ｿｽ�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾍ禁止(ReadOnly)�ｿｽﾉゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ@
  DataGridView1.Rows(0).ReadOnly = True
  DataGridView1.Columns(0).ReadOnly = True

�ｿｽEDataGridView�ｿｽﾌ指�ｿｽ�ｿｽZ�ｿｽ�ｿｽ�ｿｽﾌ背�ｿｽi�ｿｽF�ｿｽ�ｿｽﾏ更�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ@
  DataGridView1.Rows(i).Cells("clmName").Style.BackColor = Color.LightSkyBlue

�ｿｽEDataGridView�ｿｽﾉ表�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ謫ｪ�ｿｽs(�ｿｽX�ｿｽN�ｿｽ�ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ先頭�ｿｽs)�ｿｽ�ｿｽﾏ更�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ@
  DataGridView1.FirstDisplayedScrollingRowIndex = 10

�ｿｽEDataGridView�ｿｽﾌス�ｿｽN�ｿｽ�ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽﾍ囲でセ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ\�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ驍ｩ�ｿｽm�ｿｽF�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ@
  If DataGridView1.Rows(4).Cells("clmName").Displayed Then

�ｿｽEDataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽg�ｿｽZ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ謫ｾ�ｿｽ^�ｿｽﾏ更�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ@
  Dim v as String = DataGridView1.CurrentCell.Value
  DataGridView1.CurrentCell = DataGridView1.Rows(4).Cells("clmName")

�ｿｽEDataGridView�ｿｽﾌカ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽg�ｿｽZ�ｿｽ�ｿｽ�ｿｽﾌフ�ｿｽH�ｿｽ[�ｿｽJ�ｿｽX�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ@
  Private Sub DataGridView1_SelectionChanged( _
    ByVal sender As System.Object, ByVal e As System.EventArgs) _
  Handles DataGridView1.SelectionChanged
      Dim dgv As DataGridView = sender
      dgv.CurrentCell = Nothing
  End Sub