眼科で視力検査をするときに黒いまるの切れ目を答えると思います。キーボードの矢印キーを押すとそれと同じ方向に切れたものを出したいのですが旨く行きません。どのようにしたらよろしいのでしょうか?
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))
このプログラムでは黒い丸の右側が切れたのが描けます。
>キーボードの矢印キーを押すと
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
フォームで矢印キーを拾った場合です。
お騒がせを致しまして大変申し訳ありませんでした。KeyPressで解決することが出来ました。初さんお答え頂き誠にありがとうございました。
ツイート | ![]() |