Keyイベントを動かすには？

解決

こなゆき 2007-05-01 23:40:35 No: 136298

眼科で視力検査をするときに黒いまるの切れ目を答えると思います。キーボードの矢印キーを押すとそれと同じ方向に切れたものを出したいのですが旨く行きません。どのようにしたらよろしいのでしょうか？

Module Module1
Public dblHaba As Double 'パソコン画面が㎜単位にするため
End Module

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItemList.SelectedIndexChanged
        If ItemList.SelectedIndex = 0 Then
            dblHaba = (1366 * 2.54 * 10) / (96 * 246)
        End If

Private Sub btnKennsakaisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKennsakaisi.Click
   Dim g As Graphics = PictureBox1.CreateGraphics
       g.PageUnit = GraphicsUnit.Millimeter
       g.FillEllipse(Brushes.Black, CSng(80 * dblHaba), CSng(20 * dblHaba), CSng(75 * dblHaba), CSng(75 * dblHaba))
        g.FillEllipse(Brushes.White, CSng(95 * dblHaba), CSng(35 * dblHaba), CSng(45 * dblHaba), CSng(45 * dblHaba))
        g.FillRectangle(Brushes.White, CSng(130 * dblHaba), CSng(50 * dblHaba), CSng(30 * dblHaba), CSng(15 * dblHaba))
このプログラムでは黒い丸の右側が切れたのが描けます。

初 2007-05-02 00:48:52 No: 136299

>キーボードの矢印キーを押すと

    Private Sub Form1_KeyDown(ByVal sender As Object, _
                              ByVal e As System.Windows.Forms.KeyEventArgs _
                              ) Handles MyBase.KeyDown
        Select Case e.KeyCode

Case Keys.Up

Debug.WriteLine("↑")

Case Keys.Down

Debug.WriteLine("↓")

Case Keys.Left

Debug.WriteLine("←")

Case Keys.Right

Debug.WriteLine("→")

Case Else

End Select

End Sub

フォームで矢印キーを拾った場合です。

こなゆき 2007-05-02 03:59:51 No: 136300

お騒がせを致しまして大変申し訳ありませんでした。KeyPressで解決することが出来ました。初さんお答え頂き誠にありがとうございました。