開発のあいまに

Combobox メモ

１、コンボボックスにアイテムを纏めて追加。

        Dim strItems(2) As String
        strItems(0) = "(未定義)"
        strItems(1) = "主訴"
        strItems(2) = "既往歴"
　     ComboBox1.Items.AddRange(strItems)

DateTimePicker メモ

１、日付文字列をDateTimePickerに設定。

　DateTimePicker1.value = DateTime.Parse("2007/9/11")

ダイアログ メモ

１、閉じた際にそのステータスをチェックする形で、ダイアログを表示する。

        If frm.ShowDialog <> DialogResult.OK Then
            Exit Sub
        End If

DataTable メモ

１、任意行をDataRow型変数へ。
        Dim dtRow() As DataRow = DataTable1.Select("列名=値")

イベント メモ

１、複数Handles指定

    Private Sub DGV_CellEnter() Handles dgvEntryMedicalSupplies.CellEnter, _
                                                      dgvEntryMedicine.CellEnter
    End Sub

DataGridView メモ

１、任意行の色を変える。

  DataGridView1.Rows(0).DefaultCellStyle.BackColor = Color.AliceBlue

　

２、任意列の色を変える。

   DataGridView1.Columns(0).DefaultCellStyle.BackColor = Color.AliceBlue

　

３、１行分の高さ。

　intHeight = DataGridView1.RowTemplate.Height

　

４、列を指定して、読み取り専用にする。

　DataGridView1.Columns(1).ReadOnly = True

　

５、列名から列Noを取得する。

　DataGridView1.Columns("列名").Index

　

６、列数・行数を設定する。

        dgvHistory.ColumnCount = 1

        dgvHistory.RowCount = 1

　

６、選択列を削除
       DataGridView1.Columns.RemoveAt(DataGridView1.SelectedCells(0).ColumnIndex)

　

７、行数分ループ
       For intCnt As Integer = 0 To DataGridView1.Rows.Count - 1 Step 1
       Next

８、選択行数分ループ
       For intCnt As Integer = 0 To DataGridView1.SelectedRows.Count - 1 Step 1
       Next

９、指定した行を選択状態にする。
       DataGridView1.Rows( n ).Selected = True

１０、グリッド内のセルを、Form表示時にデフォルト選択する場合は、Shownメソッド内に
　　選択処理を記述する。

１１、グリッドのDataSourceにテーブルを紐付けた後に、特定の列を
　　DataGridViewCheckBoxColumnにする。

        cls.F_GetMst(tbl)
        dgv.DataSource = tbl

        Dim column As New DataGridViewCheckBoxColumn()
        column.DataPropertyName = cls.strFieldName1
        dgv.Columns.Insert(dgv.Columns(cls.strFieldName1).Index, column)
        dgv.Columns.Remove(cls.strFieldName1)
        column.Name = cls.strFieldName1

１２、グリッドの自動列サイズ調整をOFFにする
        dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None

１３、指定列・選択行の値を取得する。
        CStr(dgv(dgv.Columns("列名").Index, dgv.SelectedRows.Item(0).Index).Value())

１４、指定列・選択行のボタンテキストを変更する。
        Dim column As New DataGridViewButtonCell()
        column.UseColumnTextForButtonValue = False
        column.Value = "不採用"
        DataGridView1("列名", 行数) = column

１５、 データ行を全て削除
        dgv.Rows.Clear()

１６、 余分な最後の行を非表示にする。
        dgvDF.AllowUserToAddRows = False