一覧表を作成して編集する .NET でも、一覧表を作成して編集させることが可能です。この機能を使えば、簡単に、表形式イメージ機能のあるアプリケーションなど簡単に作成できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、データグリッドコントロール、 ラベルコントロールを配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━━━━━━━━━━━━━┓ ┃DataGrid1 ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┗━━━━━━━━━━━━━━━━━━━━┛ ┏━━━━━━━━━━━━━━┓ ┃Label1 ┃ ┗━━━━━━━━━━━━━━┛２．フォームでダブルクリックして、フォームのロードイベント プロシージャのコード編集画面にします。３．次のコードを記述します。 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load '作業用のオブジェクト変数を定義 Dim objData As DataSet Dim objTable As DataTable Dim Col As DataColumn 'データとテーブルを作成 objData = New DataSet("Data") objTable = New DataTable("Table") 'データ列の項目を定義しています Col = New DataColumn("NO") '自動インクリメント有効 Col.AutoIncrement = True Col.DataType = Type.GetType("System.Int32") objTable.Columns.Add(Col) Col = New DataColumn("商品") Col.DataType = Type.GetType("System.String") objTable.Columns.Add(Col) Col = New DataColumn("料金") Col.DataType = Type.GetType("System.Int32") objTable.Columns.Add(Col) 'データグリッドと接続しています objData.Tables.Add(objTable) DataGrid1.SetDataBinding(objData, "Table") End Sub Private Sub DataGrid1_MouseDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles DataGrid1.MouseDown Dim Hit As DataGrid.HitTestInfo 'データグリッドのヒットされた領域を取り出しています Hit = DataGrid1.HitTest(e.X, e.Y) Select Case Hit.Type Case DataGrid.HitTestType.Cell '0からカウントされているので、１を足して補正しています Label1.Text = CStr(Hit.Row + 1) + " 行 " _ + CStr(Hit.Column + 1) + " 列目を編集" Case Else '編集可能な行、列以外をクリックされている場合です Label1.Text = "" End Select End Sub４．ビルドして実行します。５．フォームに表示された データグリッドの編集可能な領域をマウスでクリックします。６．クリックした場所の編集が開始され、ラベルコントロールに クリックしたセルの位置が表示されます。-----------VB.NETコーディングここまで-------------------上記をカスタマイズして、バックのセルの色を変えたり、スプライトのように色を変えたりする事が簡単に可能です。
Copyright(c)2001-2003 Ai Net Makoto 記事・情報の無断転載を禁止します。
