タイトル : Re: プログラムの制御について 投稿日 : 2015/06/15(Mon) 15:41 投稿者 : shu
描画については既に回答がついていますので 『何を押しても反応しない』についてサンプルです。 Public Class Form1 Private _Value As Integer = 0 Private Sub Form1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp If Timer1.Enabled Then Exit Sub Select Case e.KeyCode Case Keys.Up _Value += 1 Label1.Text = _Value.ToString Case Keys.Down _Value -= 1 Label1.Text = _Value.ToString End Select Timer1.Start() End Sub Private Sub Timer1_Tick(sender As Object, e As System.EventArgs) Handles Timer1.Tick Timer1.Stop() End Sub End Class |