イベント時に変数値が更新されない
VB2010にて、下記のコードでkeydownイベントを発生させているのですが、
データ番号の更新がされず、Ctrl+→を押すと、毎回同じ数値がメッセージボックスに表示されます。
どう修正すれば、データ番号=データ番号+1の値が更新されていくのでしょうか？
教えてください。どうぞよろしくお願いいたします。
Private Sub MainPage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'キーイベントをフォームで受け取る
Me.KeyPreview = True
'KeyDownイベントハンドラを追加
AddHandler Me.KeyDown, AddressOf MainPage_KeyDown
End Sub
Private Sub MainPage_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
'「Ctrl+←」押下時
If e.Control And e.KeyCode = Keys.Left And 重ね描きFlag = True And Me.TextBox3.Text <> "" And データ番号 > 1 Then
End If
'「Ctrl+→」押下時
If e.Control And e.KeyCode = Keys.Right And 重ね描きFlag = True And Me.TextBox3.Text <> "" And データ番号 < グラフデータ数 Then
e.Handled = True
データ番号 = データ番号 + 1
MsgBox(データ番号)
'X値表示
Me.TextBox3.Text = グラフデータ(描画系列X, データ番号)
'Y値表示
Me.TextBox4.Text = グラフデータ(描画系列Y(マーク系列), データ番号)
'マークの移動
マークX座標 = Me.Chart1.ChartAreas(0).AxisX.GetPosition(グラフデータ(描画系列X, データ番号)) * Me.Chart1.Width / 100 - 10
マークY座標 = Me.Chart1.ChartAreas(0).AxisY.GetPosition(グラフデータ(描画系列Y(マーク系列), データ番号)) * Me.Chart1.Height / 100 - 10
'MsgBox(マークX座標 & "/" & マークY座標)
'Me.PictureBox1.Location = New System.Drawing.Point(マークX座標, マークY座標)
'System.Windows.Forms.Application.DoEvents()
'Me.Chart1.Refresh()
End If
End Sub
お礼
ご回答ありがとうございます。