C# と VB.NET の質問掲示板

早速ありがとうございました。
エラーがなくなりました。
が、次のようにフォルダとファイルを指定して起動すると、ファイルは読み込まれず、単に空のフォームが動くだけです。
どこが抜けているのか、アドバイスいただけないでしょうか。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        PictureBox[] pictureBox;

        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            pictureBox = new PictureBox[10];
            string imageDir = @"c:\tmp";
            string[] files = Directory.GetFiles(imageDir, "*.jpg");
            for (int i = 0; i < 10; i++)
            {
                //MessageBox.Show(files[i]);
                this.pictureBox[i] = new System.Windows.Forms.PictureBox();
                ((System.ComponentModel.ISupportInitialize)(this.pictureBox[i])).BeginInit();
                this.pictureBox[i].Location = new System.Drawing.Point(33 + i * 10, 36 + i * 10);
                this.pictureBox[i].Name = "pictureBox[i]";
                this.pictureBox[i].Size = new System.Drawing.Size(200, 200);
                this.pictureBox[i].TabIndex = 0;
                this.pictureBox[i].TabStop = false;
                this.pictureBox[i].Image = Bitmap.FromFile(files[i]);


            }
        }
    }
}

環境：VB2010　Windowsフォームアプリ

以下のような事を実現したいのですが、
    (1)DataGridViewにユーザーが不正な値を入力した場合はエラーアイコンを表示
    (2)セルの値が不正でなくなったら、エラーアイコンを消去

DataErrorをハンドリングして以下のようなコードで実験してみましたが、
もう一工夫したい点がいくつかあります。
（下記コードでDataGridViewのC1列にInteger以外を入力した場合の話です。）

    (a)ESCキー押下で入力をキャンセルした場合、エラーアイコンが消えない。
    (b)不正な値を入力してEnterキー押下で不正文字を選択状態にしたい。
    (c)エラーアイコンを行ヘッダに表示しているが、できればセルに表示したい。

    (c)は無理っぽい感じがしますが、上記を実現するにはどうすればいいでしょうか？

’-----------------------以下、実験コード-----------------------
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        dt.Columns.Add("C1", GetType(Integer))
        dt.Rows.Add(1)
        dt.AcceptChanges()
        DataGridView1.DataSource = dt
    End Sub
    Private Sub DataGridView1_DataError(sender As Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
        DataGridView1.Rows(e.RowIndex).ErrorText = "セルの値を確認してください。"
        e.Cancel = True
    End Sub
    Private Sub DataGridView1_CellValidating(sender As Object, e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating
        If DataGridView1.Rows(e.RowIndex).ErrorText IsNot String.Empty Then
            DataGridView1.Rows(e.RowIndex).ErrorText = String.Empty
        End If
    End Sub

■No88633 (まっさん さん) に返信

すみません。↑は間違って投稿してしまいました。
(c)以外は以下で、一応希望通りに動作しているように思います。

    '編集中セルの行番号、列番号、EditingControl
    Private _textbox As Tuple(Of Integer, Integer, DataGridViewTextBoxEditingControl)
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        dt.Columns.Add("C1", GetType(Integer))
        dt.Rows.Add(1)
        dt.AcceptChanges()
        DataGridView1.DataSource = dt
    End Sub

    Private Sub DataGridView1_DataError(sender As Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
        DataGridView1.Rows(e.RowIndex).ErrorText = "セルの値を確認してください。"
        '念の為、行番号、列番号も照合する
        If _textbox IsNot Nothing AndAlso _textbox.Item1 = e.RowIndex AndAlso _textbox.Item2 = e.ColumnIndex Then
            _textbox.Item3.SelectAll()
        End If
        e.Cancel = True
    End Sub
    Private Sub DataGridView1_CellValidating(sender As Object, e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating
        If DataGridView1.Rows(e.RowIndex).ErrorText IsNot String.Empty Then
            DataGridView1.Rows(e.RowIndex).ErrorText = String.Empty
        End If
    End Sub
    Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, _
        ByVal e As DataGridViewEditingControlShowingEventArgs) _
        Handles DataGridView1.EditingControlShowing
        If TypeOf e.Control Is DataGridViewTextBoxEditingControl Then
            Dim tbox = DirectCast(e.Control, DataGridViewTextBoxEditingControl)
            Dim cell = DataGridView1.CurrentCell
            _textbox = Tuple.Create(cell.RowIndex, cell.ColumnIndex, tbox)
        Else
            _textbox = Nothing
        End If
    End Sub
    Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        DataGridView1.CurrentCell = Nothing
        DataGridView1.CurrentCell = DataGridView1(e.ColumnIndex, e.RowIndex)
    End Sub

■No88637 (まっさん さん) に返信

編集中のTextBoxにアイコンを表示するのは力技になりそうなので以下のように
ToolTipでエラー表示するようにしました。
独り相撲で申し訳ありませんでした。

  '編集中セルの行番号、列番号、EditingControl
    Private _textbox As Tuple(Of Integer, Integer, DataGridViewTextBoxEditingControl)
    Private _toolTip As New ToolTip
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        dt.Columns.Add("C1", GetType(Integer))
        dt.Rows.Add(1)
        dt.AcceptChanges()
        DataGridView1.DataSource = dt
    End Sub
    Private Sub DataGridView1_DataError(sender As Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
        '念の為、行番号、列番号も照合する
        If _textbox IsNot Nothing AndAlso _textbox.Item1 = e.RowIndex AndAlso _textbox.Item2 = e.ColumnIndex Then
            _textbox.Item3.SelectAll()
            'ツールチップを表示
            _toolTip.SetToolTip(_textbox.Item3, "セルの値を確認してください。")
            _toolTip.ToolTipIcon = ToolTipIcon.Error
            _toolTip.Active = True
        End If
        e.Cancel = True
    End Sub
    Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, _
        ByVal e As DataGridViewEditingControlShowingEventArgs) _
        Handles DataGridView1.EditingControlShowing
        If TypeOf e.Control Is DataGridViewTextBoxEditingControl Then
            Dim tbox = DirectCast(e.Control, DataGridViewTextBoxEditingControl)
            Dim cell = DataGridView1.CurrentCell
            _textbox = Tuple.Create(cell.RowIndex, cell.ColumnIndex, tbox)
        Else
            _textbox = Nothing
        End If
    End Sub
    Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        _toolTip.Active = False
    End Sub