エラー処理について
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
PICOCX1.Outp PortB, 7, High
PICOCX1.Outp PortB, 4, High
End If
If KeyCode = 40 Then
PICOCX1.Outp PortB, 6, High
PICOCX1.Outp PortB, 5, High
End If
If KeyCode = 37 Then
PICOCX1.Outp PortB, 7, High
PICOCX1.Outp PortB, 5, High
End If
If KeyCode = 39 Then
PICOCX1.Outp PortB, 6, High
PICOCX1.Outp PortB, 4, High
End If
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
PICOCX1.Outp PortB, 7, Low
PICOCX1.Outp PortB, 4, Low
End If
If KeyCode = 40 Then
PICOCX1.Outp PortB, 6, Low
PICOCX1.Outp PortB, 5, Low
End If
If KeyCode = 37 Then
PICOCX1.Outp PortB, 7, Low
PICOCX1.Outp PortB, 5, Low
End If
If KeyCode = 39 Then
PICOCX1.Outp PortB, 6, Low
PICOCX1.Outp PortB, 4, Low
End If
End Sub
というプログラムですがこれがもしPICOCX1.Outp PortB, 4, Lowなどが実行できないとエラーとして返ってきてしまいます。このときエラー箇所をもう一度実行する方法はあるのでしょうか?
お願いします。こちらの環境はVB6.0です。
お礼
ご指摘の通りKeyPreviewでした!ありがとうございますm(_ _ )m