DataGridViewのRaadOnly背景色を変えない (ID:145904)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士さん親切かつ丁寧なご説明ありがとうございます。 初心者で、上記の回答を理解するのに半日以上もかかりやっと直し終えました、 分ったようでも、完全に理解できたかどうかは不安です、下記にコードを修正 しましたので、よろしくお願いします。 Public Class Form1 Private activeCellStyle As DataGridViewCellStyle Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load activeCellStyle = New DataGridViewCellStyle() activeCellStyle.BackColor = Color.Yellow DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter DataGridView1.AllowUserToAddRows = False DataGridView1.ColumnCount = 2 DataGridView1.RowCount = 100 '全体の色 With DataGridView1.DefaultCellStyle .ForeColor = Color.DarkGreen .BackColor = Color.Lavender .SelectionForeColor = .ForeColor .SelectionBackColor = .BackColor End With '奇数行の色 With DataGridView1.AlternatingRowsDefaultCellStyle .BackColor = Color.White .SelectionBackColor = .BackColor End With DataGridView1.Columns(1).ReadOnly = True End Sub ''' <summary>セルがフォーカスされた時の処理です。</summary> Private Sub DataGridView1_CellEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEnter ' セルの背景色を変更します。 If e.ColumnIndex >= 0 AndAlso e.RowIndex >= 0 Then sender.Item(e.ColumnIndex, e.RowIndex).Style = activeCellStyle End If End Sub ''' <summary>セルがフォーカスを失う時の処理です。</summary> Private Sub DataGridView1_CellLeve(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellLeave ' セルの背景色を変更します。 If e.ColumnIndex >= 0 AndAlso e.RowIndex >= 0 Then sender.Item(e.ColumnIndex, e.RowIndex).Style = Nothing End If End Sub Private Sub DataGridView1_CellValidated(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValidated Dim currentCell As DataGridViewCell = sender.Item(e.ColumnIndex, e.RowIndex) If currentCell Is Nothing Then Return End If If Not e.ColumnIndex = 0 Then Return Dim no As Integer Integer.TryParse(sender.Item(e.ColumnIndex, e.RowIndex).Value, no) Select Case no Case 0 sender.Item(e.ColumnIndex + 1, e.RowIndex).Value = "" Case 1 sender.Item(e.ColumnIndex + 1, e.RowIndex).Value = "鈴木" Case 2 sender.Item(e.ColumnIndex + 1, e.RowIndex).Value = "佐藤" Case Is > 2 sender.Item(e.ColumnIndex + 1, e.RowIndex).Value = "" End Select End Sub Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing Me.ActiveControl = e.Control End Sub End Class 前回の質問で > 氏名セルをクリックするとカーソルがなくなります、個人番号 > にカーソルを残す事はできないでしょうか？ 説明が分かりずらくてすいません、もう一度説明したいと思います。 個人番号セル = Columns(0)、 氏名セル = Columns(1)、という意味です。 １行目の値 個人番号セル = "1" と 氏名セル = "鈴木" ２行目の値 個人番号セル = "2" と 氏名セル = "佐藤" と入力された状態で、現在は個人番号セル("2")にキャレットがあります、 氏名セル("鈴木")をクリックすると、キャレットが表示されなくなります、 その時キャレットをその行(クリックした行)の氏名セル("1")に強制的に 置くことは可能でしょうか？ > そもそも DataGridView と DataGridView.EditingControl は別物です。 この回答の指す意味が理解できません、強制的に置くことは難しいと 言うことなのでしょうか。 またの質問、きりがなくて申し訳ありません。