Остановить движение окружности нажатием клавиши - VB
Формулировка задачи:
подскажите пожалуйста, что нужно в этой программе подкаректировать, чтобы при нажатии, например, F3, окружность либо оставляла либо не оставляла след? спасибо заранее большое. Я уже не знаю что придумать:-)
Решение задачи: «Остановить движение окружности нажатием клавиши»
textual
Листинг программы
Option Explicit
Dim x, y, a, r As Integer
Dim tr As Boolean
Private Sub Form_Load()
Scale (0, 100)-(100, 0)
r = InputBox("Задайте радиус:-)")
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 114 Then tr = True ' F3
If KeyCode = 27 Then tr = False ' Esc
If tr = True Then Me.Cls
Circle (x, y), r, vbRed, , , 0.5
Label1 = r
a = 5
Select Case KeyCode:
Case vbKeyRight: x = x + a
If x > (100 - r) Then x = 100 - r
If (x < (100 - r)) And (x = (100 - r)) Then x = x + r
Case vbKeyLeft: x = x - a
If x < r Then x = r
If (x > r) And (x = r) Then x = x - r
Case vbKeyDown: y = y - a
If y < r Then y = r
If (y > r) And (y = r) Then y = y - r
Case vbKeyUp: y = y + a
If y > (100 - r) Then y = 100 - r
If (y < (100 - r)) And (y = (100 - r)) Then y = y + r
Case vbKeyF2: a = InputBox("На сколько увеличим радиус??")
r = r + (a)
End Select
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д