Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows フォーム デザイナで生成されたコード " Public Sub New() MyBase.New() ' この呼び出しは Windows フォーム デザイナで必要です。 InitializeComponent() ' InitializeComponent() 呼び出しの後に初期化を追加します。 End Sub ' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ' Windows フォーム デザイナで必要です。 Private components As System.ComponentModel.IContainer ' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。 'Windows フォーム デザイナを使って変更してください。 ' コード エディタを使って変更しないでください。 Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid Private Sub InitializeComponent() Me.DataGrid1 = New System.Windows.Forms.DataGrid CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'DataGrid1 ' Me.DataGrid1.DataMember = "" Me.DataGrid1.Font = New System.Drawing.Font("MS UI Gothic", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte)) Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText Me.DataGrid1.Location = New System.Drawing.Point(8, 8) Me.DataGrid1.Name = "DataGrid1" Me.DataGrid1.Size = New System.Drawing.Size(272, 184) Me.DataGrid1.TabIndex = 0 ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12) Me.ClientSize = New System.Drawing.Size(292, 205) Me.Controls.Add(Me.DataGrid1) Me.Name = "Form1" Me.Text = "Form1" CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' DataGridコントロールを読み取り専用にする DataGrid1.ReadOnly = True ' テーブルの列を作成 Dim dataSet1 As New DataSet("商品マスター") Dim dataTable1 As DataTable = dataSet1.Tables.Add("商品テーブル") Dim dataClumn1 As DataColumn = dataTable1.Columns.Add("ID", GetType(Integer)) Dim dataClumn2 As DataColumn = dataTable1.Columns.Add("商品") Dim dataClumn3 As DataColumn = dataTable1.Columns.Add("個数", GetType(Integer)) ' テーブルのスタイルを作成 Dim dgTableStyle As New DataGridTableStyle dgTableStyle.MappingName = dataTable1.TableName DataGrid1.TableStyles.Add(dgTableStyle) ' テーブルの列のスタイルを作成 Dim dgColumnStyle1 As New DataGridTextBoxColumn Dim dgColumnStyle2 As New DataGridTextBoxColumn Dim dgColumnStyle3 As New DataGridTextBoxColumn dgColumnStyle1.MappingName = dataClumn1.ColumnName dgColumnStyle2.MappingName = dataClumn2.ColumnName dgColumnStyle3.MappingName = dataClumn3.ColumnName ' ヘッダーにタイトルを設定 dgColumnStyle1.HeaderText = dataClumn1.ColumnName dgColumnStyle2.HeaderText = dataClumn2.ColumnName dgColumnStyle3.HeaderText = dataClumn3.ColumnName ' 列のスタイルをテーブル・スタイルに登録 dgTableStyle.GridColumnStyles.Add(dgColumnStyle1) dgTableStyle.GridColumnStyles.Add(dgColumnStyle2) dgTableStyle.GridColumnStyles.Add(dgColumnStyle3) ' テーブルにデータを追加 dataTable1.Rows.Add(New [Object]() {1, "みかん", 100}) dataTable1.Rows.Add(New [Object]() {2, "りんご", 300}) dataTable1.Rows.Add(New [Object]() {3, "バナナ", 120}) dataTable1.Rows.Add(New [Object]() {4, "すいか", 280}) dataTable1.Rows.Add(New [Object]() {5, "いちご", 200}) dataTable1.Rows.Add(New [Object]() {6, "メロン", 150}) ' DataGridコントロールにテーブルを表示する DataGrid1.SetDataBinding(dataSet1, dataTable1.TableName) ' DataGridの行の追加とデータ編集を不許可に、行の削除を有効にする(サンプル) ' ※このサンプルを有効にするには、 ' 上記のReadOnlyプロパティとSetDataBindingメソッドをコメント・アウトしてください 'dataTable1.DefaultView.AllowNew = false 'dataTable1.DefaultView.AllowDelete = true 'dataTable1.DefaultView.AllowEdit = false ' DataGridコントロールにテーブルを表示する(データソースにDataViewを使う) 'dataGrid1.SetDataBinding(dataTable1.DefaultView, "") End Sub ' Paintイベントのハンドラを追加する Private Sub dataGrid1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles DataGrid1.Paint ' 描画される場合には行を選択しなおす DataGrid1.Select(DataGrid1.CurrentCell.RowNumber) End Sub 'dataGrid1_Paint End Class