Зависание программы при попытке запуска CommandButton1_Click из него самого

@sesna7 · Регистрация: 06.04.2021

Author24 — интернет-сервис помощи студентам

Играюсь тут с VBA, сделал программу - маленькая кнопка ползает по userform с замедлением в 1 секунду, влево-вправо-вверх-вниз случайным образом, не вылазя за границы самой формы (500 х 500)

Но при попытке запуска программы она зависает, я наверное что-то не понимаю. По видимому из-за того, что я прямо из
Sub CommandButton1_Click пытаюсь запустить ее повторно. Я ее закоментировал и вручную когда нажимаю - все работает. Но как заставить программу запускаться и потом выгружаться и снова запускаться?

Visual Basic

Private Sub Random_Case()
Randomize
caseid = (Int((4 - 1 + 1) * Rnd + 1))
End Sub
 
 
Private Sub CommandButton1_Click()
Random_Case
Select Case caseid
 
Case 1
        If CommandButton1.Left >= 20 Then
        Application.Wait Now + #12:00:01 AM#
        CommandButton1.Left = CommandButton1.Left - 10
        'CommandButton1_Click
        Else
        'CommandButton1_Click
        End If
 
Case 2
        If CommandButton1.Left <= 480 Then
        Application.Wait Now + #12:00:01 AM#
        CommandButton1.Left = CommandButton1.Left + 10
        'CommandButton1_Click
        Else
        'CommandButton1_Click
        End If
 
 
Case 3
        If CommandButton1.Top >= 20 Then
        Application.Wait Now + #12:00:01 AM#
        CommandButton1.Top = CommandButton1.Top - 10
        'CommandButton1_Click
        Else
        'CommandButton1_Click
        End If
 
Case 4
        If CommandButton1.Top <= 480 Then
        Application.Wait Now + #12:00:01 AM#
        CommandButton1.Top = CommandButton1.Top + 10
        'CommandButton1_Click
        Else
        'CommandButton1_Click
        End If
End Select
End Sub

SergioJek · 23.02.2023, 20:10

Visual Basic

Private Sub CommandButton1_Click()
Randomize
my_Procedure
END SUB

в отдельном модуле

Visual Basic

dim caseid as long
 
Sub Random_Case()
caseid = Int(4 * Rnd + 1)
End Sub
 
Sub my_Procedure()
Random_Case
with UserForm1
Select Case caseid
Case 1
        If .CommandButton1.Left >= 20 Then
          .CommandButton1.Left = .CommandButton1.Left - 10
        End If
Case 2
        If .CommandButton1.Left <= 480 Then
          .CommandButton1.Left = .CommandButton1.Left + 10
        End If
Case 3
        If .CommandButton1.Top >= 20 Then
          .CommandButton1.Top = .CommandButton1.Top - 10
        End If
Case 4
        If .CommandButton1.Top <= 480 Then
          .CommandButton1.Top = .CommandButton1.Top + 10
        End If
End Select
Application.OnTime Now + TimeValue("00:00:01"), "my_Procedure"
end with
End Sub

SergioJek · 24.02.2023, 09:39

Но можно и без ONTIME обойтись

Visual Basic

Option Explicit
Dim B As Boolean
 
Private Sub CommandButton1_Click()
Dim H!, W!, D!
Randomize
H = InsideHeight - CommandButton1.Height
W = InsideWidth - CommandButton1.Width
B = Not B
While B
  DoEvents
  D = Int(Rnd * 4)
  CommandButton1.Left = CommandButton1.Left + Array(0, 0, 10, -10)(D)
  If CommandButton1.Left < 0 Then CommandButton1.Left = 0
  If CommandButton1.Left > W Then CommandButton1.Left = W
  CommandButton1.Top = CommandButton1.Top + Array(-10, 10, 0, 0)(D)
  If CommandButton1.Top < 0 Then CommandButton1.Top = 0
  If CommandButton1.Top > H Then CommandButton1.Top = H
  Application.Wait Now + 1 / 86400
Wend
End Sub
 
Private Sub UserForm_Terminate()
B = False
End Sub

@sesna7 · 24.02.2023, 10:08 **[ТС]**

SergioJek, Спасибо большое, все работает, но есть одна маленькая проблема - я абсолютно не понимаю, КАК это работает.

Новый код понимаю еще меньше.

SergioJek · 24.02.2023, 10:14

sesna7, какая из строк вызывает замешательство?

@sesna7 · 24.02.2023, 10:26 **[ТС]**

Многие

. Я новичок совсем.

Сообщение от SergioJek

.CommandButton1.Left

- почему с точкой в начале?

with UserForm1

- вообще непонятно, для чего это

Application.OnTime Now + TimeValue("00:00:01"), "my_Procedure"

- т.е. фактически я вызываю процедуру повторно прямо из нее, то, что я делал в своем коде, но тут это не вызывает зависания. И почему в кавычках не просто:

Visual Basic

1 2	Application.OnTime Now + TimeValue("00:00:01") my_Procedure

SergioJek · 24.02.2023, 10:35

sesna7, кнопка F1 у Вас есть?

Сообщение от sesna7

я вызываю процедуру повторно прямо из нее

Такой подход приводит к зависанию и переполнению стека вызовов в итоге.
Почитайте про рекурсию...

@sesna7 · 24.02.2023, 10:37 **[ТС]**

Ладно, наверное глупые вопросы, пошёл сам разбираться, спасибо еще раз за помощь.

Добавлено через 2 минуты

Сообщение от SergioJek

Такой подход приводит к зависанию и переполнению стека вызовов в итоге.
Почитайте про рекурсию...

Я это сразу понял еще со своим кодом и начал думать, как обойти это.
А вот почему ваш код не вызывает рекурсию - этого не пойму пока. Но постараюсь понять. Спасибо.

SergioJek · 24.02.2023, 10:46

Сообщение от sesna7

А вот почему ваш код не вызывает рекурсию

Потому что тут нет рекурсии, процедура идет дальше и заканчивается.
Процедуру "my_Procedure" вызывает не сама процедура, а Application, т.е. Excel.

@sesna7 · 24.02.2023, 10:46 **[ТС]**

Сообщение от sesna7

with UserForm1

Понял. Иду дальше. Просто не сразу понял, что в With можно еще и If засунуть.

@sesna7 1 / 1 / 1 Регистрация: 06.04.2021 Сообщений: 42
	24.02.2023, 10:08 [ТС]	4
	SergioJek, Спасибо большое, все работает, но есть одна маленькая проблема - я абсолютно не понимаю, КАК это работает. Новый код понимаю еще меньше. 0

SergioJek 396 / 319 / 58 Регистрация: 29.06.2019 Сообщений: 480
	24.02.2023, 10:14	5
	sesna7, какая из строк вызывает замешательство? 1

SergioJek 396 / 319 / 58 Регистрация: 29.06.2019 Сообщений: 480
	24.02.2023, 10:35	7
	sesna7, кнопка F1 у Вас есть? Сообщение от sesna7 я вызываю процедуру повторно прямо из нее Такой подход приводит к зависанию и переполнению стека вызовов в итоге. Почитайте про рекурсию... 1

@sesna7 1 / 1 / 1 Регистрация: 06.04.2021 Сообщений: 42
	24.02.2023, 10:37 [ТС]	8
	Ладно, наверное глупые вопросы, пошёл сам разбираться, спасибо еще раз за помощь. Добавлено через 2 минуты Сообщение от SergioJek Такой подход приводит к зависанию и переполнению стека вызовов в итоге. Почитайте про рекурсию... Я это сразу понял еще со своим кодом и начал думать, как обойти это. А вот почему ваш код не вызывает рекурсию - этого не пойму пока. Но постараюсь понять. Спасибо. 0

SergioJek 396 / 319 / 58 Регистрация: 29.06.2019 Сообщений: 480
	24.02.2023, 10:46	9
	Сообщение от sesna7 А вот почему ваш код не вызывает рекурсию Потому что тут нет рекурсии, процедура идет дальше и заканчивается. Процедуру "my_Procedure" вызывает не сама процедура, а Application, т.е. Excel. 1

@sesna7 1 / 1 / 1 Регистрация: 06.04.2021 Сообщений: 42
	24.02.2023, 10:46 [ТС]	10
	Сообщение от sesna7 with UserForm1 Понял. Иду дальше. Просто не сразу понял, что в With можно еще и If засунуть. 0

Зависание программы при попытке запуска CommandButton1_Click из него самого

Решение