Pictureboxで作成した表にキー入力した値を受け取りたい

Question

現在、VB.NETで数独を作成しております。
![

実際のゲーム画面はこちらです。
Formの上にPictureboxを配置し、Graphicsを用いて表を作成しています。

セルがオレンジで囲まれているのは、MauseMoveイベントにより、マウスがホバーしているセルに着色しています。

今できずに悩んでいることは、picturebox内のセルに対し、文字の入力を行う処理です。
つまり、
１、マウスで座標を指定
２、入力されたキー情報を受け取る
３、入力されたきー情報を対象の座標（オレンジ枠セル）に出力

出力に関しては、
Graphics.DrawStringメソッドorTextRenderer.DrawTextメソッドを用いることで実現できるのかな、と考えておりますが、座標の指定がうまくできていないのかなと考えております。

こちらはForm1のクラスです。

Public Class Form1
    Dim S As New source

    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

        S.Draw(e.Graphics)

    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

        Dim ThisCell As Cell

        'マウスがある位置のセルを取得
        ThisCell = S.CellFromPoint(e.X, e.Y)

        If Not IsNothing(ThisCell) Then

            ThisCell.Focus()
            Console.ReadLine()

            '現在の状態を描画(PictureBox1のPaintイベントを発生させる)
            PictureBox1.Invalidate() '←実際の描画はすべてここで行う

        End If

    End Sub

End Class

Public Class Cell
    Public Status As CellStatus
    Public S As source
    Public Position As Point '論理位置
    Public Rectangle As Rectangle '物理位置
    Public Focused As Boolean

    '■コンストラクタ
    Public Sub New(ByVal S As source, ByVal Position As Point)

        Me.S = S
        Me.Position = Position

        Dim Rect As New Rectangle

        '物理位置を求める。
        Rect.X = Position.X * source.CellSize
        Rect.Y = Position.Y * source.CellSize
        Rect.Width = source.CellSize
        Rect.Height = source.CellSize

        Me.Rectangle = Rect
    End Sub

    '■Focus
    Public Sub Focus()

        Dim X As Integer
        Dim Y As Integer

        '同じグリッドに属する自分以外のセルを非アクティブにする。
        For X = 0 To source.XCount - 1
            For Y = 0 To source.YCount - 1
                S.Cells(X, Y).Focused = False
            Next
        Next

        '自分自身をアクティブにする。
        Me.Focused = True

    End Sub

    Public Sub Draw(ByVal g As Graphics)

        Dim CellRect As Rectangle
        Dim oPen As New Pen(Color.Orange, 3)

        CellRect = Me.Rectangle
        CellRect.Inflate(-2, -2)
        Dim fnt As New Font("MS UI Gothic", 20)

        If Me.Focused Then
            g.DrawRectangle(oPen, CellRect)
        End If

    End Sub
End Class

Public Class source

    Public Const CellSize As Integer = 50 'セルのサイズ
    Public Const XCount As Integer = 9 '盤の横方向のセル数
    Public Const YCount As Integer = 9 '盤の縦方向のセル数
    Dim aCell(XCount - 1, YCount - 1) As Cell '全セルを表す配列

    Public Sub New()

        Dim X As Integer
        Dim Y As Integer

        For X = 0 To XCount - 1
            For Y = 0 To YCount - 1
                aCell(X, Y) = New Cell(Me, New Point(X, Y))
            Next
        Next

    End Sub

    Public Sub Draw(ByVal g As Graphics)

        Dim X As Integer
        Dim Y As Integer
        Dim aPen As New Pen(Color.Gray, 2)
        Dim bPen As New Pen(Color.Black, 3)

        '四角形
        g.FillRectangle(Brushes.White, 0, 0, XCount * CellSize, YCount * CellSize)

        '縦線
        For X = 0 To XCount
            If X Mod 3 = 0 Then
                g.DrawLine(bPen, X * CellSize, 0, X * CellSize, YCount * CellSize)
            Else
                g.DrawLine(aPen, X * CellSize, 0, X * CellSize, YCount * CellSize)
            End If

        Next

        '横線
        For Y = 0 To YCount
            If Y Mod 3 = 0 Then
                g.DrawLine(bPen, 0, Y * CellSize, XCount * CellSize, Y * CellSize)
            Else
                g.DrawLine(aPen, 0, Y * CellSize, XCount * CellSize, Y * CellSize)
            End If

        Next

        For Y = 0 To YCount - 1
            For X = -0 To XCount - 1
                Cells(X, Y).Draw(g)
            Next
        Next
    End Sub

    Public Property Cells(ByVal X As Integer, ByVal Y As Integer) As Cell
        Get
            Return aCell(X, Y)
        End Get
        Set(ByVal value As Cell)
            aCell(X, Y) = value
        End Set
    End Property

    Public Function CellFromPoint(ByVal X As Integer, ByVal Y As Integer) As Cell

        Dim ThisCell As Cell

        If X < 0 OrElse X >= XCount * CellSize Then
            Return Nothing
        End If

        If Y < 0 OrElse Y >= YCount * CellSize Then
            Return Nothing
        End If

        ThisCell = Cells(X \ CellSize, Y \ CellSize)

        Return ThisCell

    End Function

End Class

Answer 1

要はキー入力した値を受け取りたいということでしょうか？
「表中に文字列の入力」というと話がややこしくなります。
数独なので単純に1～9のキー入力ができればいいだけですよね（＋Deleteキーくらい）。
KeyPressまたはKeyDownイベントを使うとキー入力1文字につき1回のイベントを受け取ることができます。
特定のコントロールにイベント設定しても良いですが、この手のアプリの場合、フォームで受け取ると利便性が良いです（どのコントロールがアクティブになっていてもイベントが発生するので）
その場合、フォームのKeyPreviewプロパティをTrueに設定するだけでよいです。
ここらやここらを参考に。.

Comments

[anpan___]

ご回答ありがとうございます！
仰る通りのキー入力操作ができれば解決となります。
今すぐ参考のリンクの方確認させていただきます。

[anpan___]

大変申し訳ございません。
参考のリンク見させていただいたのですが、よく理解することができませんでした。

ご指摘いただきました、Keypress/Keydownを自身のコードでも利用できるように
他のサイトも調べて、勉強させていただきます。