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で解決することが出来ました。初さんお答え頂き誠にありがとうございました。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加